in einem Verzeichnis eine .cfg Datei öffnen

[himitsu]

Weil, wenn das unterschiedlich lang ist, dann müßte man ja noch einen Übergang dazwischen finden - z.B.:

Delphi-Quellcode:

  Var TF: TextFile;
    S: String;
    P1, P2: Integer;

  AssignFile(TF, FileName);
  Reset(TF);
  While not EoF(TF) do Begin
    ReadLn(TF, S);
    (***** extrahieren *****)
    P1 := Pos('="', S) + 2;
    P1 := PosEx(' --- ', S, P1) + 5;  {<<<<<<<<<<<<<<<<<<<<}
    P2 := PosEx('"', S, P1) - 1;
    S := Copy(S, P1, P2 - P1 + 1);
    (***********************)
    CreateDir(S);
  End;
  CloseFile(TF);

aber das ist hier ja nicht nötig, da ja immer die ersten 8 Zeichen weg müssen;

Delphi-Quellcode:

    ...
    (***** extrahieren *****)
    P1 := Pos('="', S) + 10;
    P2 := PosEx('"', S, P1) - 1;
    S := Copy(S, P1, P2 - P1 + 1);
    (***********************)
    ...