Форум: "Основная";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];
Внизне получается прочитать последние 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]мда пока прочитаешь пока напишешь... тут уже все решат...
торможу...
← →
MBo © (2004-10-14 19:38) [5]код в общем верный, замечания лишь можно сделать об использовании конкретных чисел вместо предопределенной константы и SizeOf
>но полученные данные не соответствуют дествительности
чем подтвердишь?
← →
MBo © (2004-10-14 19:41) [6]>Palladin © (14.10.04 19:37) [4]
во-во ;))
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2004.10.31;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.035 c