1

我正在编写一个小程序来将 TEdit 控件的内容保存在文件中。

这个想法是用户在 TEdit 控件中写一些东西，然后按下按钮在磁盘上写入文件，但是当尝试编译时我得到“unit1.pas(37,15) 错误：为调用“关闭”指定的参数数量错误"

我的表单只有 TEdit 控件和一个 TButton。

var
  Form1: TForm1;
  f: text;

procedure TForm1.Button1Click(Sender: TObject);
begin
     writeln (f,Edit1.Text);
     close (f);
end;

Begin
     assign (f,'code.txt');
     rewrite (f);
end.

我到底做错了什么？？？

4

1 回答 1

4

通过谷歌搜索，我发现了这个

Close 存在于 System unit（隐式使用）和 TCustomForm（TForm 祖先）类中。Pascal 标识符作用域规则使不合格的 Close 占据最内部的作用域。因此，如果您在 TForm 方法中调用它，则会调用 TForm 的 Close。为避免这种情况，请使用合格的调用（System.Close 从系统单元调用一个或 Self.Close 调用属于当前表单的那个）或从 ObjPas 单元（自动用于{$mode objfpc} 或 {$mode delphi})。

于 2012-07-06T19:02:07.703 回答