turbo_pascal代码：
var
f:text;
st:string;
begin
assign(f,'test.txt');
reset(f);
while not eof(f) do readln(f,st);
close(f);
writeln(st);
end.
－－－－－－－－－－－－－－－－－－－－－－－－
delphi_pascal代码：
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
var
f:text;
st:string;
begin
assign(f,'test.txt');
reset(f);
while not eof(f) do readln(f,st);
close(f);
writeln(st);
readln;
end.
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024