nee ^^ ... musst wissen das ich noch delphi anfänger bin.
aber habs jetzt auch ganz ohne boolean hinbekommen weil er zwar die anwendung gestartet, sich dann aber bei der rechnung gehangen hat.
so funktionierts ohne probleme
Code:
procedure TForm1.Button1Click(Sender: TObject);
var a: integer;
begin
memo1.Clear;
a := 0 ;
repeat
v[a] := FloatToStr((Volumenstrom * 4) / ( StrToInt(d[a]) * 3.1416 * 1000 ));
memo1.Lines.add(v[a]);
inc (a);
until
a = j
end;