Auxilio

[ecfisa]

Hola maugescully.

Cuando ví el título pensé que te estabas ahogando...

Voy a agregar algunas sugerencias a las que ya te ha dado Lord Delfos.

En este caso no es buena idea dejar que el usuario elija el nombre del archivo, complica la cosa y es
propenso a generar confusiones.
Si lo que guardamos son alumnos y el archivo es de texto, lo lógico es darle un nombre (ALUMNOS.TXT por ej.) y
trabajar con el mismo. El nombre de la variable archivo "Archi" podés declararlo como global por ahora.

Todo esto te simplifica puesto que podés habrir el archivo al ingresar a la aplicación y cerrarlo cuando
abandonas la misma, prescindiendo así de los TOpenDialog.

Abrir y Cerrar:

Código Delphi [-]
procedure TForm1.FormCreate;
begin
  Assign(Archi,'C:\PRUEBA\ALUMNOS.TXT'); // o variable con: ruta+nombre
{$i-}
  Reset(Archi);
  if IOResult <> 0 then 
    Rewrite(Archi);
{$I+}
end;

procedure TForm1.FormClose;
begin
  CloseFile(Archi);
end;

Los errores se generan en AgregarAlumo, mirá este código:

Código Delphi [-]
procedure TAdministrar.AgregarAlumno(a:Alumno; var b:byte);
begin
  {$I-}
  //Seek(Archi, FileSize (archi)); MAL:es archivo secuencial. Debe ir: 
  Append(Archi); //Append: añade datos al final de archivo de texto
  {$I+};
  b:=IOResult;
  if b = 0 then
  BEGIN  // Te faltaba, sólo ejecutaba la línea de abajo si b=0 y las demás sí o sí
    Writeln(Archi, a.Apellido);
    Writeln(Archi, a.Nombres);
    // de acuerdo a la versión que trabajes, tal vez debas convertir 
    // a string los campos que siguen.
    // (acordate que el archivo es de texto)
    Writeln(Archi, a.DNI);  // Longint-> string
    Writeln(Archi, a.N1);   // Real -> string   
    Writeln(Archi, a.N2);   
    Writeln(Archi, a.N3);   
  END // Te faltaba, necesario para if/then/begin/end
end;

Hay más cosas para depurar, pero la idea es que vos lo hagas...

Por último te aconsejo que escuches lo dicho por mi colega sobre el uso de {$I}.
Una pista: You try to resolve.


Saludos.

[maugescully]

Mil gracias a los dos... La verdad es que si, mi auxilio sono desesperado, y es porque lo estamos. Hace 15 dás venimos luchando con este trabajo y no logramos sacarlo. El tema es que tenemos que entregarlo el martes a mas tardar.
Seguiremos luchando y si necesito de ustedes volvere a consultarles!! Muchissimas gracias de nevo!

[[AzidRain]]

Como decía Queen....another one bites the dust!!!...En fin bien por Delfos y los demás..mal por el usuario ya saben por qué---

[maugescully]

Empezado por AzidRain

...mal por el usuario ya saben por qué---

No entendí!!! Ojalá no sea una agresión hacia mí...

[[Caral]]

Hola

Empezado por maugescully

No entendí!!! Ojalá no sea una agresión hacia mí...

Lo es y directa, no hay que ser muy entendedor y no se necesitan muchas palabras para entenderlo.
Lo curioso es que lo hace quien inicio ESTO.
Lo que te han tratado de decir, los que si te han ayudado es que trates de hacer las cosas por tu cuenta, poco a poco, que no te ayudan dándote todo.
Sigue intentando, hay personas que te ayudaran.
Saludos

[maugescully]

Se que me agrede, y tambien se que no me ayudan haciendome el ejercicio, y por eso no pedí que me lo hicieran, solo algunos consejos, que no puedo pedir a quien corresponde (o sea quien dicta el curso).
Quien me quiera ayudar que lo haga, no obligo a nadie, y se lo agradeseré muchisimo como ya lo hice, y quien no, que ocupe su tiempo mejor... GRACIAS!

[[Caral]]

Hola
Creo que ya te han dado pinceladas e ideas concretas.
Lo que creo es que todavía no las captas, no las entiendes.
Me parece, muy personalmente, que deberías de extraer lo que te han explicado y replantear el o los problemas que tienes y no entiendes.
Como dije, es mi percepción personal.
Yo te ayudaría con gusto, pero sinceramente no he seguido mucho el hilo y no entiendo bien de que se trata tu problema.
Saludos
Edito:
Creo conocer a AzidRain, estoy seguro que aveces hacemos comentarios y posteriormente nos convertimos en amigos y maestros.
No creo que debas tomar el comentario a mal, tomalo como una broma, estoy seguro que ganaras mas y que AzidRain asi lo habra hecho ver.
Yo solo le muestro a mi amigo AzidRain que aveces nos equivocamos todos, incluyéndome.