Работа с тхт файлами Delphi

[loginn333]

Всем добрый вечер, у меня возникла не большая проблема, есть код
пример:

procedure TForm3.FormShow(Sender: TObject);
var rezyltat:TextFile;
begin
Label1.Caption:= 'Количество баллов: ' + Form2.Label2.Caption;
Label2.Caption:= 'Ваша оценка: ' + Form2.Label4.Caption;
Label3.Caption:= 'Тест прошел студент: ' + #13 + Form1.Edit1.Text + ' ' + Form1.Edit2.Text;
Label4.Caption:= 'Время прохождения: ' + Form2.Label7.Caption + 'мин.' + ' ' + Form2.Label8.Caption + 'сек.';

AssignFile(rezyltat, 'c:\rezyltat.txt');
Rewrite(rezyltat);
writeln(rezyltat, Label1.caption,' ');
writeln(rezyltat, Label2.caption,' ');
writeln(rezyltat, Label3.caption,' ');
writeln(rezyltat, Label4.caption,' ');
writeln(rezyltat, #10);
CloseFile(rezyltat);
end;

я записываю результат прохождения теста определенного человека допусти Вася Пупкин, он все записывает в тхт файл так как я хочу, но когда будет проходить другой человек тест, то он заменяет этого Васю Пупкина на другого человека. Вопрос, как сделать что бы он записывал людей по порядку, а не заменял их ? Если я как то не правильно выразился, то приношу свои извинения.


________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[asmodey1]

Если я правильно понял вопрос, то достаточно закомментировать строку

Rewrite(rezyltat);

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

[Serge_Bliznykov]

вот этот

AssignFile(rezyltat, 'c:\rezyltat.txt');
Rewrite(rezyltat);

заменить на:

AssignFile(rezyltat, 'c:\rezyltat.txt');
if FileExists('c:\rezyltat.txt') then Append(rezyltat)
else Rewrite(rezyltat);

[loginn333]

Модератор, приношу свои извинения, не знал, в следующий раз такого не повторится !

[loginn333]

Serge_Bliznykov спасибо огромное за помощь, я сидел долго голову ломал как это реализовать, теперь знаю. Вы мне очень помогли ! И всем остальным тоже спасибо за ответы !

[asmodey1]

А правила надо почитать по-любому !
Там еще и про флуд - посты друг за другом...
И вообще много интересного.
Или вы полагаете, что модератор должен вам объяснять каждый пункт правил ? Вы что - неграмотный ?
Напоретесь сначала на штраф, а там и бан не за горами...

[loginn333]

Сообщение от asmodey1

А правила надо почитать по-любому !
Там еще и про флуд - посты друг за другом...
И вообще много интересного.
Или вы полагаете, что модератор должен вам объяснять каждый пункт правил ? Вы что - неграмотный ?
Напоретесь сначала на штраф, а там и бан не за горами...

Я действительно не хотел этого делать, просто поблагодарил, если теперь это считается наказанием..., то пусть будет так !

[Пепел Феникса]

просто старайтесь пользоватся кнопкой, Правка(справа внизу вашего сообщения)

[loginn333]

Сообщение от Пепел Феникса

просто старайтесь пользоватся кнопкой, Правка(справа внизу вашего сообщения)

Я честно говоря не обратил внимание на кнопку, а потом заметил, спасибо !
Кстати сразу еще один вопрос, через что можно реализовать открытие этого файла, то есть отобразить его (файл с результатами)

[Пепел Феникса]

загрузить в мемо если в вашей же программе, или вам надо поприличнее?