Edit-Felder auf Inhalt prüfen

[DeddyH]

Wo wird d denn ein Wert zugewiesen, vor oder nach der Formel?

[Rookie91]

vorher

[Rookie91]

Nochmal der Quellcode:

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;

[DeddyH]

Dann kann ja kein anderer Wert drinstehen, es sei denn, er wird zwischendurch wieder überschrieben oder der ItemIndex der ComboBox passt zu keinem case-Label. Gibt denn der Compiler keine Meldungen/Warnungen aus?

[Rookie91]

Habe es gerade durch Zufall herausgefunden: Der Grund war wie DeddyH schreibt der itemindex der combobox. Der stand auf -1. Bin mir sicher, dass ich daran nichts geändert habe..naja mit itemindex 0 funktionierts wieder!

Vielen Dank euch!!

[idefix2]

Aber der itemindex der Combobox hängt doch davon ab, was du anklickst, nicht vom Programm

[Sir Rufo]

Zitat von idefix2:

Aber der itemindex der Combobox hängt doch davon ab, was du anklickst, nicht vom Programm

Aber diesen Fall hat er nicht abgefragt und somit bleibt d uninitialisiert, was dann ein eher zufälliges Ergebnis produziert.

[idefix2]

Klar, er prüft ja auch sonst nichts - bloss frage ich mich, warum er sich über unsinnige Ergebnisse wundert, wenn er dem Programm nicht eingibt, was es rechnen soll...

Zitat von Rookie91:

... der itemindex der combobox. Der stand auf -1. Bin mir sicher, dass ich daran nichts geändert habe..naja mit itemindex 0 funktionierts wieder!

(unterstrichen von mir)