Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Sobre ficheros estructurados... (https://www.clubdelphi.com/foros/showthread.php?t=28179)

Roilo 12-12-2005 17:30:08

Sobre ficheros estructurados...
 
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 12-12-2005 17:40:41

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

Archivos den Delphi

Saludos

Roilo 12-12-2005 21:36:14

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

Héctor Randolph 12-12-2005 21:50:44

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


La franja horaria es GMT +2. Ahora son las 21:53:47.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi