GetFileSize 怎么用?
解决方案 »
- DELPHI中cxLookAndFeel.NativeStyle属性是做什么用的?
- delphi下如何锁定键盘,包括ALT+F4和CTRL+ALT+DEL
- 有用过graphics32控件的吗?
- 关于TclientDataSet的问题
- 关于判断文件唯一性,怎么提取特征码
- ListView排序的问题
- 我在调用ADO数据源时,这个出错原因,是由什么引起的
- 难到就没人解决吗?怎么把Excel中sheet1中的表复制到sheet2中吗?见帖 关于Excel表格复制的问题??
- 关于Recordset 序列化后 无法UpdateBatch的问题
- Delphi做数据库可以不用BDE吗?
- 头大的问题。窗口上有两个DateTimePicker控件需要在编程中限制前一个日期不可以超过后一个。有人实现过么?
- 求求各位帮忙一下吧,小妹真真真急着呢
procedure TForm1.BitBtn2Click(Sender: TObject);
var
FromF : file of byte;
FileLength : longint;
begin
AssignFile(FromF,'c:\a.bmp');
FileLength:=FileSize(FromF);
showmessage(inttostr(filelength));
end;
就拿文本文件来说,FileSize返回的是文件大小整除128后的数,如果文件大小不是128的倍数,那么余数就没有了