Edit-Felder auf Inhalt prüfen

[Rookie91]

Bevor ich mich daran nochmal versuche, möchte ich aber, dass die Rechnung wieder einwandfrei läuft und ich das ganze dann nochmal abspeichern kann. Was ist denn jetzt daran falsch?:

Delphi-Quellcode:

procedure TForm2.Button1Click(Sender: TObject);
var d,V,Dichte,n,Re: real;
begin
V:= StrToFloat(edit1.Text)/1000;
Dichte:= StrToFloat(edit11.Text);
n:= StrToFloat(edit10.Text)/1000000;
case combobox2.ItemIndex of
0: d:= 0.01;
1: d:= 0.012;
2: d:= 0.015;
3: d:= 0.02;
4: d:= 0.025;
5: d:= 0.032;
6: d:= 0.04;
7: d:= 0.05;
8: d:= 0.06;
9: d:= 0.065;
10: d:= 0.08;
11: d:= 0.1;
end;
Re:= 4*V*Dichte/d/n/3.1416;

if Re >= 2320 then begin ShowMessage('Es liegt keine laminare Strömung mehr vor! Reduziere den Volumenstrom und/oder erhöhe den Rohrdurchmesser!'); end;

edit3.text:=  FloatToStr(40.744/d/d/d/d*n*V*StrToFloat(edit2.text));

if Re >=2320 then begin edit3.text:= 'Berechnung fehlgeschlagen'; end;

end;

[mkinzler]

Es wurden Dir achon viele Tipps gegeben, welche Du einfach so in den Wind schreibst (Formatierung Try<Typ>To<Typ> usw.)

[SProske]

Welche Programmierumgebung verwendest du denn? Bist du schonmal über den Debugger Schritt für Schritt durchgegangen?
Was genau läuft nicht so, wie es soll?

[zeras]

Zitat von SProske:

Bist du schonmal über den Debugger Schritt für Schritt durchgegangen?
Was genau läuft nicht so, wie es soll?

Das hatte ich auch schon gesagt, aber offensichtlich überliest er solche Hinweise.

[SProske]

Na vielleicht erhalten wir ja diesmal eine Antwort, anhand deren man weiterhelfen kann.

[Rookie91]

Debugger durchgehen?

Also wenn ich das Programm laufen lasse und berechnen will (also die Rechnung, in der Edit1 und Edit2 benutzt werden und in Edit3 das Ergebnis gezeigt wird) zeigt er mir das hier: "Re:= 4*V*Dichte/d/n/3.1416;" rot an. Dazu die Meldung "floating point overflow". Wenn ich F8 drücke (ist das mit debuggen gemeint?) zeigt er mir noch folgendes rot an: "if Re >=2320 then begin edit3.text:= 'Berechnung fehlgeschlagen'; end;".

Hab den gleichen Quellcode in eine ältere Version des Programms kopiert, da läufts einwandfrei.

Danke, dass ihr mich noch nicht aufgegeben habt

[SProske]

Nochmals die Frage, welche Programmierumgebung.. Lazarus? Delphi?

Du solltest, wenn du auf die Leiste links des Quelltextes klickst, einen Haltepunkt setzen können. Der Debugger sollte dann an dieser Stelle anhalten und du solltest sehen können, welche Werte die Variablen zu diesem zeitpunkt haben. Das erklärt dann möglicherweise schon den Fehler..

[Rookie91]

Ich benutze Delphi7.

Ok also ich setze den Haltepunkt, die Zeile ist dann mit einem roten Punkt markiert. Dann starte ich mit F9. Wenn ich dann berechnen will, dann kommt wieder die gleiche Fehlermeldung wie beschrieben mit den rot markierten Formeln.