【结】获取上传文件大小

lxh_78

想要获取上传文件的大小，在论坛里搜了一下：
procedure TMainForm.Button3Click(Sender: TObject);
var
  a: integer;
begin
  a := CommonComponentLibrary.TCommonComponentLibrary.UserSystem.GetFileSize('File:\c:\Winnt\NOTEPAD.EXE');
  dialogs.showmessage(sysutils.inttostr(a));
end;
但编译了一下，出现了下面错误信息：
Undeclared identifier "CommonComponentLibrary"
需要引入什么系统文件么，怎么引入呀？

zfang

studio中，业务对象树中，有一个搜索的功能的，你输入 CommonComponentLibrary 然后进行搜索，然后 项目管理中 进行引入一下。

atiger

用 “CommonComponentLibrary”在建模工具上搜索一下，在项目管理器引入进来，就可以了

lxh_78

谢谢