untypisierte dateien

[p80286]

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