Запись текста в файл

← →
КотаПёс (2005-08-16 07:58) [0]

Привет, скажите пожалуйста как записать текст из Edit1 в текстовоый файл.Полсе нажатия на кнопку текст из едите должен записываться строкой ниже если в первой строке уже что то тесть

← →
Gydvin © (2005-08-16 08:09) [1]

var
list:tstringlist;
begin
list:=tstringlist.create;
list.loadfromfile("file");
list.add(edit1.text);
list.savetofile("file");
list.free;
end;

← →
Думкин © (2005-08-16 08:15) [2]

assignfile
append
writeln
fush
closefile

← →
palva © (2005-08-16 09:46) [3]

fush -> flush

← →
Anatoly Podgoretsky © (2005-08-16 12:13) [4]

Все вышеуказаное не пойдет по задаче.
Надо жить проще, открыть файл на чтение, прочитать одну строку, затем открыть на запись, записать ее обратно и дописать новую.

Anatoly Podgoretsky © (16.08.05 12:13) [4]
????
assignfile(f,....);
append(f);
writeln(f,now);
closefile(f);
все отлично пишется в конец.
Файла.

> syte_ser78 © (16.08.05 14:39) [5]

А ему не в конец надо. А всегда только 2 строчки или 1 - если буквально понимать. Вот АП и написал. :)

Запись текста в файл Найти похожие ветки