Quiero leer los 200 primeros bytes de un archivo de texto

[Neftali [Germán.Estévez]]

Extraído de la ayuda de Delphi (sobre read):

Código Delphi [-]
var
  F1, F2: TextFile;
  Ch: Char;
begin
  if OpenDialog1.Execute then begin
    AssignFile(F1, OpenDialog1.Filename);
    Reset(F1);
    if SaveDialog1.Execute then begin
      AssignFile(F2, SaveDialog1.Filename);
      Rewrite(F2);
      while not Eof(F1) do begin
        Read(F1, Ch);
        Write(F2, Ch);
      end;
      CloseFile(F2);
    end;
    CloseFile(F1);
  end;

end;

Supongo que si en lugar del While pones un:

Código Delphi [-]
  for i:=0 to 200 do begin

debería leer los 200 primeros caracteres.

[[seoane]]

Aqui pedia leerlos de 700 en 700 pero supongo que te haces una idea:
http://www.clubdelphi.com/foros/show...76&postcount=5

[DarkMan]

Puedes usar tambien la clase TStream:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var STR: TFileStream;
    Buffer: Array [0..199] of Byte;
    BytesRead: Integer;
begin
  If OpenDialog1.Execute then
  begin
   If not FileExists( OpenDialog1.FileName ) then
       raise exception.Create('el fichero expecificado no existe');
 
   {Si el fichero existe, cargamos el fichero}
   STR:= TFileStream.Create( OpenDialog1.FileName, FMOpenRead );
 
   {Leemos de 200 en 200 bytes}
   BytesRead:= 0;
   STR.Position:=0;
 
   Repeat
    FillChar(Buffer, 200, 0); //Vaciamos buffer
    BytesRead:= BytesRead + STR.Read(Buffer, SizeOf(Buffer)); //leemos 200 Bytes
    Procesar( Buffer ); //procesamos 200 bytes
   until BytesRead = STR.Size;
 
   STR.Free;
  end;
end;

[roman]

Nda mas por poner alguna otra posibilidad:

Código Delphi [-]
type
  TBuffer = record
    Data: array[1..200] of Char;
  end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Archivo: file of TBuffer;
  B: TBuffer;

begin
  AssignFile(Archivo, 'archivo.dat');
  Reset(Archivo);

  while algo do
  begin

    Read(Archivo, B);

  end;

  CloseFile(Archivo);
end;

// Saludos