不重提问？关于progressbar？

Question

把SourceFile大小找出，除以Buff的大小，然后算出ProgressBar1的Max值

Answer 1

能具体说明一下代码：
         怎样探测sourcefile大小，buff所指是什么；
               sourcefile为rbedit.text

Answer 2

大概如下（我没办法测试）
var
  Len:integer;
  
  assignfile(sourcefile,rbedit1.Text);
   reset(sourcefile,1);
  Len:=FileSize(sourcefile);
  ProgressBar1.Max:=Len div 2;