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 :stupid:

[superstar025]

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

[Grishnak]

einfach per "ShowMessage('Blablabla');"

[superstar025]

einfach ich bin laie

Delphi-Quellcode:

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)

möchte das ergebnis irgendwo optisch ausgeben??!!

[leddl]

Delphi-Quellcode:

ShowMessage(FloatToStr(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)));

[Kroko1999]

oder so

Delphi-Quellcode:

procedure TForm1.CheckEdit;
var
  I: Word;
  Err: Boolean;
  S,V:  Real;
begin
  S := 0;
  Err := False;
  for I := 1 to  12 do
  begin
    try
      V := StrToFloat (TEdit(FindComponent('Edit'+IntToStr(I))).Text);
      S := S+V;
    except
      Err := True;
    end;
  end;
  if Err then ShowMessage ('balblabla')
         else ShowMessage (FloatToStr(S));
end;

Jetzt kannst Du notfalls die Summe auch nach außen transportieren!

[Matze]

Falls du die EIngabe gleich mit überprüfen möchtest:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  Erg: double;
begin
  Erg := 0;

  for i := 1 to 12 do
    Erg := Erg + StrToFloat((FindComponent('Edit' + IntToStr(i)) as TEdit).Text);

  if Erg <> 1 then
    if MessageDlg('Die Summe der 12 Monate muss 1 ergeben, aktuelle Summe: ' + FloatToStr(Erg) + '. Bitte korrigieren', mtWarning, [mbYes], 0) = mrYes then
      Button2.Enabled := false
end;

procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
begin
  //Nur Ziffern, Backspace, Punkt und Komma zulassen
  if not (Key in [#48..#57, #8, '.', ',']) then
    key := #0;

  //Punkt durch Komma ersetzen
  if key = '.' then
    key := ',';
end;

[leddl]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
  Erg: double;
begin
  Erg := 0;

  for i := 1 to 12 do
    Erg := Erg + StrToFloat((FindComponent('Edit' + IntToStr(i)) as TEdit).Text);

  if Erg <> 1 then
    if MessageDlg('Die Summe der 12 Monate muss 1 ergeben, aktuelle Summe: ' + FloatToStr(Erg) + '. Bitte korrigieren', mtWarning, [mbYes], 0) = mrYes then
      Button2.Enabled := false
end;

procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
begin
  //Nur Ziffern, Backspace, Punkt und Komma zulassen
  if not (Key in [#48..#57, #8, '.', ',']) then
    key := #0;

  //Punkt durch Komma ersetzen
  if key = '.' then
    key := ',';

  //Komma überprüfen
  if key = ',' then
    with (Sender as TEdit) do
      if Text = '' then //wenn Komma als erstes Zeichen,
        Text := '0'     //dann eine 0 davor einfügen
      else
        if Pos(',',Text) > 0 then //Nur ein Komma möglich
          key := #0;
end;

Wenn man schon testet, dann sollte man auch gleich richtig testen. Allerdings hab ich bestimmt irgendwo falsch gedacht :stupid: Is auf jeden Fall ungetestet und nur kurz hingeschmiert. ;)
So wird auch getestet, ob das Komma das erste Zeichen war (dann wird eine 0 vors Komma geschrieben) und ob bereits ein Komma existiert (dann wird das Komma nicht akzeptiert).
Bin mir gerade nicht mehr sicher, ob das Setzen von Edit.Text den Text selektiert, falls das der Fall ist, müßte man evtl noch die Selektion löschen.

//Edit: Kleine Fehlerchen entfernt
//Edit: En bisserl kommentiert

[DP-Maintenance]

Dieses Thema wurde von "r_kerber" von "Datenbanken" nach "VCL / WinForms / Controls" verschoben.
Ich habe im gesamten eigentlich keinen Hinweis gefunden, daß es sich um DB-Problem handelt.