das muss ja auch klappen. Hier der Originalcode aus SysUtils:
Delphi-Quellcode:
function ExtractFileName(const FileName: string): string;
var
I: Integer;
begin
I := LastDelimiter(PathDelim + DriveDelim, FileName);
Result := Copy(FileName, I + 1, MaxInt);
end;
Da wird auch nichts anderes gemacht als nach dem letzten '\' zu suchen und alles dahinter als Ergebnis auszugeben.
Ich vermute mal, dass die Fehler bei taktaky ne ganz andere Ursache haben
Karl-Heinz
Populanten von Domizilen mit fragiler, transparenter Aussenstruktur sollten sich von der Translation von gegen Deformierung resistenter Materie distanzieren!
(Wer im Glashaus sitzt sollte nicht mit Steinen werfen)