delphi reset

Ответ от Sulgor[гуру]
var
var f : TextFile; // объявлена файловая переменная f типа TextFile
begin
AssignFile( f , <имя файла>); // открыть файл
Reset(f); // подготовить файл к работе
While not(eof(f)) do // пока файл не кончится выполнять цикл
begin
Read ( f, char); // посимвольное чтение
//или
Readln (f, string); // читать строку
end;
close(f); // закрыть файл
end;