So könnte man es natürlich lösen. Hier mal ein Denkanstoß, den Rest müsstest du aber auch selber hinbekommen.
Delphi-Quellcode:
function FileName(Name:String):String;
begin
Name:=stringreplace(Name,'/','\',[rfreplaceall]);
Name:=extractfilename(Name);
Name:=ChangeFileExt(Name,'');
Result:=Name;
end;
Oder in einer Zeile:
Delphi-Quellcode:
function FileName(Name:String):String;
begin
Result:=ChangeFileExt(extractfilename(stringreplace(Name,'/','\',[rfreplaceall])),'');
end;
Mfg