![]() |
|
|
#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;В чём дело? С одним файлом всё нормально. |