ExcludeTrailingPathDelimiter defekt

[Sir Rufo]

Ich denke mal das Gewünschte kann man so erreichen

Delphi-Quellcode:

function EnsureDir( const s: string ): string;
begin
  Result := ExtractDir( IncludeTrailingPathDelimiter( s ) );
end;