Форум: "Основная";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];
Вниздобавить строку в конец txt файла Найти похожие ветки
← →
oomneeq (2002-02-27 21:01) [1]var
f: TextFile;
begin
if OpenDialog1.Execute then
begin { open a text file }
AssignFile(f, OpenDialog1.FileName);
Append(f);
Writeln(f, "I am appending some stuff to the end of the file.");
{ insert code here that would require a Flush before closing the file }
Flush(f); { ensures that the text was actually written to file }
CloseFile(f);
end;
end;
(C) Delphi Help File - very usefull for Ламер
try it!
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];
Память: 0.43 MB
Время: 0.004 c