Als weitere Erleichterung könntest du allen Button dasselbe Onclick-Event zuweisen und in diesem dann ungefähr wie folgt vorgehen:
Delphi-Quellcode:
procedure TForm1.UniversellerButtonClick(Sender: TObject);
begin
if Sender is TButton then
begin
if TButton(Sender).Caption='C' then
rechenzeileE.Caption:=''
else
rechenzeileE.Caption := rechenzeileE.Caption + TButton(Sender).Caption;
end;
end;
Das nur mal als
eine Anregung. Wenn du mehr programmierst wirst du auch irgendwann feststellen, dass es vllt. sinnvoll ist, die Information, die du z.Zt. in rechenzeileE.Caption (also einer Komponente der
GUI) speicherst besser in einer Variablen aufgehoben wäre.