code: #delphi
var f:text;
s:string;
...
AssignFile(f,'file.txt');
Reset(f);
while not EOF(f) do begin
readln(s);
end;
CloseFile(f);
code: #delphi
var f:text;
s:string;
...
AssignFile(f,'file.txt');
Reset(f);
while not EOF(f) do begin
readln(s);
end;
CloseFile(f);