|
Registriert seit: 5. Jul 2004
Ort: Beelen
140 Beiträge
Delphi 7 Professional
|
Re: Edit Felder
28. Sep 2005, 13:40
if (StrToFloat(edit1.Text)+
StrToFloat(edit2.Text)+
StrToFloat(edit3.Text)+
StrToFloat(edit4.Text)+
StrToFloat(edit5.Text)+
StrToFloat(edit6.Text)+
StrToFloat(edit7.Text)+
StrToFloat(edit8.Text)+
StrToFloat(edit9.Text)+
StrToFloat(edit10.Text)+
StrToFloat(edit11.Text)+
StrToFloat(edit12.Text) <> 1.0000)
then if messagedlg ('Die Summe der 12 Monate muss 1 ergeben. Bitte korrigieren', mtWarning, [mbYes], 0) = mrYes
then
begin button2.Enabled:=false
end;
das ist mein code jedoch wenn ich von edit1 bis edit10 jeweil 0,1 eintrage springt er immer noch in die fehlermeldung!!!
woran kann das liegen!!???
Matthias
|