fehler mit Pos() ?

[sharkx]

@WormId: Das funktioniert nicht, da diese function in einer Schleife läuft die bis SFVFile.Count läuft. Wenn ich dann Strings abschneiden würde, stimmt der Count nicht mehr und ich bekomm eine Exception.

@Luckie: Stimmt, hast Recht, aber das Problem is damit nicht behoben.



Mit dem Inhalt der StringList erstelle ich jeweils für einen Eintrag eine neue Datei.

Delphi-Quellcode:

procedure CreateMissing(FileList: TStrings; Directory: String);
var
  i: integer;
begin
  for i := 0 to FileList.Count - 1 do
    begin
      dump := Copy(FileList.Strings[i], 1,Pos(' ', FileList.Strings[i]) - 1);
      FileClose(FileCreate(directory + dump + '-missing'));
    end;
end;

Wenn jedoch ; Kommentare in der alten StringList war, dann erstellt er mir 1 -missing file die nicht sein dürfte. Der Rest stimmt alles.