como leer n caracteres de un archivo

[[seoane]]

Prueba con esto:

Código Delphi [-]
var
  Fichero: File;
  Buffer: array[0..700] of Char; // 700 bytes + 1
  Leidos: Integer;
  Str: string;
begin
  AssignFile(Fichero,'c:\Archivo.txt');
  Filemode:= fmOpenRead;
  {$I-}
    Reset(Fichero,1);
  {$I+}
  if IOResult = 0 then
  begin
    repeat
      FillChar(Buffer,Sizeof(Buffer),0);
      BlockRead(Fichero,Buffer,Sizeof(Buffer)-1,Leidos);
      if Leidos > 0 then
      begin
        Str:= String(PChar(@Buffer));
        // Aqui haces lo que quieres con el string
        ShowMessage('Longitud del string = ' + IntToStr(Length(Str)));
      end;
    until Leidos < (Sizeof(Buffer) - 1);
    CloseFile(Fichero);
  end else
    ShowMessage('No puedo abrir el archivo');
end;

Vamos leyendo los bytes de 700 en 700 y luego los convertimos en un string. el byte extra en el buffer es porque las cadenas tipo PChar necesitan acabar en un carácter nulo. El resto creo que se entiende bien, sino pregunta.

[manolop]

muchisisimas gracias, me has ahorrado un monton de tiempo. Muchas gracias de verdad. Un fuerte abrazo

[sépoco]

IMP20983;0;IMP20983
VK RF SE1052 SO M;9008;60490001070

Dejar en una variable cada campo separado por ;
es un archivo .txt y los campos son variables. Leo el archivo y lo traspaso a un Memo.

if OpenDialog1.Execute then
begin
AssignFile(F, OpenDialog1.FileName);
Reset(F);
while not eof(F) do
begin
Readln(F, S);
Memo.Lines.Add(S);
end;
CloseFile(F);
end;