fehler mit Pos() ?

**sharkx**

Hallo,

Ich lese eine Text Datei mit LoadFromFile in eine StringListe. Diese lasse ich dann durch eine Schleife laufen und füge alle zeilen die nicht mit ; oder ' ' (leerzeichen) beginnen in eine neue StringList.

Die Procedure:

zusammenfalten · markieren

Delphi-Quellcode:

			function CreateStringList(SFVFile: string): string;

var

  OldList: TStrings;

  NewList: TStrings;

  i: integer;

begin

  NewList := TStringList.Create;

  OldList := TStringList.Create;

  OldList.LoadFromFile(SFVFile);

  for i := 0 to OldList.Count - 1 do

    begin

      if (Pos(';', OldList.Strings[i]) = 1) or (Pos(' ', OldList.Strings[i]) = 1) then

        Continue

      else

        NewList.Add(OldList.Strings[i]);

    end;

  OldList.Free;

  Result := NewList.CommaText;

end;

die SFV File, von der gelsen wird sieht etwa so aus:

markieren

Delphi-Quellcode:

			; sfv raped by project-zs (mXr edition)

; 

datei a bissel text

das ganze nochmal

und nochmal

Jedesmal wenn ich eine sfv file lade, die diese ; sfv rapped ... Commends hat, stimmem die Strings in der StringListe nicht mehr.
Wo steckt mein fehler?

Danke :-)

fehler mit Pos() ?

fehler mit Pos() ?

Forumregeln