功能:该程序可以在pas文件隔壁自动新建一个test.txt文件,并且在这个记事本文件里自动写入"helloworld"字样。
begin
assign(output,'test.txt');
rewrite(output);
write('helloworld');
close(output);
end.
功能:该程序可以在pas文件隔壁自动寻找一个test.txt文件,并且把这个记事本文件里的内容传给一个叫s的变量。
var s:string;
begin
assign(input,'test.txt');
reset(input);
read(s);
writeln(s);
readln;
close(input);
end.