Edit Felder

[superstar025]

Ich möchte eine Kontrolle einfügen das wenn ich ein feld verlassen z. b. edit10 soll überprüft werden ob die summe der Edit 1 bis edit5 genau 1,0000 ergibt.

jedoch weiss ich nicht wie ich richtig die felder addiere und die abfrage im delphi syntax ist

edit1.text + edit2.text <>1.000

????
kann mir dort jemand weiter helfen!!!??

mfg

matthias

[Grishnak]

StrToInt()

[marabu]

Hi,

besser noch: StrToFloat()

Als mich einmal ein Kollege so fragte, kam heraus, dass er eine Plausi-Kontrolle für Erbschaftsteile einführen wollte. Klar dass die Summe 1 ergeben sollte. Ich habe den Code dann auf Bruchrechnung umgestellt, das Rechnen mit Gleitkommazahlen war eher ein Ärgernis. Hoffentlich stolperst nicht auch du über Rundungsfehler.

Grüße vom marabu

[superstar025]

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!!???

[Matze]

Welche Fehlermeldung?

[dfried]

Zwei mögliche Ursachen für den Fehler fallen mir da spontan ein:

1. du solltst prüfen, ob in dem Feld überhaupt was drinsteht
2. du musst aufpassen mit "." und "," für das Dezimaltrennzeichen

Ansonsten kann ich Matze nur wiederholen: Welche Fehlermeldung kommt denn?

[superstar025]

die fehlermeldung mein ich die messagebox.

aber wie kann ich denn hier mit komma arbeiten

Delphi-Quellcode:

 StrToFloat(edit11.Text)+
StrToFloat(edit12.Text) <> 1.0000)

die daten werden in kommawerten eingegeben z.b. 0,1000

[Grishnak]

Es könnte aber auch an einem Rundungsproblem liegen! Wenn ein Computer (der ja grundsätzlich gar nicht mit Fließkommazahlen rechnen kann) zehnmal 0,1 aufaddiert, dann muss das nicht zwangsläufig genau 1,00000 ergeben! Lass das Ergebnis doch einfach mal ausgeben. Evtl. musst du auf (summe - 1.0) < 0.0001 (o.ä.) prüfen.

Eine andere Möglichkeit ist es, gar nicht erst mit Fließkommazahlen zu rechnen, sondern das ganze in Teile aufzustückeln. (Bsp.: A bekommt 3 Teile, B bekommt 1 Teil, C bekommt 5 Teile. Das Programm errechnet, wie viele Teile insgesammt benötigt werden (hier: 9) und Teile dann entsprechend auf: BetragFürA:=TeileFürA*GesamtBetrag/SummeDerTeile). Hoffe, das ist einigermaßen verständlich!

[leddl]

Ich hab bisher mit Datenbanken und Datenbankkomponenten noch nicht wirklich viel gearbeitet. Aber da es sich hier ja anscheinend um Integer- oder Floatwerte aus einer DB in DBEdit-Feldern handelt: Kann es evtl sein, daß da eine Besonderheit der Komponenten besteht?
Falls nicht, hat das ganze Problem ja herzlichst wenig mit der Datenbanken-Sparte zu tun und könnte ohne Weiteres verschoben werden

[superstar025]

wie kann ich mir das ergebnis der edit felder mal ausgeben lassen irgendwo in einer combobox oder grid oder so!???