jo, genau...
ich will mal nicht so sein:
Delphi-Quellcode:
uses StrUtils; //für posEx
...
function LastPos(const Needle, Haystack: String): integer;
var idx: integer;
begin
result := 0;
idx := 0;
repeat
idx := posEx(Needle, Haystack, idx+1);
if idx > 0 then
result := idx;
until idx = 0;
end;
//und später dann
var
idx: integer;
begin
...
idx := LastPos('/', Match[1]);
if idx > 0 then
Filename := copy(Match[1], idx)
else
Filename := Match[1];
//in Filename hast du jetzt nur den dateinamen!
...
end;
is nu so ausm kopf... denke aber ma wird wohl klappen.
guck dir den source an und versuch ihn zu verstehen!