Datei nummeriert speichern

[Dragon27]

Hallo,

als ich benutze das Synedit. Ich weiß dess es nummeriert aber es soll folgendermaßeb sein:

Die dateien sehen so aus:

1 dfgsdf
2 dfasdfa
3 dfasdfsadf
4 fasdfasdfadsf
5 etc.

die nummern sollen beim laden entfernt werden, ich habe dazu folgendes gemacht:

Delphi-Quellcode:

// Proceduren für das auseinandernehmen eines Strings

procedure GetWords(TheString, Separator: String; var Strings: TStringList);
begin
  try
    Strings.Clear;
    while Pos(Separator, TheString)>0 do
    begin
      Strings.Add(Copy(TheString, 1, Pos(Separator, TheString)-1));
      TheString:=Copy(TheString, Pos(Separator, TheString)+Length(Separator),
      Length(TheString));
    end;
    Strings.Add(TheString);
  except
  end;
end;

function WordCount(TheString, Separator: String): Integer;
var OurStrings: TStringList;
begin
  OurStrings:=TStringList.Create;
  GetWords(TheString, Separator, OurStrings);
  result:=OurStrings.count;
  OurStrings.free;
end;



function GetWord(TheString, Separator: String; Nummer: Integer): String;
var OurStrings: TStringList;
begin
  OurStrings:=TStringList.Create;
  GetWords(TheString, Separator, OurStrings);
  try
    result:=OurStrings[Nummer-1];
  except
    result:=''
  end;
  OurStrings.free;
end;

// richtiger Text

zahl:=-1;
 while zahl+2<=synmemo1.Lines.Count do begin
 zahl:=zahl+1;
 form1.synmemo1.Lines.Add(getword(synmemo1.Lines.Strings[zahl],' ',2));
 ladenP.Position:=zahl;
 end;

Also ihr verteht ich mach da jede Zeile einzeln durch und des dauert hald ungemein lange wisst ihr wie mann dabei Zeit sparen kann? Oder eine ander Möglichkeit?

Danke