Zitat von
3_of_8:
Probiers mit TEdit.OnChange.
Sehe ich das richtig das ich des bei allen Edit Boxen?
Wie würde des zb. hier bei aussehen:
Delphi-Quellcode:
begin
prodiri := strtofloat(edit1.Text);
prodhol := strtofloat(edit4.text);
prodo2 := strtofloat(edit5.text);
bbt := strtofloat(edit2.text);
wk := strtofloat(edit3.text);
iri := prodiri * (Power(1 + 5/100, bbt));
hol := prodhol * (Power(1 + 5/100, bbt));
o2 := prodo2 * (Power(1 + 5/100,wk));
iri2 := iri + (iri/100*55);
hol2 := hol + (hol/100*55);
o22 := o2 + (o2/100*55);
label1.Caption := floattostr(iri2);
label2.Caption := floattostr(hol2);
label4.Caption := floattostr(o22);
end;