Форум: "Основная";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];
ВнизНарод ! Найти похожие ветки
← →
Song (2002-03-29 07:39) [5]Да..... :) даёте Вы..
Var ff:TextFile;
....
With TStringList.Create Do
try
LoadFromFile(...);
AssignPrn(ff);
ReWrite(ff);
try
For t:=0 to Count-1 Do WriteLn(ff,Strings[t]);
finally
CloseFile(ff);
end;
finally
Free;
end;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.11;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.005 c