Einfaches Abspeichern in externer Datei // Schülerverwaltung

[hoika]

Hallo,

statt

tSchueler = record würde ich

tSchueler = packed record schreiben und die alte Datei löschen..

Ausserdem kannst du mit FileExists prüfen,
ob die Datei vorhanden ist und dann entweder Reset oder ReWrite benutzen.

Das ersetzt natürlich das IOResult nicht.

Bei
procedure TForm1.ButtonEintragSpeichernClick

fiel mir noch was auf.

Was passiert, wenn der letzte Editor leer ist ...
Du hast alle anderen Werte schon in den Datensatz eingetragen
und ereugst zum Schluss einen Fehler.
Die anderen Werte stehen aber trotzdem schon drin !

Besser wäre hier

Delphi-Quellcode:

fehler:= (EditName.Text='') or
         (EditOrt.Text='') or

             usw.

         (EditOrt.EditKlasse='');

Heiko