Como eliminar un registro especifico de un archivo !

[Lord Delfos]

Respuesta simple: no se puede, ni en Delphi, ni en Lazarus, ni en C++. ¿Porqué? Bueno... no sé porqué, así funciona la cosa. Los archivos pueden crecer, pero no encogerse. Cosas de la vida, supongo.

Los archivos tienen los datos adentro, y uno puede agregarles algo al final o sobre escribir algo en el medio, pero nunca borrar algo. Lo que normalmente se hace, es volver a crear el archivo sin el dato que se quiere hacer desaparecer. También se suele usar un esquema de marcado de registros a borrar. Es decir, el registro no se borra, pero se lo marca como borrado y no se lo tiene en cuenta nunca. Se supone que el sistema está hecho de tal forma, que tarde o temprano se cree el archivo de nuevo, y al no tener en cuenta estos registros marcados, no se guardan. Con lo que a la larga es como borrarlos.

Lo que no me queda claro es si tu archivo es de texto o de registros. ¿Cuál es la declaración de Tarchivoestudiantes?

[Andréshi]

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;

[Casimiro Notevi]

Sí, a modo didáctico está bien, pero eso en la vida real no es funcional por muchas razones, por ejemplo, sólo puede ser usado por una persona, nadie más puede acceder al fichero al mismo tiempo.