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:
ExcludeTrailingPathDelimiter
gibt es unter Delphi5 noch nicht
@dahead:
fShortDirectory := ExtractRelativePath(fFullDirectory, fFullDirectory);
lieferte mir nur den Dateinamen im Test
mfg
eddy