Funcion para extraer texto de archivos de texto

[JuanOrtega]

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 ?

[engranaje]

Habría que comprobar con los mismos ficheros que tú para estar seguro pero por probar he preparado algo asi en una unit y da la sensación de funcionar como se espera.

Código Delphi [-]
function LeeFichero(const fichero: String): AnsiString;
var
  F: file;
  cuantos: Integer;
  Buf: array[1..1024] of Char;
begin
  result := '';
  AssignFile(F, fichero);
  Reset(F, 1);

  repeat
    BlockRead(F, Buf, SizeOf(Buf), cuantos);
      result := result + Buf;
  until (cuantos = 0);

  CloseFile(F);
end;

function cortar(ruta, delimitador1, delimitador2: string): Ansistring;
begin
  result := LeeFichero(ruta);
  Delete(result, 1, AnsiPos(delimitador1, result) + Length(delimitador1) - 1);
  SetLength(result, AnsiPos(delimitador2, result) - 1);

  if result = '' then
    Result := 'Error';
end;