Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 13.05.2011, 21:49   #1
YurIbr89
 
Регистрация: 18.01.2009
Сообщений: 7
По умолчанию Удалить строку

Удалить первые строки из обоих файлов.
Не удалять строки, если хотябы один из файлов пуст.
Код:
begin
 f:=TStringList.Create();
 p:=TStringList.Create();
 f.LoadFromFile('myFile1.htm');
 p.LoadFromFile('myFile2.htm');
 
if f.Count>0 and p.Count>0 then    Incompatible types
 f.Delete(0);
 p.Delete(0);
 f.SaveToFile('myFile1.htm');
 p.SaveToFile('myFile2.htm');
 f.Free;
 p.Free;
end;
В чём дело? С одним файлом всё нормально.
YurIbr89 вне форума Ответить с цитированием
Старый 13.05.2011, 22:48   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,229
По умолчанию

приоритет операций не такой, как Вы ожидаете!
скобки надо поставить
Код:
if (f.Count>0) and (p.Count>0) then
ну и не понимаю, что Вы хотите сделать, но, судя по всему, Вы не видите, что после
if then (в случае, если оба файла не пусты). Удалится первая строка ТОЛЬКО ИЗ ФАЙЛА F

я подозреваю, что Вы так хотите:
Код:
if (f.Count>0) and (p.Count>0) then  begin
  f.Delete(0);
  p.Delete(0);
end;
или даже так:
Код:
if (f.Count>0) then f.Delete(0);
if (p.Count>0) then p.Delete(0);

и, кстати, предлагаю рассмотреть, чем эти варианты отличаются.
Думаю, что Вам это будет полезно.

Последний раз редактировалось Serge_Bliznykov; 13.05.2011 в 22:52.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 14.05.2011, 00:24   #3
YurIbr89
 
Регистрация: 18.01.2009
Сообщений: 7
По умолчанию

Огромнейшее спасибо!
YurIbr89 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
VBA_макрос: удалить всю строку в таблице, если в ней есть слово "удалить" макарошка Microsoft Office Excel 15 05.10.2010 09:09
Удалить строку таблицы Aleksandr БД в Delphi 12 16.03.2010 11:31
Как удалить строку? Nesta23 Общие вопросы C/C++ 0 12.01.2010 20:36
Удалить последнюю строку из файла Flame_of_Death Помощь студентам 6 21.07.2009 13:48
Добавить строку в ДБГрид и удалить MbIJIO БД в Delphi 4 18.04.2009 12:45