Hey,
ich weiß leider nicht, was mit formatieren gemeint ist
https://de.wikipedia.org/wiki/Quelltextformatierung
Kurz gefasst die Strukturierung des Quelltextes zur besseren Les- und Wartbarkeit
Ich habe das mal für deinen geposteten Quelltext versucht...
Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
var
V, Dichte, n, Re, Laenge, Ergebnis, d: Double;
Ausgabe: string;
begin
V:= StrToFloat(edit1.text)/1000;
Dichte:= StrToFloat(edit11.text);
n:= StrToFloat(edit10.Text)/1000000;
Ausgabe:= 'Berechnung fehlgeschlagen';
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!');
if not TryStrToFloat(edit1.Text, V) then
begin
showmessage('Werte für Volumenstrom und Länge eingeben!');
edit1.SetFocus;
edit1.SelectAll;
end
else if not TryStrToFloat(edit2.Text, Laenge) then
begin
showmessage('Werte für Volumenstrom und Länge eingeben!');
edit2.SetFocus;
edit2.SelectAll;
end
else begin
Ergebnis:= 40.744/1000000/d/d/d/d*StrToFloat(edit10.Text)*StrToFloat(edit1.Text)*StrToFloat(edit2.text);
Ausgabe := FloatToStr(Ergebnis);
end;
edit3.text:= Ausgabe;
if Re >=2320 then
begin
edit3.text:= 'Berechnung fehlgeschlagen';
end;
end;
end;
Dabei sieht man dann unter anderem, dass der gesamte Codeblock nach
if Re >= 2320 then
auch nur in diesem Falle ausgeführt wird.