Einfaches Abspeichern in externer Datei // Schülerverwaltung

[taaktaak]

Moin, Moin.

• Die Funktion "Kontrolle" sollte m. E. besser nur eine Funktionalität haben und nicht so nebenbei auch noch an den Dateivariablen "herummachen". Also auf die Ausgabe einer Meldung beschränken und dann auch gleich einen anderen (passenden) Namen vergeben.

• Da die Datei immer komplett eingelesen und geschrieben wird, sollte die beiden Prozeduren m. E. wie folgt beginnen:

Delphi-Quellcode:

procedure TForm1.ButtonSpeichernClick(Sender:TObject);
var i : Integer; 
    f : file of tSchueler;
begin 
  assignfile(f,Datenpfad); 
  {$I-} rewrite (f); {$I+}
  ..

procedure TForm1.ButtonLadenClick(Sender:TObject);    
var i : Integer; 
    f : file of tSchueler;
begin 
  assignfile(f,Datenpfad); 
  {$I-} reset (f); {$I+}
  ..

PS:
a) So wenig wie möglich global deklarieren!
b) "Datensatz: array[1..99999] of tSchueler;" ist schon heftig! Kennt ihr noch keine dynamischen Arrays?