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;