Einzelnen Beitrag anzeigen

Benutzerbild von Binärbaum
Binärbaum

Registriert seit: 19. Jan 2005
Ort: Elstra
764 Beiträge
 
Delphi 7 Enterprise
 
#9

Re: erster Datensatz aus record lesen

  Alt 21. Mär 2005, 00:03
Verwende zum Lesen lieber ReadLn statt Read (Read war schon zu TP-Zeiten manchmal etwas problematisch):
Delphi-Quellcode:
var rdata: TRechnung;
    rdatei: text; //oder TextFile
...
AssignFile(rdatei, 'C:\daten.dat');
Reset(rdatei);//entspricht quasi Seek(rdatei, 0);
if Eof(rdatei) then rdata.RDatum:= ''
 else ReadLn(rdatei, rdata.RDatum);
if Eof(rdatei) then rdata.Name1:= ''
 else ReadLn(rdatei, rdata.Name1);
if Eof(rdatei) then rdata.Name2:= ''
 else ReadLn(rdatei, rdata.Name2);
if Eof(rdatei) then rdata.Name3:= ''
 else ReadLn(rdatei, rdata.Name3);
if Eof(rdatei) then rdata.Str:= ''
 else ReadLn(rdatei, rdata.Str);
if Eof(rdatei) then rdata.Ort:= ''
 else ReadLn(rdatei, rdata.Ort);
CloseFile(rdatei);
Das sollte so auch funktionieren, wenn die Datei leer ist.
Die Funktion Eof überprüft, ob das Dateiende der angegebenen Datei erreicht ist, und falls das der Fall ist, wird True zurückgegeben, sonst False.

MfG
Binärbaum
There are exactly 10 kinds of people: those who understand binary, and those who don't.
---
"Software reift beim Kunden. Bei Hardware ist es anders: Hardware fault beim Kunden." - Rainer G. Spallek
  Mit Zitat antworten Zitat