![]() |
Edit Felder
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 |
Re: Edit Felder
StrToInt()
|
Re: Edit Felder
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 |
Re: Edit Felder
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!!??? |
Re: Edit Felder
Welche Fehlermeldung?
|
Re: Edit Felder
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? |
Re: Edit Felder
die fehlermeldung mein ich die messagebox.
aber wie kann ich denn hier mit komma arbeiten
Delphi-Quellcode:
die daten werden in kommawerten eingegeben z.b. 0,1000
StrToFloat(edit11.Text)+
StrToFloat(edit12.Text) <> 1.0000) |
Re: Edit Felder
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! :) |
Re: Edit Felder
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 :stupid: |
Re: Edit Felder
wie kann ich mir das ergebnis der edit felder mal ausgeben lassen irgendwo in einer combobox oder grid oder so!???
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 17:31 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz