Übergeordneter Ordner als String

[invalid_operation]

Übergeordneter Ordner als String

Gerade kurz mit Delphi5 für meine tiefen Unterordner zusammengebastelt (von hinten durch die Brust ins Auge):

Delphi-Quellcode:

function OneFolderUp(FolderName: string): string;
var s: string;
begin
  s := FolderName;
  s := copy(s, 0, length(s) - 1);
  s := s + '$$$.tmp';
  s := ExtractFilePath(s);
  //MessageBox(0, PChar(s), 'OneFolderUp', mb_Ok or mb_DefButton1);
  Result := s;
end;

Der (von mir) an die Funktion übergebene FolderName endet immer mit einem Backslash.

Ob es den übergeordneten Ordner überhaupt gibt, wird offensichtlich *nicht* überprüft.

HTH

[DeddyH]

1. Wieso so umständlich?
2. Was ist jetzt Deine Frage?

[patti]

Zitat von DeddyH:

2. Was ist jetzt Deine Frage?

Soll wohl in die CodeLib, steht zumindest im Forum "Neuen Beitrag zur CodeLib hinzufügen"...

[DeddyH]

Das kommt davon, wenn man immer über die Portalseite kommt. Trotzdem:

Delphi-Quellcode:

function OneFolderUp(const FolderName: string): string; 
begin
  Result := ExtractFilePath(ExcludeTrailingPathDelimiter(Foldername));
end;

Das müsste doch ausreichen, oder?

[invalid_operation]

Zitat von DeddyH:

Das kommt davon, wenn man immer über die Portalseite kommt. Trotzdem:

Delphi-Quellcode:

function OneFolderUp(const FolderName: string): string; 
begin
  Result := ExtractFilePath(ExcludeTrailingPathDelimiter(Foldername));
end;

Das müsste doch ausreichen, oder?

Delphi5

[DeddyH]

Dann nimm halt ExcludeTrailingBackslash, das gab es IIRC auch unter Delphi 5.

[Mithrandir]

Ich verschiebe den Beitrag mal in Richtung "normales Forum", denn imho hat er keinen Mehrwert für die Codelib.

Dennoch danke für deinen Beitrag.