klip i en widestring

Function getfilename(text:String):string;
begin
result := copy(text, pos('filename', lowercase(text), length(text)));
result := copy(result, pos('=', result)+1, length(result));
result := copy(result, 0, pos(';', result)-1);
end;

prøv det

Jeg tillod mig lige at lave en lille ændring, du havde en mindre bug omkring den sidste Copy:

Function getfilename(text:String):string;
var P : integer;
begin
result := copy(text, pos('filename', lowercase(text), length(text)));
result := copy(result, pos('=', result)+1, length(result));
P := Pos(';', result);
if (P <> 0) then
{ Der er ';' i denne string, så Filename er ikke sidste element }
  result := copy(result, 1, P-1);
{ Else... Filename er sidste element, vi har allerede det ønskede i result }
end;

tak skal du have. jeg havde ikke lige testet det.

poulsgaard -> Kan du få det til at virke?

Nope har ikke lige gang i det projekt lige nu.

Jeg lukker aligevel, så kommer der klager senere, hvis det ikke virker ;-))