Hai Sebastian,
ersteinmal: "Herzlich Willkommen in der Delphi-PRAXiS"
Wie fkerber schon sagte kann es besser sein wenn Du die Edits als Parameter übergibst. Wenn Du das ganze dann noch als Array of TEdit machst kannst Du auch eine unterschiedliche Anzahl übergeben. Aber genau kann man das nur sagen wenn man weiss was Du machen möchtest
Hier mal ein Stück code als Beispiel:
Delphi-Quellcode:
unit U_Global;
interface
uses
Forms, StdCtrls;
procedure EditClear(aEdits:
array of TEdit);
implementation
procedure EditClear(aEdits:
array of TEdit);
var
ndx: Integer;
begin
for ndx := Low(aEdits)
to High(aEdits)
do
begin
aEdits[ndx].Clear;
end;
end;
end.
Das ist die zentrale Procedure und wird dann so in den Forms aufgerufen:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
EditClear([Edit1,Edit2,Edit3]);
end;
procedure TForm2.Button1Click(Sender: TObject);
begin
EditClear([Edit1,Edit3]);
end;