Ordner aus Pfad extrahieren

[Luckie]

Macht das nicht die Funktion ExtractPathname aus der Unit SysUtils?

Und falls es ein Ersatz sein soll, hier meine Versionen ohne pos:

Delphi-Quellcode:

////////////////////////////////////////////////////////////////////////////////
// Procedure : CutPathname
// Comment   : ExtractFilename

function CutPathname(s: string): string;
var
  i: integer;
begin
  result := s;
  for i := length(s) downto 1 do
    // Von hinten den Backslash suchen. Wenn gefunden alles ab Backslash kopieren
    if s[i] in ['\','/',':'] then
      begin
        result := copy(s, i + 1, length(s));
        // Nach dem ersten Backslash beenden
        break;
      end;
end;


////////////////////////////////////////////////////////////////////////////////
// Procedure : CutFilename
// Comment   : ExtractFilepath

function CutFilename(s: string): string;
var
  i: integer;
begin
  result := s;
  for i := length(s) downto 1 do
    // Von hinten den Backslash suchen. Wenn gefunden alles bis inkl. Backslash kopieren
    if s[i] in ['\','/',':'] then
      begin
        result := copy(s, 1, i);
        // Nach dem ersten Backslash beenden
        break;
      end;
end;

[edit=Chakotay1308]Kleine Korrektur. Mfg, Chakotay1308[/edit]