Ist pfad ein dateipfad oder ordnerpfad?

[inherited]

Eventuell mit

Delphi-Quellcode:

function IsDirectory(str: String): Boolean;
begin
  result:=true;
  if ChangeFileExt(str, '')<>str then
    result:=false;
end;

Aber da gibt es sicher schönere Methoden.
(Klappt nur, wenn die Datei auch eine Endung hat)