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