Forum: Object-Pascal / Delphi-Language
Delphi
by BlackJack,
2. Aug 2006
hast du dran gedacht das bei allen BlockReads/BlockWrites zu ändern? weil sowohl Buffer als auch LoopBuffer sind arrays of SmallInt, aber du liest/schreibst immer Length() viele bytes aus, aber du musst immer Length() SmallInts auslesen :warn:
Forum: Object-Pascal / Delphi-Language
Delphi
by BlackJack,
2. Aug 2006
ein smallint ist 2 bytes gross, also musst du auch doppelt so viele bytes schreiben wie Header.DataBytes angibt:
BlockWrite(F, LoopBuffer, Header.DataBytes*SizeOf(SmallInt));
und steig zum arbeiten mit dateien lieber auf TFileStream um, kommt besser ;)
edit: Kontonummer kommt dann per PN :P