Ver Mensaje Individual
  #5  
Antiguo 21-01-2012
Andréshi Andréshi is offline
Registrado
NULL
 
Registrado: ene 2012
Posts: 3
Reputación: 0
Andréshi Va por buen camino
Gracias por leer mi pregunta.
Ya e logrado completar el método que me elimina un estudiante con todos sus datos,pasando como parametro la identificación de dicho estudiante.
Es un Archivo de texto plano, él cual esta lleno de datos de estudiantes, cada estudiante tienen identificación, nombre,curso,edad,notas.
subo el código por sí a alguien le pueda servir en un futuro.

Código Delphi [-]
procedure Tarchivoestudiantes.eliminar_registro(registro:testudiante); 
//Tarchivoestudiantes es mi clase archivo,Testudiantes es mi clase estudiantes.
var

   archivo2:TextFile;//declaro un archivo auxiliar.
   est:testudiante;//declaro una variable del tipo de mi clase estudiantes
begin
    est:=testudiante.create;//inicializo mi variable
    AssignFile(archivo2,'auxiliar.txt');//le asigno un nombre a mi archivo auxiliar
    Rewrite(archivo2);
    Append(archivo2);
    reiniciar;//reiniciar es un método dentro de mi clase Tarchivoestudiantes equivalente a Reset
  begin
    Reset(archivo);
  end;
end;
     while(not finalArchivo)do
     begin
      if(leer(est))then
       begin
        if(est.getidintificacion=registro.getidintificacion)then  // compara q la identificación sea igual a la q estoy buscando
        begin
                //si es igual no hago nada
        end
        else    //sino, entonces escribo esos datos del estudiante en mi archivo auxiliar
        begin
        WriteLn(archivo2, est.getidintificacion);
        WriteLn(archivo2, est.getnombre);
        WriteLn(archivo2, est.getgrado);
        WriteLn(archivo2, est.getsexo);
        WriteLn(archivo2, est.getedad);

        end;

       end;

      end;
      CloseFile(archivo);   //cierro ambos archivos
      CloseFile(archivo2);

      DeleteFile('Estudiantes.txt'); //elimino el archivo original
      RenameFile('auxiliar.txt','Estudiantes.txt'); //renombre el archivo auxiliar con el nombre de mi archivo original.
end;
Responder Con Cita