Einfaches Abspeichern in externer Datei // Schülerverwaltung

[DeddyH]

Du hast ein statisches Array mit 10 Elementen deklariert.

Zitat:

Datensatz: array[1..10] of tSchueler;

Das bedeutet, dass maximal 10 Datensätze dort hineinpassen. Willst Du aber eine unbekannte Anzahl von Datensätzen verwalten, bietet sich ein dynamisches Array (oder eine Liste, aber das lassen wir jetzt mal weg) an. Ein dynamisches Array wird wie folgt deklariert:Datensatz: array of tSchueler; Die Länge setzt Du mit SetLength fest, dadurch wächst/schrumpft das Array dynamisch. Somit bist Du flexibler.

[jawo3]

Aber woher weiß ich denn welche Zahl ich am Ende von setlength eintragen muss? Kann ich irgendwie ersehen, welches die höchste Datennummer ist und das dann als Ende eintragen?

[DeddyH]

Die aktuelle Länge des Array bekommst Du mit Length. Um also ein Element anzufügen, kannst Du das so machen(Pseudocode):

Delphi-Quellcode:

SetLength(Array, Length(Array) + 1);
Array[High(Array)] := Daten;

Löschen des letzten Elements geht dann logischerweise mitSetLength(Array, Length(Array) - 1);

[jawo3]

Okay, werde ich gleich mal versuchen einzubauen.

Hat noch jemand eine Idee, warum es zu der Fehlermeldung kommt?

[DeddyH]

In welcher Zeile tritt der Fehler auf?

[jawo3]

In der Zeile:

read(f, Datensatz[i]);

in der Prozedur zum auslesen.

[DeddyH]

Entweder ist es schon zu spät, ich bin blind oder der Fehler liegt irgendwo anders. Für mich sieht der Code OK aus

[jawo3]

Mhmm, es scheint jetzt zu funktionieren. Ich habe mal die alte 8 Megabyte Große Datei Schueler.dta gelöscht. Sie wurde vom Programm neu angelegt und der Fehler tritt nicht mehr auf...

[DeddyH]

War der Record evtl. vorher mit einer anderen Größe deklariert? Das wäre zumindest eine Erklärung.

[jawo3]

Naja, mein Array war ja vorher auf 99999^^