Получение данных функцией FileSize

[Lokos]

Здравствуйте.
Получаю данные следующим кодом

procedure TAddData.Button1Click(Sender: TObject);
var
f:file;
begin
OP.Filter:='Граф файлы jpg|*.jpg|*.jpg';
if op.Execute = true then
begin
   image2.Picture.LoadFromFile(op.FileName);
   assignfile(f,op.FileName);
   Reset(f);
   LFileSize.caption:=inttostr(FileSize(f));
end;
end;

в итоге в лэйбеле появляются цифирки но какие обсолютно не ясоно(((
Проверял с помощью свойств в виндовс не совпадает не как.
Вопрос в каких единицах данная функциия возвращает значение? я так палагаю в байтах должна.

[DarkEvil]

Количество байт

[Utkin]

Сообщение от Lokos

Проверял с помощью свойств в виндовс не совпадает не как.

А почему они должны совпадать? Ты Тотал командером сравни или Фаром каким-нибудь.

[Lokos]

Сообщение от Utkin

А почему они должны совпадать? Ты Тотал командером сравни или Фаром каким-нибудь.

хы а почему они не должны совпадать?

[Utkin]

Сообщение от Lokos

хы а почему они не должны совпадать?

А по разным причинам. Например, зависит от настроек ФС. Есть вариант когда файлы занимают строго выделенные блоки - допустим блок 512 байт, а файл 128 байт. Так он скажет что файл занимает 512 байт.
Ну, а для больших файлов Проводник просто округляет. Скажет, что 1,7 Гб и абзац.

[Lokos]

Сообщение от Utkin

А по разным причинам. Например, зависит от настроек ФС. Есть вариант когда файлы занимают строго выделенные блоки - допустим блок 512 байт, а файл 128 байт. Так он скажет что файл занимает 512 байт.
Ну, а для больших файлов Проводник просто округляет. Скажет, что 1,7 Гб и абзац.

а знаешь там есть такое значение в байтах указывается в скобочках

[Utkin]

Сообщение от Lokos

а знаешь там есть такое значение в байтах указывается в скобочках

Ага, я тебе уже писал про настройки файловой системы. Сравнивай Тотал Коммандером.

[Пепел Феникса]

все там нормально.

насчет св-в то не забывайте что там два размера.

[Lokos]

Сообщение от Пепел Феникса

все там нормально.

насчет св-в то не забывайте что там два размера.

я не спорю что там 2 размера округленный и более точный но у меня не совпадал примерно с таким соотношением 38 976 в проводнике 41 234
))) сравню фаром или тотал командером посмотрю что будет

[Utkin]

Проверь еще раз, ты уверен? У меня все работает. Ну если не получается делай через потоки.



--------------------------------------------- Добавлено ---------------------------------------------

Пробовал разновидность Вашего примера. Тоже не работает . Похоже у Вас не глюки...



--------------------------------------------- Добавлено ---------------------------------------------

Нашел, чего это Вы синтаксис не читаете? FileSize - определяет размер файла в записях.
Поэтому переменную нужно определять как f: File of Byte;
У меня сначала так все и было, а попробывал Ваш пример, таки удивился вместе с Вами .