Dateinamen Parsen

[Ducksoul]

Ich sollte mir vielleicht mal angewöhnen erst ordentlich zu suchen und dann Fragen zu stellen. Mit Pos hatte ich es heute morgen schon versucht und nicht hinbekommen, aber jetzt hat es doch geklappt.

Hier meine Funktion:
(bei der iPosRight wird von rechts nach links geguckt, da ja evt. auch im Betreff ein '-' vorhanden sein kann)

Delphi-Quellcode:

(* Betreff aus Diktatnamen ermitteln *)
  function TFormular.GetBetreff(FileName: String): String;
    var iPos, iPosLeft, iPosRight, i: Integer;
    begin
        // Betreff Parsen
      Result := '';
      iPosLeft := PosEx('-', FileName, 1) + 2;

      i := Length(FileName);

      repeat
        iPosRight := PosEx('-', FileName, i);
        i := i-1; // i-- geht nich?
      until
        iPosRight <> 0;

      iPosRight := iPosRight - 1;

      Result := Copy(FileName, IPosLeft, IPosRight-IPosLeft);
    end;  // function GetBetreff

Vielen Dank für den Gedankenstoß Klaus

Viele Grüße,
Franz