Prozedur in mehreren Formularen verwenden

[Sharky]

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;