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;

[[marceloalegre]]

Excelente que simple! con esto soluciono mi probrema! pero pasa saber, supongamos que lo que quiero extraer esta en vez de al principio asi:
(los ceros 0000000000000000000)

α°¶¥Æ²µ±²³°±°±³°±°±´°¶°±´°±°µ´±µ°¸´0000000000000000000±²±°´°±±±´°¶±²´°¸±²´²µ±²´¥Ì¥È°±³³³³³³³³²²²²²² ²²²²²²²²³³³³

es posible de recorrer el archivo y de encontrar esta cantidad de ceros los borre?

mi duda principal es como me muevo por un archivo de este tipo y comparo uno a uno los caracteres..

saludos!!