Question

我正在寻找的是将过程变量与另一个使用指针的过程一起使用。

示例：

Procedure Test1;
var
Word:String;
begin
Form1.Caption:=Word;
end;

Procedure TForm1.Button1Click(Sender: TObject);
begin
^Word:='Form1';
Test1;
end;

Answer 1

您不能在另一个过程的局部变量存在之前就对其进行修改。在您的示例中，只需使用输入参数即可：

Procedure Test1(const Word: string);
begin
  Form1.Caption := Word;
end;

Procedure TForm1.Button1Click(Sender: TObject);
begin
  Test1('Form1');
end;

否则，请将成员添加到TForm1类中：

type
  TForm1 = class(TForm)
    ...
  public
    Word: string;
    ...
  end;

...

Procedure Test1;
begin
  Form1.Caption := Form1.Word;
end;

Procedure TForm1.Button1Click(Sender: TObject);
begin
  Word := 'Form1';
  Test1;
end;

指向另一个过程变量

1 个答案: