archivos binarios

[kazcote]

Como puedo hacer para crear un archivo del tipo "typed", y poder ir agregando registros sin borrar lo anterior, es decir, de alguna manera abrirlo en modo append, pero para esta clase de archivos.

gracias...

[Enan0]

Bueno buscando en el viejo y querido Pascal 7 de Joyanes Aguilar tenemos

Código Delphi [-]

Var
  archi,aux: file of (mi tipo de datos)
  ....
  
  assign (archi, 'miarchivo.algo');
  aux:=archi;
  reset(archi); //debe existir
  while not eof(archi) do
    begin
      readln(archi,mitopodedatos);
      writeln(aux,mitipodedatos);
    end;
  //aux es la copia del arhivo abierto de lectura y escritura y estas al final de la linea

[kazcote]

che lo probe pero me tira un error en el writeln, pq creo que esto es para archivos de texto.
Lo que necesito es acceder al archivo, escribir en el, salir. Despues en otro momento volver al archivo y volver a escribir pero que no me sobreescriba lo anterior sino que me lo agregue.

gracias

saludos
kazcote

[[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