letzen Ordnernamen eines Pfades ermitteln

[s14]

Hallo,
wie wär's damit.. :mrgreen:

Delphi-Quellcode:

function gibletztenOrdner(komplett: String): String;   // es muss der ganze Pfad mit Dateiname übergeben werden 
begin
  Result := ExtractFileName(ExcludeTrailingPathDelimiter(ExtractFilePath(komplett)));
end;

..da ist man auch nicht auf den Backslash festgelegt.

[dahead]

Morgen,

Kann man da nicht auch einfach die Funktion ExtractRelativePath verwenden?

Delphi-Quellcode:

fShortDirectory := ExtractRelativePath(fFullDirectory, fFullDirectory);

[eddy]

Hallo Leute,

was haltet Ihr davon (getestet unter Delphi 5):

Delphi-Quellcode:

function GetLstPathName( pn : string) : string;
begin
  pn := ExcludeTrailingBackslash(ExtractFilePath(pn));
  // es sollte eigentlich immer noch ein \ in der Zeichenkette stehen
  Result := copy(pn, LastDelimiter('\', pn)+1, length(pn));
end;

// pn muß am Ende ein Backslash haben oder einen Dateinamen

procedure TFAB.test1Click(Sender: TObject);
begin
  // Aufruf entweder nur mit Pfadname auf \ endend
  s := 'C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\Testpfad\Settings\';

  // oder mit Dateiname

  s := 'C:\Dokumente und Einstellungen\Administrator\Eigene Dateien\Testpfad\Settings\test.dat';

  lblTest.Caption := GetLstPathName(s);  // --> Settings
end;

@s14:

Delphi-Quellcode:

ExcludeTrailingPathDelimiter

gibt es unter Delphi5 noch nicht

@dahead:

Delphi-Quellcode:

fShortDirectory := ExtractRelativePath(fFullDirectory, fFullDirectory);

lieferte mir nur den Dateinamen im Test

mfg
eddy

[dahead]

@eddy:

du darfst diese funktion dann auch nur mit verzeichnis-namen aufrufen.

[dimo]

ExtractFileName(ExcludeTrailingBackSlash(ExtractFi lePath('c:\windows\system32\a.txt')))

[s14]

@dimo

Hast Du Beitrag #11 gelesen? :cyclops:

[SMO]

Kleine Anmerkung zu den ganzen Lösungen hier:

1.) Laut Delphi-Hilfe sollen neue Programme die Funktionen IncludeTrailingPathDelimiter und ExcludeTrailingPathDelimiter benutzen, nicht die alten Versionen mit "Backslash" im Namen. Natürlich nur, wenn wan eine entsprechend neue Delphi-Version hat, in der es diese Funktionen schon gibt.

2.) Kennt ihr den Unterschied zwischen ExtractFileDir und ExtractFilePath? Ersteres liefert das Verzeichnis ohne terminierenden Pathdelimiter. D.h. statt "ExcludeTrailingPathDelimiter(ExtractFilePath(...) )" kann man auch einfach "ExtractFileDir(...)" schreiben. ;)
Einen kleinen Unterschied gibt es aber schon:
ExcludeTrailingPathDelimiter(ExtractFilePath('C:\' )) ergibt 'C:'
ExtractFileDir('C:\') ergibt 'C:\'

[Lannes]

Hallo,

ab Delphi 3 und unter
Berücksichtigung von Dateien die sich im Root-Verzeichnis befinden können:

Delphi-Quellcode:

function FolderOrDrive(fileName: string): string;
var i : Integer;
begin
  Result := ExtractFileDir(fileName);
  i := LastDelimiter('\',Result);
  if i = 3 then
    Delete(Result,i,1)
    else
      Delete(Result,1,i);
end;

[dimo]

Nein :)

Zitat:

Zitat von s14

@dimo

Hast Du Beitrag #11 gelesen? :cyclops: