Blockwrite con integer

[Saschas]

Hallo

Kann man ans ende einer datei einen integer wert anhängen und diesen wieder auslesen?
Bsp:
var
BytesRead: Integer;
begin

klar vorher assigne und reset etc. aber jetzt...

BytesRead:=SizeOf(file);//BytesRead ist jetzt zb 500
BlockWrite(F1, BytesRead, SizeOf(BytesRead));//Längeninformation anfügen
CloseFile(F1);

end;

und diese wieder auslessen...
var
DLength: Integer;
begin
AssignFile(F1,'blablabla' );
Reset(F1, 1);
Seek(F1, FileSize(F1)-4);//Integerzahl 4Bytes
BlockRead(F1, DLength, 4);
CloseFile(F1);
end;

Steht jetzt in Dlength der gleiche wert 500 wie der den ich reingeschrieben habe oder wie muss ich ihn reinschreiben das der wert wieder als integer rauskommt.

vielen dank

sascha

[Falk Prüfer]

Hallo Saschas,

wenn du den ersten Teil vor Blockwrite... noch um ein Seek(F, FileSize(F)) ersetzt, dann müßte es so funktionieren. Ich würde aber die Größenangaben (4) in jedem Fall durch ein SizeOf(Variable) ersetzen.

Gruß Fal