В Memo ввёл раз!!! в Memo ввёл два!!! а где Memo ввёл раз???

[Хs-You]

Вот такой вот вопрос у меня есть Memo1 есть текстоовый файл!
Открываю программу в вожу в Memo1 данные№1 закрываю программу!
Данные успешно сохранены в текстовом файле! :-)
Открываю программу второй раз снова ввожу данные№2 закрываю программу . Открываю текстовый документ и вижу вот что, данные №2 сохранились а данных №1 нету!
И так вопрос как сделать так чтоб все введённые данные сохранялись и разрыв между данными№1 и данными№2 = 1 строке.
ну тип такога

данными№1

данными№2

[KORT]

Возможно в процедуре записи в файл, у тебя прописано зарезервированное слово Rewrite(f) (если файл уже существовал, то его содержимое будет уничтожено), а надо использовать RESET(f)

[UnD)eaD)Snake]

пиши 1ую строку так:

memo1.lines[0]:= "Первая строка";

потом 2ую строку:

memo1.lines[1]:= "Вторая строка";

[Romanbl4]

Ты наверное используешь метод memo.loadfromfile и memo.savetofile ?
Если да - то можно попробовать использовать два memo - в memo1 загружать старые данные и сделать его visible=false; а в memo2 вводить новые, потом добавить данные из memo2 в memo1 и memo1.savetofile - вуаля!

[Хs-You]

не не вы меня не поняли (хоя подробно обьяснил) а может и я вас не понял
Мне надо чтоб User при вводе В муму т.е в memo1
нажав кнопку добавить но я пока использую место кнопки добавить закрытие программы! Ну вот на чём я там осановился а да после закрытия надо чтоб в текстовом документе все данные сохранялись а следующий раз когда он опять решит там что нить написать надо чтоб данные сохранялись как продолжение первого ввода а не ложились поверх! и так всё время! Вот исходник!

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Memo1.Lines.SaveToFile('инфо prog.txt');
end;

[andrey4623]

делаешь так
var ft:text;i:integer;
begin
Assignfile(ft,'инфо prog.txt');
Reset(ft);
for i:=0 to Memo1.Lines.Count-1 do
WriteLn(ft, Memo1.Lines[i]);
Closefile(ft);

если не поможет (не проверял) делаешь так:
2 memo: Memo1 и Memo2.

При нажатии на кнопку "Сохранить результаты":

Memo2.LoadFromFile...

потом
var
ft:text;i:integer;
begin
Assignfile(ft,'инфо prog.txt');
Rewrite(ft);
for i:=0 to Memo2.Lines.Count -1 do
WriteLn(ft, Memo2.Lines[i]);
for i:=0 to Memo1.Lines.Count-1 do
WriteLn(ft, Memo1.Lines[i]);
Closefile(ft);

то есть memo2-как резервный, и он невидим. Сначала открываешь файл, и считываешь инфу в memo2. Потом перезаписываешь файл и пишешь туда сначала memo2(старые данные) по строчкам, а потом memo1(новые данные) тоже по строчкам.

[Хs-You]

О спасибо чувак ты меня понял! И korty спасибо он наверное имел тоже самое и это трава не наркотик это я вам говорю!


Ехали кумарики на воздушном шарике :-) :-) :-)


Тема закрыта!