edit1.....edit20 nacheinander zuweisen?

[marabu]

Moin,

das mit dem Array ist eine gute Idee:

Delphi-Quellcode:

procedure SetEditText(owner: TComponent; const value: string); overload;
var
  i: Integer;
begin
  with owner do
    for i := 0 to Pred(ComponentCount) do
      if Components[i] is TEdit then
        TEdit(Components[i]).Text := value;
end;

procedure SetEditText(parent: TWinControl; const value: string); overload;
var
  i: Integer;
begin
  with parent do
    for i := 0 to Pred(ControlCount) do
      if Controls[i] is TEdit then
        TEdit(Controls[i]).Text := value;
end;

procedure TDemoForm.OwnerButtonClick(Sender: TObject);
begin
  with Sender as TButton do
    SetEditText(TComponent(self), Caption);
end;

procedure TDemoForm.ParentButtonClick(Sender: TObject);
begin
  with Sender as TButton do
    SetEditText(TWinControl(self), Caption);
end;

Zum Testen einfach ein paar Edits auf der Form verteilen, davon ein paar auf ein Panel legen.

Grüße vom marabu