Fortschritt darstellen

[Binärbaum]

Vielleicht wäre es so besser:

Delphi-Quellcode:

procedure listefuellen;
var a: array of integer;//dynamisches Array
    check, n, i: integer;
begin
  n:= strtoint(Edit1.Text);
  Randomize;
  check:= n div 10;
  SetLength(a, n);//Länge festlegen  

  for i:=1 to n do
  begin
    a[i-1]:=random(n+10);
    if(j>=1*check) then image_fort1.Visible:=true;
    if(j>=2*check) then image_fort2.Visible:=true;
    if(j>=3*check) then image_fort3.Visible:=true;
    if(j>=4*check) then image_fort4.Visible:=true;
    if(j>=5*check) then image_fort5.Visible:=true;
    if(j>=6*check) then image_fort6.Visible:=true;
    if(j>=7*check) then image_fort7.Visible:=true;
    if(j>=8*check) then image_fort8.Visible:=true;
    if(j>=9*check) then image_fort9.Visible:=true;
    if(j>=10*check) then image_fort10.Visible:=true;
    memo1.lines.add(inttostr(a[i-1]));
  end; //for-Schleife
end; //LISTEFÜLLEN

IMHO ist es aber mit einer Progressbar-Komponente einfacher (und auch eleganter), den Fortschritt anzuzeigen. Auch dieses if(j>=1*check) then ... könnte man anders lösen.

MfG
Binärbaum