Recorrido y Extraccion en Semi-Binario...

[[seoane]]

Si el texto que se añade al principio siempre mide lo mismo, podemos hacer algo como esto, sin muchas complicaciones:

Código Delphi [-]
var
  Origen, Destino: TFileStream;
begin
  Origen:= TFileStream.Create('d:\1.txt',fmOpenRead);
  try
    Destino:= TFileStream.Create('d:\2.txt',fmCreate);
    try
      Origen.Position:= 12;
      Destino.CopyFrom(Origen,Origen.Size - Origen.Position);
    finally
      Destino.Free;
    end;
  finally
    Origen.Free;
  end;
end;