Da ich die Funktion vermisst hab und hier Beiträge erwünscht sind, dachte ich mir evtl. wäre das ja für Dateien und Laufwerke erwünschenswert.
Suchbegriffe:
Ordner extrahieren ableiten kriegen Verzeichniss Dir
Delphi-Quellcode:
function ExtractDirName(Path:string):string;
var
i:integer;
begin
// Check if last Char is \
if Pos('\', Path[Length(Path)]) = 1 then
Path:=Copy(Path,1,Length(Path) - 1);
// ExtractDirName
for i:=Length(Path) downto 0 do
if Pos('\', Path[i]) = 1 then
begin
Result:=Copy(Path,i+1,Length(Path)-i);
Exit;
end;
end;
Aufruf:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(ExtractDirName('c:\Programme\blubb\'))
end;
oder
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
ShowMessage(ExtractDirName(ExtractFilePath('c:\Programme\blubb\datei.exe')))
end;
[edit=Chakotay1308][delphi]-Tags schonmal eingefügt. Mfg, Chakotay1308[/edit]
[edit=Matze]Code formatiert. Mfg, Matze[/edit]