fehler mit Pos() ?

[sharkx]

Delphi-Quellcode:

CheckList := TStringList.Create;
  CheckList.CommaText := CreateStringList(ParamStr(1));

  dir := ExtractFilePath(ParamStr(1));

  // Create Missing Files
  CreateMissing(CheckList, dir);

  // Create Incomplete File
  CreateIncompleteFile(dir);

  for i := 0 to CheckList.Count - 1 do
    begin
    filen := Copy(CheckList.Strings[i], 1,Pos(' ', CheckList.Strings[i]) - 1);

    if FileExists(dir + filen) then
......

die Function CreateMissing steht weiter oben in diesem Tread.

die function CreateStringList sieht nun wie filgt aus:

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
    if (Length(Trim(OldList.Strings[i])) > 0) and (OldList.Strings[i][1] <> ';')  then
      NewList.Add(OldList.Strings[i]);

  OldList.Free;
  Result := NewList.CommaText;
end;

Trotzdem habe ich ab und an noch eine -missing datei die garnicht da sein dürfte. Somit stimmem auch alle weiteren Proceduren die auf den beiden functionen aufbauen überhaupt nicht mehr.