Слежение за достижением размера файла.

[Alex Cones]

AssignFile(FS, '1.txt');
 Reset(FS, 1);
 L:=SizeOf(FS);
 CloseFile(FS);

 R:=L;
 R:=1024/(R*10);

 R:=R*1000;
 R:=Round(R);
 R:=R/1000;
 Label3.Caption:=FloatToStr(R);
 Memo1.Clear;

Так я пытаюсь следить за тем, насколько файл достиг 1 мб. в лейбле, лежащим рядом с третьим написан символ "%".

Но выводит почему-то всегда 0.308

Как исправить?

P.S. L - LongInt R - Real F - File

[raxp]

...или что-то уже не понимаю или Label3.Caption:= '%' + floatToStr( L*100/1024/1024 )

[Alex Cones]

Тьфу, блин! ну так и знал, что на 1024 еще надо было доделить! Спасибо!

[Alex Cones]

Все равно что-то не так.
Число не изменяется при изменении размеров файла.
Пробовал 1024/(R*100) - тот же эффект.

[Alex Cones]

Нашел причину, но не знаю, как решить.
Файл весит 5 кб, но L:=FileSize(F) дает 332.
ТЬФУ, БЛИН! Я ж не FileSize написал, а SizeOf!

[raxp]

...эт ты все bp70 мучаешь?

[Alex Cones]

Та не, эт я грабилку анекдотов пишу. Кстати придумал, как реализовать без хуков и прямого граббинга.

Применение: Выделил на сайте анекдот, нажал CTRL+C, нажал CTRL+V в окошке грабилки, подправил, если что не так и нажал "Грабеж".

А неплохая прожка вышла для модуля "Информеры - случайная информация" в системе UcoZ