im moment ist es nur möglich eine zahl einzugeben, das würde sich dadurch lösen lassen das du folgendes machst:
Delphi-Quellcode:
procedure TRechner.EinsBtnClick(Sender: TObject);
begin
if Eingabe1Edt.Text <> '0' then // wenn schon zahl vorhanden, anfügen
Eingabe1Edt.Text := Eingabe1Edt.Text + '1'
else // ansonsten ersetzen
Eingabe1Edt.Text := '1'; // | <-- original
end;
procedure TRechner.ZweiBtnClick(Sender: TObject);
begin
if Eingabe1Edt.Text <> '0' then // wenn schon zahl vorhanden, anfügen
Eingabe1Edt.Text := Eingabe1Edt.Text + '2'
else // ansonsten ersetzen
Eingabe1Edt.Text := '2'; // | <-- original
end;
...
wenn man sich das genau ansieht sieht man sogar das es mehr oder weniger immer das selbe ist, du kannst also EinsBtnClick, ZweiBtnClick etc. zu einer einzigen BtnClick-Prozedur zusammenfassen, und die Caption benutzen um zu bestimmen welche zahl angefügt werden soll
Delphi-Quellcode:
procedure TRechner.EinsBtnClick(Sender: TObject);
begin
if Eingabe1Edt.Text <> '0' then // wenn schon zahl vorhanden, anfügen
Eingabe1Edt.Text := Eingabe1Edt.Text + TButton(Sender).Caption
else // ansonsten ersetzen
Eingabe1Edt.Text := TButton(Sender).Caption;
end;
edit: da schreibt man mal was, bleibt mitten drin stehn und geht für paar stunden weg, und schon schreibt da jemand anders auch etwas (kann zwar nich jeder lesen, aber ok) was die lösung sein könnte
