Taschenrechner in der Schule

[Nothine]

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