ladebalken beim laden von Wörterbuch

[Nicodius]

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.MaxValue := high(vlis); //LadeLeiste = ProgressBar
  for i := low(vlis) to high(vlis) do
  begin
    vlis[i] := sortWirrWarr(vlis[i]);
    LadeLeiste.Progress := i;
    Application.ProcessMessages;
  end;
  LadeLeiste.Progress := 0; //wenn fertig dann die Leiste auch wieder zurücksetzen

/edit

so bin ja draufgekommen das bei explode das problem ist

aber explode funktion kann ich den code nirgendwo einbauen

Delphi-Quellcode:

function Explode(const Separator, S: string; Limit: Integer = 0): TStringDynArray;
var
  SepLen: Integer;
  F, P: PChar;
  ALen, Index: Integer;
begin
  SetLength(Result, 0);
  if (S = '') or (Limit < 0) then Exit;
  if Separator = '' then
  begin
    SetLength(Result, 1);
    Result[0] := S;
    Exit;
  end;
  SepLen := Length(Separator);
  ALen := Limit;
  SetLength(Result, ALen);

  Index := 0;
  P := PChar(S);
  while P^ <> #0 do
  begin
    F := P;
    P := AnsiStrPos(P, PChar(Separator));
    if (P = nil) or ((Limit > 0) and (Index = Limit - 1)) then P := StrEnd(F);
    if Index >= ALen then
    begin
      Inc(ALen, 5);
      SetLength(Result, ALen);
    end;
    SetString(Result[Index], F, P - F);
    Inc(Index);
    if P^ <> #0 then Inc(P, SepLen);
  end;
  if Index < ALen then SetLength(Result, Index);
end;

keine ahnung wie ichs machen soll

grüße Nico =)