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

[Enan0]

Héctor, perdoname. pero si mal no recuerdo "Reset " solo los habre para lectura..
Y si Kazcote, no es WriteLN sino WRITE!!!!

[[Héctor Randolph]]

Empezado por Enan0

Héctor, perdoname. pero si mal no recuerdo "Reset " solo los abre para lectura..

En realidad Reset no está restringido para archivos de sólo lectura, existe una variable global que se llama FileMode y esta es la que controla la forma en que trabaja Reset.

Empezado por Ayuda de Delphi

FileMode variable
Indicates the access mode on typed and untyped files opened by the Reset procedure.

The default FileMode is 2 (Read/Write access). Assigning another value to FileMode causes all subsequent Resets to use that mode.

De acuerdo con esto, la variable FileMode es la que cambia el acceso a los archivos, y por defecto permite la lectura/escritura.

Saludos