Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];




Вниз

добавить строку в конец txt файла 


ZPS   (2002-02-27 20:51) [0]

Вопрос ламерский, но что-то у меня не получается.
В файле несколько сотен строк.
Нужно добавить в конец ещё одну.
Как это сделать ?



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!



Юрий Зотов   (2002-02-27 21:02) [2]

with TStringList.Create do
try
LoadFromFile("C:\MyFile.txt");
Add("New string");
SaveToFile("C:\MyFile.txt")
finally
Free
end;



ZPS   (2002-02-27 21:12) [3]

Ой, дурак....
Я забыл про append(f). спать надо бальше :)

Юрий Зотов, а такого я не знал.

Всем спасибо!



Aleks1   (2002-02-28 03:28) [4]

> Юрий Зотов
А стоит ли сначала читать куда-то, создавая новый буфер, потом записывать из него в файл, если для текстовых файлов есть функция Append?




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.03.14;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.013 c
1-43094           ZPS                   2002-02-27 20:51  2002.03.14  
добавить строку в конец txt файла


1-42997           bnn                   2002-02-28 14:42  2002.03.14  
Преобразование пикселей в сантиметры


3-42923           tovSuhov              2002-01-30 12:07  2002.03.14  
ADOQuery...


3-42953           vopros                2002-02-15 13:04  2002.03.14  
Выскакивает ошибка Access Violetion..


3-42934           ray_wagner            2002-02-12 03:36  2002.03.14  
Ламерский вопрос про DbGrid