显示大小和格式

Question

在我的VCL窗体应用程序我已经加入：

1. 按钮
2. OpenDialog
3. 编辑
4. 的ListView

当我打开与opendialog文件，如何我是否在ListView列中显示文件大小和格式？

这里是我试图代码 - 请改正我的错误，或者有什么功能我必须添加ListView中显示？

//=============================== 
procedure TForm1.BntOpen1Click(Sender: TObject); 
var 
    LI: TListItem; 
begin 
    if OpenDialog1.Execute then 
    LI := ListView1.Items.Add; 
    LI.SubItems.Add(Format(OpenDialog1.FileName, [0])); 
end; 
//=========================== 

感谢

Answer 1

首先，你缺少一个begin .. end;对。

begin 
    if OpenDialog1.Execute then 
    begin // missing 
    // ... 
    // fetch file size and update `TListView` here 
    // ... 
    end; // missing 
end; 

然后获取文件大小，声明一个变量size: int64;和使用TFileStream

var 
    size: int64; 
... 
    fs := TFileStream.Create(OpenDialog1.FileName, fmOpenRead or fmShareDenyWrite); 
    try 
     size := fs.Size; 
    finally 
     fs.Free; 
    end; 

请务必在文件模式和共享常数

读了你有没有用Column Designer的listview来声明你需要的列吗？ 如果不行，就TListView单击鼠标右键，从菜单中选择Column Designer。

您正确添加项目到ListView但你永远不分配一个标题，所以我会指定的文件名，所以该文件的大小和类型都与那将是清楚的。

LI.Caption := OpenDialog1.FileName; 

然后添加文件的大小成子项

LI.SubItems.Add(IntToStr(size)); 

最后文件类型

LI.SubItems.Add(ExtractFileExt(OpenDialog1.FileName));