Boolean fehler

[Medium]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
const
  K = 0.00127323954473; // ~= 4 / (PI*1000)
var
  a: integer;
begin
  memo1.Clear;
  for a := 0 to j do
    memo1.Lines.add(FloatToStr((Volumenstrom*K)/StrToInt(d[a])));
end;

Edit: Hallo roter Kasten, hallo Luckie
Edit2: An der Formel bissl gedreht. Weitgehend Kosmetik.

[Luckie]

Wo kommt j und das Array d her?

Delphi-Quellcode:

for a := 0 to Length(d) - 1  do
  memo1.Lines.add(FloatToStr((Volumenstrom*K)/StrToInt(d[a])));

Schon brauchen wir J nicht mehr.

Und Laufvariablen benennt man üblicherweise (aus historischen Gründen) mit i.

Und was spricht dagegen das jetzt zu verbessern? Das erhöht die Lesbarkeit- und Verständlichkeit.

[isilive]

Zitat:

Delphi-Quellcode:

for a := 0 to Length(d) - 1  do
  memo1.Lines.add(FloatToStr((Volumenstrom*K)/StrToInt(d[a])));

Delphi-Quellcode:

var i:integer
    d:double;
begin
for i := 0 to Length(d) - 1  do
  begin
    d:=StrToInt(d[i]);
    memo1.Lines.add(FloatToStr((Volumenstrom*K)/(d*d)));
  end;
end;

Du kannst bei jedem Schleifendurchlauf d "einlesen" und verwenden, oder - was noch eleganter wäre - d[] überhaupt als array of double statt array of string machen - nachdem ja eh nur Zahlen drinstehen. Wobei ich jetzt den Rest deines Programms nicht kenne.