archivos binarios

[[Héctor Randolph]]

Te pongo un ejemplito para que lo pongas en uso.

Código Delphi [-]
type TRegistro=record
  Id:Integer;
  Nombre:String[30];
end;

...

procedure TForm1.Button1Click(Sender: TObject);
var
  F:file of TRegistro;
  Reg: TRegistro;
begin
  Randomize;
  Reg.Id:=Random(1000);
  Reg.Nombre:='Append registro';

  AssignFile(F,'c:\pruebas.dat');
  if FileExists('c:\pruebas.dat') then
  begin
    Reset(F);             // Abrir archivo
    Seek(F,FileSize(F)); // Ir a última posición
  end
  else
    ReWrite(F); // Crear archivo

  BlockWrite(F,Reg,1); //Escribir un registro
  CloseFile(F);
end;

Saludos