Вызовите внешние переменные внутри функции?

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 

Когда я поставил код ниже в мой сценарий, я получаю не объявлены переменные ошибки (как я зову переменные, которые не декларируются в моем сценарии), но реальность ISN «т.

Все переменные работают правильно внутри процедур, но не внутри функций?

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, то вы, вероятно, следует сделать ShowTForm2 метод. Тем не менее, Show - это плохой выбор имени, поскольку он уже является методом TForm.

---

я догадывался типа для password, но, возможно, она должна быть AnsiString судя по типу литья, что происходит в MD5.Update вызова. Или, возможно, Length должно быть ByteLength. Другими словами, я подозреваю, что у вас есть ошибка в строке MD5.Update, которая откроется, как только вы получите код для компиляции.

Answer 2

Function в Delphi не может быть без возврата.
Попробуйте сделать это в Procedure.
Также вы не упомянули базовый класс для замедления функции.
Попробуйте

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;