styles
Trả lời 15 năm trước
Đây nè bạn,
var
f: text;
filename: string;
buf: string;
begin
Write('Nhập tên file: '); Readln(filename);
Assign(f, filename);
Reset(f);
while not eof(f) do
begin
Readln(f, buf);
Writeln(buf);
end;
Close(f);
end.
----------------------
Cho mình bổ sung chút nha
uses crt;
var
f: text;
Buf,filename: string;
i:integer;
begin
Write('Nhập tên file: '); Readln(filename);
Assign(f, filename);
Reset(f);
i:=0;
while not eof(f) do
begin
{neu chan vi van ban dai qua thi esc de thoat}
if Keypressed then if readkey=#27 then break;
Readln(f, buf);
Writeln(buf);
inc(i);
if (i mod 24 =0) then readln; {cho dung man hinh lai ay ma}
end;
Close(f);
end.