Hola , gracias por la ayuda , parece que el problema es cuando lee archivos binarios con la funcion cortar() por eso no encuentra nada a pesar de que la funcion cut() si lo hace , estuve tratando de mejorar el codigo como hiciste pero me quedo esto :
Código Delphi
[-]
function cortar(ruta, delimitador1, delimitador2: string): string;
var
code: string;
rta: string;
begin
code := read_file(ruta);
Delete(code, 1, AnsiPos(delimitador1, code) + Length(delimitador1) - 1);
SetLength(code, AnsiPos(delimitador2, code) - 1);
rta := code;
if rta = '' then
begin
Result := 'Error';
end
else
begin
Result := rta;
end;
end;
Probe cambiando los AnsiPos por Pos pero el programa se tilda completamente , tambien intente hacer la conversion que me recomendaste pero no se como relacionar ResLength con mi codigo.
¿ que tendria que hacer ?