Problem mit einlesen von datei

[Dragon27]

Hallo (mal wieder )

Boah ich kann echt nimmer! Ich probier jetzt scho ein paar Tage an dieser Procedure rum:

Delphi-Quellcode:

Var
  flStrList: TStringList;
  FileName: String;
  Zahl, StartPos: Integer;
  istartpos:integer;
Begin
  If Not form1.opendialog1.Execute Then Exit;
  FileName := form1.OpenDialog1.FileName;

  flStrList := TStringList.Create;

  Try
    flStrList.LoadFromFile(FileName); // Bis hierher ladet er die Datei (Kein Problem)
    Zahl := -1;
    While Zahl < pred(flStrList.Count) Do
    Begin
      inc(Zahl)
           iStartPos := Pos(#32, flStrList[Zahl]); // Ab hier beginnt das Problem
   while flStrList[Zahl][iStartPos] = #32 do inc(iStartPos);

      flStrList[Zahl] := Copy(flStrList[Zahl], StartPos, Length(flStrList[Zahl]));
    End;   // und dich denke hier endet es *g*
    form1.SynMemo1.Lines.Assign(flStrList);
  Finally
    FreeAndNil(flStrList);
  End;
  abfrageform.hide;
end;

Also, ich soll nun schon seit ein paar tagen diese Procedure fertig bekommen aber es geht nicht *heul*
Ich hab des Problem jetzt zwar schon öfters hier aufgeführt jedoch nicht mit dem erwarteten erfolg (meine schuld, habs schlecht erklärt)

also ich bekomme solche Dateien: (_ = Leerzeichen)

Zitat:

1______Irgend ein Text
2__________Irgend ein Text
10_____________________irgend ein Text
110____Irgendein Text

und aus dieser Datei soll beim Laden dass hier werden:

Zitat:

Irgendein Text
Irgendein Text
Irgendein Text
Irgendein Text

Ich weiß ehrlich nimmer was an der oberen Procedure falsch ist!


Hoffe Ihr könnt mir helfen


Danke!!!!!!!!!!!!!



P.s.: Die Dateien sind zum Teil sehr groß (2,5 Millionen Zeilen)