Hallo Michael,
warum es umgekehrt nicht funktioniert, weiss ich nicht:
meine Procedure wäre (jetzt aus dem Kopf):
Delphi-Quellcode:
dsmax: Maximale Anzahl Datensätze
dsOpen: Datensätze öffnen (Edit1.Text := Feld)
pfad := Edit1.Text
Stream := TFileStream.Create(pfad, fmOpenRead);
Stream.ReadBuffer(dsmax, SizeOf(Word));
for i := dsmax - 1 downto 0 do
Stream.ReadBuffer(Daten[i], SizeOf(TDaten);
dsOpen;
Stream.Free;
Vielleicht siehst Du ja jetzt den Fehler!
Bekommst auch im MT ein Bier von mir!!!
Dirk
[edit=Luckie]Delphi-Tags eingefügt. Beim nächsten mal bitte selber machen. Mfg, Luckie[/edit]