untypisierte dateien

[khh]

Zitat:

Zitat von Klaus01

Guten Morgen,

der "Lesezeiger, bzw. Leseposition" ändert sich nach jedem Lesevorgang.
Liest Du jeweils immer einen Datensatz ein steht der Lesezeiger auf dem nächsten Byte hinter dem
Datensatz. Liest Du einen weiteren Datensatz fängt der Lesevorgang an der Position an wo der Lesezeiger
hinzeigt.

Die Anzahl der Datensätze erhälst Du so: Stream.size div Datensatzgröße.

Grüße
Klaus

hallo Klaus, heisst ich lese die komplette Datei einfach 544 mal?

[Klaus01]

Zitat:

Zitat von khh

Zitat:

Zitat von Klaus01

Guten Morgen,

der "Lesezeiger, bzw. Leseposition" ändert sich nach jedem Lesevorgang.
Liest Du jeweils immer einen Datensatz ein steht der Lesezeiger auf dem nächsten Byte hinter dem
Datensatz. Liest Du einen weiteren Datensatz fängt der Lesevorgang an der Position an wo der Lesezeiger
hinzeigt.

Die Anzahl der Datensätze erhälst Du so: Stream.size div Datensatzgröße.

Grüße
Klaus

hallo Klaus, heisst ich lese die komplette Datei einfach 544 mal?

Nein, Du liest die Datei einmal in den FileStream ein.
In diesem Stream kannst Du dann 544 mal lesen bis Du zum Streamende ankommst.

Grüße
Klaus

[khh]

Zitat:

Zitat von Klaus01

Zitat:

Zitat von khh

Zitat:

Zitat von Klaus01

Guten Morgen,

der "Lesezeiger, bzw. Leseposition" ändert sich nach jedem Lesevorgang.
Liest Du jeweils immer einen Datensatz ein steht der Lesezeiger auf dem nächsten Byte hinter dem
Datensatz. Liest Du einen weiteren Datensatz fängt der Lesevorgang an der Position an wo der Lesezeiger
hinzeigt.

Die Anzahl der Datensätze erhälst Du so: Stream.size div Datensatzgröße.

Grüße
Klaus

hallo Klaus, heisst ich lese die komplette Datei einfach 544 mal?

Nein, Du liest die Datei einmal in den FileStream ein.
In diesem Stream kannst Du dann 544 mal lesen bis Du zum Streamende ankommst.

Grüße
Klaus

ja so hab ichs gemeint, hab mich falsch ausgedrückt ;-)

[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

[khh]

ich danke euch
EDIT : auch das oemtochar zeigt Wirkung, sprich Umlaute funktionieren.
War tatsächlich das fehlende SetLength.


Gruss KH