VPF::Опять эти страшные файлы - Форум программистов

DimassS

Дата 26.5.2006, 07:17 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 90
Регистрация: 12.4.2006
Где: Россия, Иркустк

Репутация: 1
Всего: 2

Доброго времени суток!!!!

У меня возникла вот какая проблема, есть файл, текстовый, примерно такой:
NЕРЕС
tПотоки\Тип\
tРеакторы\кВ*час\
dString
dInteger
это описание типов столбцов и заголовка
затем я хочу поместить данные о редактировании, типа жирный шрифт и всё такое
..................
ШЖирный
ВПо середине
.......... Эту часть я хочу менять программно, открываю для редактирования, читаю строки, если ss[1]='Ш', то меняю например жирный на курсив, Reset что-то не подходит, что делать... smile

Заранее благодарю!!!

~FoX~

Дата 26.5.2006, 07:49 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Код покажи.

--------------------

…множественность никогда не следует полагать без необходимости…

bems

Дата 26.5.2006, 07:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

Репутация: 31
Всего: 88

ошибка в 22-й строке. Нужно написать в обратном порядке

--------------------

Обижено школьников: 8

DimassS

Дата 26.5.2006, 08:48 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 90
Регистрация: 12.4.2006
Где: Россия, Иркустк

Репутация: 1
Всего: 2

Цитата

Код покажи.

Не знаю зачем он поможет, но раз уж попросили:

Код


assignfile(f,filename)
reset(f)
            While NOT EOF(F) do begin
             Readln(F, SS);
              if ss[1]='N' then begin
                  for i:=2 to Length(ss) do
                    List:=List+ss[i];
                    WorkSheet1.Name:=List;
                 end;
              if SS[1] = 't' then Begin
                    MyCol.Add(SS) ;
И вот здесь хочу писать если ss[1]='Ш' то меняю на курсив, или ещё что-нибудь подредактить...
           repeat

Цитата

ошибка в 22-й строке. Нужно написать в обратном порядке

про что, что-то ничего не вижу smile

Это сообщение отредактировал(а) DimassS - 26.5.2006, 08:51

Guedda

Дата 26.5.2006, 09:13 (ссылка)

(нет голосов)

Загрузка ...

Подрывник

Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78

Понимаешь, что в условии:

Код


if SS[1] = 't' then Begin
                    MyCol.Add(SS) ;
И вот здесь хочу писать если ss[1]='Ш' то меняю на курсив, или ещё что-нибудь подредактить...
           repeat

уже ss[1] = 't', поэтому 'Ш' она не будет ровнятьяс никогда. smile

--------------------

Ll 2

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »