Sobre ficheros estructurados...

[Roilo]

Tengo un fichero creado con muchos registros dentro.
conosco cómo guardar un nuevo registro pero lo que necesito es borrar uno ya existente. Dime qué puedes hacer por mí.

[[Héctor Randolph]]

Busca en este hilo, tal vez puedas encontrar la respuesta:

Archivos den Delphi

Saludos

[Roilo]

Oye Hector , te lo agradesco pero buscaba alguna función destinada a borrar registros...

[[Héctor Randolph]]

Amigo, el enlace que mencioné habla precisamente de eso.

La idea es copiar en memoria todos los registros excepto el que deseas eliminar.

Bueno, encontré algo de código que tenía guardado, espero que te sirva de ejemplo

Código Delphi [-]
procedure EliminarRegistro(N:Integer);
 var F:file of TRegistro;
     Reg:TRegistro;
     Mem:TMemoryStream;
begin
  Mem:=TMemoryStream.Create;
  if FileExists('MiArchivo') then
  begin
    AssignFile(F,'MiArchivo');
    Reset(F); // Abrir archivo
    while not EOF(F) do
    begin
     BlockRead(F,Reg,1);
     //Transferir todos los registros al nuevo archivo,excepto el registro N
     if FilePos(F)<>N then
        Mem.Write(Reg,SizeOf(Reg));
    end;
    CloseFile(F);
    if Mem.Size=0 then
      DeleteFile('MiArchivo')
    else
      Mem.SaveToFile('MiArchivo');
  end;
  Mem.Free;
end;

Saludos