Löschen Button nur einmal implementieren

[Uwe Raabe]

Wenn die Namensgebung so oder zumindest prinzipiell so bleibt:

Delphi-Quellcode:

procedure TForm1.AllButtonsClick(Sender: TObject);
begin
  (FindComponent('Edit' + Copy((Sender as TButton).Name, 7, MaxInt)) as TEdit).Clear;
end;

Ist aber halt alles sehr unschön.

Alternative, wenn auch optisch anders, wäre die Buttons rauszunehmen und mehrere TButtonedEdit Controls, deren linker oder rechter Button (mit passendem Bildchen) zum Löschen verwendet wird:

Delphi-Quellcode:

procedure TForm1.AllButtonedEditsRightButtonClick(Sender: TObject);
begin
  (Sender as TButtonedEdit).Clear;
end;