如何得到一个文件的大小?
解决方案 »
- 看看那里有问题,找找错误
- 如何改变第二个fsMDIChild窗口的大小
- delphi操作sqlserver数据库时关于日期型数据的处理问题?
- 那位高手能告诉我BoundsChecker for delphi 怎么用?
- 命苦啊。。。。。。
- 谁提供个delphi读写xml文档的例子?
- 请问如何遍历菜单?
- 如何获得主机在INTERNET上的IP地址?
- 用delphi控制word,如何替换word中页眉文字,或者设置页眉
- paradox数据库正在存数据的时候突然断电!在从新启动机器数据库就坏了,请问有什么处理方法???
- 在Button控件的Click事件里,如何获得点击的Button控件的Caption?
- 新年+过年,各位新年好+过年好(有点早),散分了。
procedure TForm1.Button1Click(Sender: TObject);var
f: file of Byte;
size: Longint;
S: string;
y: Integer;
begin
if OpenDialog1.Execute then
begin
AssignFile(f, OpenDialog1.FileName);
Reset(f);
try
size := FileSize(f);
S := 'File size in bytes: ' + IntToStr(size);
y := 10;
Canvas.TextOut(5, y, S);
y := y + Canvas.TextHeight(S) + 5;
S := 'Seeking halfway into file...';
Canvas.TextOut(5, y, S); y := y + Canvas.TextHeight(S) + 5;
Seek(f, size div 2);
S := 'Position is now ' + IntToStr(FilePos(f));
Canvas.TextOut(5, y, S);
finally
CloseFile(f);
end;
end;
end;
Ffile:integer;
FileSize:integer;Ffile:=FileOpen(FileName,fmOpenRead);
FileSize:=FileSeek(PFile,0,2);