Re: Einfaches Abspeichern in externer Datei // Schülerverwal
Du hast ein statisches Array mit 10 Elementen deklariert.
Zitat:
Delphi-Quellcode:
Die Länge setzt Du mit SetLength fest, dadurch wächst/schrumpft das Array dynamisch. Somit bist Du flexibler.
Datensatz: array of tSchueler;
|
Re: Einfaches Abspeichern in externer Datei // Schülerverwal
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?
|
Re: Einfaches Abspeichern in externer Datei // Schülerverwal
Die aktuelle Länge des Array bekommst Du mit Length. Um also ein Element anzufügen, kannst Du das so machen(Pseudocode):
Delphi-Quellcode:
Löschen des letzten Elements geht dann logischerweise mit
SetLength(Array, Length(Array) + 1);
Array[High(Array)] := Daten;
Delphi-Quellcode:
SetLength(Array, Length(Array) - 1);
|
Re: Einfaches Abspeichern in externer Datei // Schülerverwal
Okay, werde ich gleich mal versuchen einzubauen.
Hat noch jemand eine Idee, warum es zu der Fehlermeldung kommt? |
Re: Einfaches Abspeichern in externer Datei // Schülerverwal
In welcher Zeile tritt der Fehler auf?
|
Re: Einfaches Abspeichern in externer Datei // Schülerverwal
In der Zeile:
read(f, Datensatz[i]); in der Prozedur zum auslesen. |
Re: Einfaches Abspeichern in externer Datei // Schülerverwal
Entweder ist es schon zu spät, ich bin blind oder der Fehler liegt irgendwo anders. Für mich sieht der Code OK aus :gruebel:
|
Re: Einfaches Abspeichern in externer Datei // Schülerverwal
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...
|
Re: Einfaches Abspeichern in externer Datei // Schülerverwal
War der Record evtl. vorher mit einer anderen Größe deklariert? Das wäre zumindest eine Erklärung.
|
Re: Einfaches Abspeichern in externer Datei // Schülerverwal
Naja, mein Array war ja vorher auf 99999^^
|
Alle Zeitangaben in WEZ +1. Es ist jetzt 05:33 Uhr. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz