Ereignisse

[Cr3at0r]

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;