TPanel als Sender Casten

[DeddyH]

Sagt der Compiler nichts dazu? Ich würde da beherzt noch ein begin und end einfügen.

Delphi-Quellcode:

procedure TForm1.PanelNumberClick(Sender: TObject);
var
  Panelcap   : string;
begin
  if Sender is Tpanel then
    begin
      Panelcap := TPanel(Sender).caption;
      resultedit.Text := (resultedit.Text + Panelcap);
    end;
end;

[Delphi.Narium]

Die ursprüngliche Variante ist so schon ok, aber mit begin und end sicherlich "schöner" (verständlicher). Es würde aber auch so ausreichen:

Delphi-Quellcode:

procedure TForm1.PanelNumberClick(Sender: TObject);
begin
  if Sender is TPanel then resultedit.Text := resultedit.Text + TPanel(Sender).Caption;
end;

Die Caption des Panels muss nicht erst in eine Variabel übernommen werden, die dann an den Text angehängt wird.