не получается прочитать последние 4 байта файла

← →
redlord (2004-10-14 19:25) [0]

всем привет.
помогите разоьраться почему ниже приведенным кодом
не получается прочитать последние 4 байта файла
файл прога читает но полученные данные не соответствуют дествительности
var
infosize:longint;
fin:tfilestream;
begin
Fin:=tfilestream.Create("c:proba.aaa",$0);//fmOpenRead);
fin.Seek(soFromend,4);
Fin.Readbuffer(infosize,4);
Fin.Free;
Edit1.text:=inttostr(infosize);

← →
begin...end © (2004-10-14 19:32) [1]

По-моему, ты перепутал местами параметры Origin и Offset. К тому же, в случае Origin = soFromEnd должно быть Offset <= 0 (см. Help).

← →
redlord (2004-10-14 19:34) [2]

так и есть перепутал. спасибо

← →
Palladin © (2004-10-14 19:35) [3]

почему ты так думаешь?

← →
Palladin © (2004-10-14 19:37) [4]

мда пока прочитаешь пока напишешь... тут уже все решат...
торможу...

код в общем верный, замечания лишь можно сделать об использовании конкретных чисел вместо предопределенной константы и SizeOf

>но полученные данные не соответствуют дествительности
чем подтвердишь?

не получается прочитать последние 4 байта файла Найти похожие ветки