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 (http://www.clubdelphi.com/foros/showthread.php?t=17582)

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


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