在函数内调用外部变量？

Question

我想将 Button1Click 事件处理程序的代码包装到名为 Show() 的函数中，以便稍后重用它。

事件处理程序代码：

procedure TForm2.Button1Click(Sender: TObject);
begin
  email := Form1.ed_Email.Text;
  password := Form1.Ed_typedpass.Text;

  MD5 := GetMD5;
  MD5.Init;
  MD5.Update(TByteDynArray(RawByteString(password)), Length(password));

  password := LowerCase(MD5.AsString);

end

当我将下面的代码放入脚本中时，我收到未声明的变量错误（因为我正在调用脚本中未声明的变量），但事实并非如此。

所有变量在程序内都能正常工作，但在函数内却不能正常工作？

function Show();
begin
  email := Form1.ed_Email.Text;
  password := Form1.Ed_typedpass.Text;

  MD5 := GetMD5;
  MD5.Init;
  MD5.Update(TByteDynArray(RawByteString(password)), Length(password));

  password := LowerCase(MD5.AsString);
end;

Answer 1

看起来您正在尝试在整个代码中应该使用局部变量的地方使用全局变量或成员变量。不要那样做。这是一种不好的做法，会给你将来带来巨大的痛苦。在以错误的方式编写太多代码之前改掉这个坏习惯。

尽可能使用局部变量。

procedure Show;
var
  email: string;
  password: string;
  MD5: TMD5;
begin
  email := Form1.ed_Email.Text;
  password := Form1.Ed_typedpass.Text;

  MD5 := GetMD5;
  MD5.Init;
  MD5.Update(TByteDynArray(RawByteString(password)), Length(password));
  password := LowerCase(MD5.AsString);
end;

我必须猜测 MD5 的类型，但您可以用实际类型替换它。

如果您确实需要使用成员，则可以将它们作为参数传递给该方法，或者使该过程成为拥有这些成员的表单类的方法。

这些变量似乎是 TForm2 的成员，如果您确实需要它们成为 TForm2 的成员，那么您可能应该将 Show 设为 <代码>TForm2方法。也就是说，Show 是一个错误的名称选择，因为它已经是 TForm 的一个方法。

---

我还猜测了 password 的类型，但从 MD5.Update 中进行的类型转换来看，它可能需要是 AnsiString称呼。或者，也许 Length 应该是 ByteLength。换句话说，我怀疑 MD5.Update 行中有一个错误，一旦您编译代码，该错误就会暴露出来。

Answer 2

Delphi 中的函数 不能没有返回类型。
尝试将其变成程序。
另外，您还没有提到函数减速的基类。
试试这个

Procedure TForm1.Show();//TForm2 based on your decelaration
begin

 email := Form1.ed_Email.Text;
 password := Form1.Ed_typedpass.Text;

 MD5 := GetMD5;
 MD5.Init;
 MD5.Update(TByteDynArray(RawByteString(password)), Length(password));
 password := LowerCase(MD5.AsString);
end;