Форум: "Основная";
Текущий архив: 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.033 c