Z
zhangliangying
Unregistered / Unconfirmed
GUEST, unregistred user!
我用下面的一段程序来写文本，在单独的程序中可以使用。和在大程序中就出错。
var
s:string;
f:textfile;
begin
s:=expandfilename('hello.txt');
assignfile(f,s);
append(f);
writeln(f,datetimetostr(now),#9,'hello');
closefile(f);
end;
报错的的地方是在append（f），错误信息是：Too many actual parameters
请高手分析一下问题在哪里，怎么解决.
var
s:string;
f:textfile;
begin
s:=expandfilename('hello.txt');
assignfile(f,s);
append(f);
writeln(f,datetimetostr(now),#9,'hello');
closefile(f);
end;
报错的的地方是在append（f），错误信息是：Too many actual parameters
请高手分析一下问题在哪里，怎么解决.