Wörterbuch Datei

[Delphi-Narr]

Delphi-Quellcode:

 var 
  SL:TStringlist;
  i:integer; 
begin 
  if FileExists(vOrt) then 
    begin 
      SL := TStringList.Create; 
      {ProgressBar1.Step:=SL.Count-1;}
      try 
        SL.LoadFromFile(vOrt);//Datei wird in die Liste geladen 
        for i:=1 to SL.Count-1 do
        begin
        SL[i] := StringReplace(SL.Text,' :: ',sLineBreak,[rfReplaceAll]);
        Progressbar1.StepBy(1);
        end; 
        SL.SaveToFile(vZiel); 
      finally 
        SL.Free; 
      end;
    end; 
end;

So? Wenn ich das so mache (Steps der ProgressBar sind auf 100) Passiert nichts. Ich lad mal eine andere Datei da rein, die nur einen Ausschnitt davon enthält


Edit:

Aus:

[wir/sie/Sie] passten :: [we/they/you] were suitable
[wir/sie/Sie] rieben :: [we/they/you] rubbed
[wir/sie/Sie] sangen :: [we/they/you] sang
[wir/sie/Sie] saßen :: [we/they/you] sat
[wir/sie/Sie] schrieben :: [we/they/you] wrote
[wir/sie/Sie] schwammen :: [we/they/you] swam
[wir/sie/Sie] schwitzen :: [we/they/you] are transpiring [perspiring, sweating]
[wir/sie/Sie] sind / waren gewesen :: [we/they/you] have / had been
[wir/sie/Sie] sind :: [we/they/you] are
[wir/sie/Sie] sind Bankrott erklärt worden :: [we/they/you] have been adjudged bankrupt
[wir/sie/Sie] sind Bankrott erklärt worden :: [we/they/you] have been declared bankrupt
[wir/sie/Sie] sind berechtigt zu :: [we/they/you] shall be entitled to




Wird (Die ersten 79 Zeilen

[wir/sie/Sie] passten :: [we/they/you] were suitable
[wir/sie/Sie] passten
[we/they/you] were suitable
[wir/sie/Sie] rieben
[we/they/you] rubbed
[wir/sie/Sie] sangen
[we/they/you] sang
[wir/sie/Sie] saßen
[we/they/you] sat
[wir/sie/Sie] schrieben
[we/they/you] wrote
[wir/sie/Sie] schwammen
[we/they/you] swam
[wir/sie/Sie] schwitzen
[we/they/you] are transpiring [perspiring, sweating]
[wir/sie/Sie] sind / waren gewesen
[we/they/you] have / had been
[wir/sie/Sie] sind
[we/they/you] are
[wir/sie/Sie] sind Bankrott erklärt worden
[we/they/you] have been adjudged bankrupt
[wir/sie/Sie] sind Bankrott erklärt worden
[we/they/you] have been declared bankrupt
[wir/sie/Sie] sind berechtigt zu
[we/they/you] shall be entitled to

[wir/sie/Sie] passten
[we/they/you] were suitable
[wir/sie/Sie] passten
[we/they/you] were suitable
[wir/sie/Sie] rieben
[we/they/you] rubbed
[wir/sie/Sie] sangen
[we/they/you] sang
[wir/sie/Sie] saßen
[we/they/you] sat
[wir/sie/Sie] schrieben
[we/they/you] wrote
[wir/sie/Sie] schwammen
[we/they/you] swam
[wir/sie/Sie] schwitzen
[we/they/you] are transpiring [perspiring, sweating]
[wir/sie/Sie] sind / waren gewesen
[we/they/you] have / had been
[wir/sie/Sie] sind
[we/they/you] are
[wir/sie/Sie] sind Bankrott erklärt worden
[we/they/you] have been adjudged bankrupt
[wir/sie/Sie] sind Bankrott erklärt worden
[we/they/you] have been declared bankrupt
[wir/sie/Sie] sind berechtigt zu
[we/they/you] shall be entitled to

[wir/sie/Sie] sangen
[we/they/you] sang
[wir/sie/Sie] saßen
[we/they/you] sat
[wir/sie/Sie] schrieben
[we/they/you] wrote
[wir/sie/Sie] schwammen
[we/they/you] swam
[wir/sie/Sie] schwitzen
[we/they/you] are transpiring [perspiring, sweating]
[wir/sie/Sie] sind / waren gewesen
[we/they/you] have / had been
[wir/sie/Sie] sind
[we/they/you] are
[wir/sie/Sie] sind Bankrott erklärt worden
[we/they/you] have been adjudged bankrupt
[wir/sie/Sie] sind Bankrott erklärt worden
[we/they/you] have been declared bankrupt
[wir/sie/Sie] sind berechtigt zu
[we/they/you] shall be entitled to

[wir/sie/Sie] passten
[we/they/you] were suitable
[wir/sie/Sie] passten
[we/they/you] were suitable
[wir/sie/Sie] rieben


Die ganze Datei hat ca. 50000 Zeilen, in 5-10 Sekunden erstellt... Die sollte aber eigentlich nur 24 haben.