Ver Mensaje Individual
  #1  
Antiguo 19-01-2012
Andréshi Andréshi is offline
Registrado
NULL
 
Registrado: ene 2012
Posts: 3
Reputación: 0
Andréshi Va por buen camino
Como eliminar un registro especifico de un archivo !

Buenas, es mi primera pregunta aqui espero poder encontar una grata respuesta.
Soy novato en la programación y ando haciendo una aplicación en Lazarus, y me han dicho que el lenguaje Delphi es bastante parecido a Objectpascal . así q cualquier ayuda o sugerencia será bien recibida.
Necesito Un metodo que me elimine un registro en particular de un archivo, pasando como parametro de busqueda la identificacion.
me explico:
tengo un archivo lleno de registros, cada registro consta de varios parametros, ejemplo :nombre,identificacion,telefono...!
Y necesito que ingresando en un Tedit la identificación, me borre todos los datos de la persona con esa identificación, es decir me borre ese registro.
espero a ver sido claro en mi inquietud.
ya tengo este codigo para ese metodo, pero en algo nose porque no me esta funcionando.


Código Delphi [-]
procedure Tarchivoestudiantes.eliminar_registro(ide: integer);
var
  temp:Tarchivoestudiantes; 
  est:testudiante;
  nomtemp:String;
begin
 reiniciar;
 nomtemp:='';
 est:=testudiante.Create;
 temp:=Tarchivoestudiantes.create;
 temp.setnombre(nomtemp);
 while not finalArchivo do
 begin
  if leer(est)then
  begin
  if est.getidintificacion=ide then
   begin

   end
   else
   begin
   temp.agregar(est);
   end;
  end;
 end;

 DeleteFile(nombre);
 Renamefile(nomtemp,nombre);
end;
Responder Con Cita