Du machst eseinfach so:
Delphi-Quellcode:
....
repeat
gelesen:=fs.read(buffer,sizeof(buffer));
if gelesen:=sizeof(buffer) then begin { nur vollständig gefüllte Sätze verarbeiten }
{ Daten verarbeiten }
test1:= myrecord.artnr ;
test2:= myrecord.name ;
test3:= myrecord.name2 ;
test4:= myrecord.preis ;
end;
until gelesen<sizeof(buffer); { wenn nicht mehr genügend Daten gelesen werden ist schluß!}
...
Der Test von gelesen ist wichtig, da es keine Fehlermeldung bei Dateiende,fehlender zugriffsbereichtigung etc. gibt!
Gruß
K-H