ice_thunder
Grünschnabel
Ich bin gerade dabei einen taschenrechner zu schreiben und ich möchte das ein panel(name=panel1) simultan anzeigt was im editfeld(name=edit1) geschrieben wird. Das war auch kein großes problem. Nun kann es aber sein das im panel1 schon was steht und der text einfach hinzugefügt werden soll das hab ich dan so gemacht:
procedure TForm1.Edit1Change(Sender: TObject);
begin
panel1.Caption:=panel1.Caption+edit1.Text;
end;
aber jetzt hab ich das problem das, wenn ich eine 2 stellige zahl in das edit feld eintrage er insgesamt drei zahlen in das panel schreibt. Z.B. ich schreibe 23 in das editfeld und im panel addiert er zuerst die 2 und wenn ich die drei eingegeben habe addiert er 23 also insgesamt 223 und nicht 23. Gibt es irgendeine Möglichkeit zu verhindern das er die 2 zweimal schreibt?
procedure TForm1.Edit1Change(Sender: TObject);
begin
panel1.Caption:=panel1.Caption+edit1.Text;
end;
aber jetzt hab ich das problem das, wenn ich eine 2 stellige zahl in das edit feld eintrage er insgesamt drei zahlen in das panel schreibt. Z.B. ich schreibe 23 in das editfeld und im panel addiert er zuerst die 2 und wenn ich die drei eingegeben habe addiert er 23 also insgesamt 223 und nicht 23. Gibt es irgendeine Möglichkeit zu verhindern das er die 2 zweimal schreibt?