Форум: "Основная";
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];
ВнизТекстовый Фаил Найти похожие ветки
← →
hooky-mars (2002-04-14 16:53) [1]Пишу так:
var
F: File of TStrings;
i:integer;
StringList:Tstrings;
begin
AssignFile(F, "Unit12.html");
Rewrite(F);
try
StringList := TStringList.Create;
StringList.Text:="<html>"+FV+"</html>";
Seek(F, 1);
Write (F,StringList);
finally
CloseFile(F);
StringList.free;
end;
А получается что-то такое њЉЕ
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.04.25;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.006 c