funcion sencilla que extrae un cadena entre dos delimitadores
function Delimitador(cadena,delm1,delm2:string):string;
var
pos1,pos2:integer;
ext,sfinal:string;
begin
sfinal:='';
pos1:=AnsiPos(delm1,cadena);
if pos1<>0 then
begin
ext:=copy(cadena,pos1+length(delm1),length(cadena)-length(delm1));
pos2:=AnsiPos(delm2,ext);
if pos2<>0 then
begin
sfinal:=copy(ext,1,pos2-1);
end;
end;
result:=sfinal;
end;
Ejemplo de uso:
begin
writeln(delimitador('hola_mundo_como_estas','hola','estas'));
{devolveria: _mundo_como_ }
readln;
end.