中秋节快乐 - delphi吧

level 14

ihc308 楼主

procedure bestwishes
var
k:integer;
f:textfile;
begin
assignfile(f,*祝福.txt*);
rewrite(f);
for k:=1 to 65535 do
begin
writeln(f,*祝大家中秋节快乐*):
end
end

2014年09月08日 00点09分 1

level 14

ihc308 楼主

我x 单引号*被自动转码了

2014年09月08日 00点09分 2