Developing.ru

И еще один вопрос как вывести все данные из текстового файла?

scudo писал(а):Убираю Reset и остается только Append.И один фиг он стирает записи уже имеющиеся в текстовом файле и дописывает ново-введеные с самого начала.

Странно, проверил еще раз-все работает.
[syntax='Delphi']
var
f:text;
i:integer;

begin
assign(f,'e:\temp\d.txt');
append(f);
for i:=1 to 100 do
writeln(F,'append ',i);
close(f);
end.
[/syntax]

Такой код добавляет 100 строк в файл, не стирая уже записанные.

На счет вывода всех данных:
[syntax='Delphi']
while not EOF(F) do
begin
readln(F,S);
writeln(S);
end;
[/syntax]

Огромное спасибо.Еще вопрос.Как осуществить сортировку?

По какому принципу?

scudo писал(а):Огромное спасибо.Еще вопрос.Как осуществить сортировку?

Как правило - считать данные из файла в массив, массив отсортировать (раздел "Алгоритмы"), записать данные из массива в файл.