DBEdit während der Eingabe zusammenrechnen und ausgeben

[schniede]

hallo !

Das sollte kein problem sein. Im Onchange ereignis der Kompo. die formel angeben und abfangen falls das feld noch ein nullstring ist:


etwa so

Code:

procedure TForm1.Edit1Change(Sender: TObject);
begin
 if edit1.Text = '' then
 edit1.Text:='0';
 if edit2.Text = '' then
 edit2.Text:='0';

 edit3.Text:=inttostr(strtoint(edit1.text) + strtoint(edit2.text));
end;

procedure TForm1.Edit2Change(Sender: TObject);
begin
if edit1.Text = '' then
edit1.Text:='0';
if edit2.Text = '' then
edit2.Text:='0';

edit3.Text:=inttostr(strtoint(edit1.text) + strtoint(edit2.text));
end;

mußt natürlich noch buchstaben und der gleichen abfangen


mfg schniede