![]() |
|
#1
|
|||
|
|||
![]() Удалить первые строки из обоих файлов.
Не удалять строки, если хотябы один из файлов пуст. Код:
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; В чём дело? С одним файлом всё нормально. |
#2
|
||||
|
||||
![]() В скобки возьми.
Код:
if (f.Count>0) and (p.Count>0) then lmikle: MADMAN, правила для всех существуют. Даже если код всего в одну строку. — Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию Последний раз редактировалось lmikle, 13.05.2011 в 23:05. |
#3
|
|||
|
|||
![]() Большое спасибо.
|