Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.10.29;
Скачать: CL | DM;

Вниз

Почему TFileStream.size показывает 0 если файл отрывается   Найти похожие ветки 

 
novill ©   (2006-10-12 18:07) [0]

и не пуст??? Данные из него читаются, но size как был  0 так и остается.


 
Ketmar ©   (2006-10-12 18:32) [1]

потому что ошибка в коде. или открывают вовсе не файл на локальном диске.


 
DrPass ©   (2006-10-12 18:59) [2]

Потому что у кого-то религия не позволяет посмотреть хелп или исходники, и узнать, что TFileStream.Size не обозначает размер файла... и вообще ничего не обозначает, используется только для вызова seek по файлу


 
Leonid Troyanovsky ©   (2006-10-12 19:13) [3]


> DrPass ©   (12.10.06 18:59) [2]

> или исходники, и узнать, что TFileStream.Size не обозначает
> размер файла... и вообще ничего не обозначает,


Ну, чего-то да и обозначает.
Оным можно даже размер файла изменить.
Hint: procedure THandleStream.SetSize

--
Regards, LVT.


 
Ketmar ©   (2006-10-12 19:13) [4]

угу. приходилось делать эмулятор seek для своих хитрых потоков. потому что есть гении, которые seek"ом и определяют размеры, и перекрытие сайза не спасает. %-)


 
Джо ©   (2006-10-12 19:15) [5]

> [2] DrPass ©   (12.10.06 18:59)

Пардон, где такое написано?

Написано просто:

TStream.Size
Indicates the size in bytes of the stream.
Description

Use Size to find the size of the stream. Size is used internally in routines that read and write to and from the stream. Setting the Size property of TStream does nothing. Some descendants of TStream override this property to allow applications to change the size of the resource accessed using the stream.

В исходнике TStream.GetSize еще лаконичнее:
 Pos := Seek(0, soCurrent);
 Result := Seek(0, soEnd);
 Seek(Pos, soBeginning);


 
DrPass ©   (2006-10-13 00:22) [6]

Действительно... на меня склероз напал. А почему-то был уверен, что не работает. Сорри за дезинформацию :)



Страницы: 1 вся ветка

Текущий архив: 2006.10.29;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.03 c
3-1156941283
tytus
2006-08-30 16:34
2006.10.29
Как правильно создать пользователя.


11-1137023812
-=Mike=-
2006-01-12 02:56
2006.10.29
Нужно реализовать следующий функционал для инкрементного поиска


1-1158506506
Still Swamp
2006-09-17 19:21
2006.10.29
Как осуществить сдвиг с переносом для 64 битного значения?


4-1150222081
kliman
2006-06-13 22:08
2006.10.29
Перехват комбинации клавиш


15-1160078005
Tuks
2006-10-05 23:53
2006.10.29
Не находится файл dclusr50.bpl