Pascal文件读写(2)

var s:string;

begin

assign(input,'test.txt');
reset(input);
read(s);
writeln(s);
readln;
close(input);

end.

版权声明：本文为博主原创文章，未经博主允许不得转载。