主题:告诉大家Crt单元怎么用
Crt单元对编pascal游戏起着不可缺少的作用, 下面我来讲解讲解(多顶顶!)
1、Procedure AssignCrt (Var F: Text);
AssignCrt指定一个文件F到屏幕。写入文件F一切转到屏幕代替。如果屏幕包含
一个窗口,全部写在窗口代替。注:功能接近于Writeln。
例子:
Program Example1;
uses Crt;
var
F : Text;
begin
AssignCrt(F);
Rewrite(F);
WriteLn(F,'This is written to the Assigned File');
Close(F);
end.
[fly]我QQ:1078350005, 大家一起顶啊![/fly]
1、Procedure AssignCrt (Var F: Text);
AssignCrt指定一个文件F到屏幕。写入文件F一切转到屏幕代替。如果屏幕包含
一个窗口,全部写在窗口代替。注:功能接近于Writeln。
例子:
Program Example1;
uses Crt;
var
F : Text;
begin
AssignCrt(F);
Rewrite(F);
WriteLn(F,'This is written to the Assigned File');
Close(F);
end.
[fly]我QQ:1078350005, 大家一起顶啊![/fly]