FileSize
Constantin © (2004-10-19 21:36:00)
Здраствуйте!
Я считываю содержиме документа Ворда:
BegCharRead:=0;
EndCharRead:=100;
block := WordDocument2.Range(BegCharRead,EndCharRead);
в ворде каждый символ я так понимаю - байт памяти. Вопрос:
Как узнать размер вордовского файла
и как определить сколько (хоть примерно) в нем инфы не
текстовой?
VAmp (2004-10-22 10:41:00) [1]
Размер можно узнать так (код из моей проги):
var
SearchRec : TSearchRec;
if FindFirst('Путь к файлу'+'\*.*',faAnyFile,SearchRec) = 0
then
begin
if (SearchRec.Name<>'.')
and (SearchRec.Name<>'..') then
begin
Form1.ListBox1.Items.Add(SearchRec.Name + ' '
+IntToStr(SearchRec.Size));
Наверх 
ЧАТ |
Орешник |
|
