Zitat von
BackOrifice:
Zitat von
Reinhardtinho:
Weil du die Datei nach dem ersten Record schließt
Wie kommst du darauf?
Über die nicht so ganz elegante Einrückung gestolpert, hatte ich im ersten Moment auch gedacht.
Von welchem Type ist Eintrag?
Eventuell hilft ja Reset(datei,SizeOf(Eintrag)), damit das Programm weiß, wieviel es bei einem Read lesen soll. Ohne Größenangabe werden 128 Byte gelesen. Wenn die Datei kleiner ist, ist sie beim ersten Lesen weg. Von welchem Typ ist Datei?
Delphi-Quellcode:
var
Datei: TextFile;
// oder
Datei: File of Char
// oder
Datei: File of Eintrag;
// oder
...
[edit]hat mal wieder Schreibfehler gefunden[/edit]