[gelöst] Das Thema Taschenrechner

[angos]

puh, nimms mir nicht böse, aber ich weis warum du da niocht unbedingt durchkommst. tipp: benenne alle deine Buttons, edits und anderen Komponenten um (zB btn1, btn2, btnPlus, btnGleich,....)

Delphi-Quellcode:

procedure TTaschenrechner.Button1Click(Sender: TObject);
begin
// Eingabe.Text[1] ist ein String und sollte dann auch als solcher abgefragt werden. Wenn eingabe.text ='' ist wird diese Funktion // eine Exception hervorrufen, das solltest du abfangen (zB if Length(eingabe.text) >= 1 then...)
if Eingabe.Text[1]='0' then  // vorher: if Eingabe.Text[1]=0 then
begin
  Button16.Enabled:= false;
end
else
  Button16.Enabled:=true;
Eingabe.Text:= Eingabe.Text+TButton(Sender).Caption[1];
end;

für dein Problem mache dir die funktion OnChange von dem Edit zu Nutzen.

Delphi-Quellcode:

procedure TTaschenrechner.eingabeChange(Sender: TObject);
begin
  if Eingabe.Text = '00' then Eingabe.Text := '0';
end;