ladebalken beim laden von Wörterbuch

[Sko]

hmm... ich würde das mit dem Ladebalken so machen:

Delphi-Quellcode:

var i : Integer;
begin
  Virtlist := TStringlist.Create;
  Virtlist.LoadFromFile(ExtractFilePath(ParamStr(0))+ 'buch.txt');
  vlis := explode('*', Virtlist[0]);
  vlis1 := explode('*', Virtlist[0]); //vlis1 hat die korrekten werte;
  LadeLeiste.Max := high(vlis); //LadeLeiste = ProgressBar
  for i := low(vlis) to high(vlis) do
  begin
    vlis[i] := sortWirrWarr(vlis[i]);
    LadeLeiste.Position := i;
  end;
  LadeLeiste.Position := 0; //wenn fertig dann die Leiste auch wieder zurücksetzen

Ist nicht getestet, hab ich grad "live" geschrieben