Question

在我的VCL表单应用程序中，我添加了：

按钮
OpenDialog
修改
的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

首先，您错过了public static boolean test() throws Exception { try { doSomething(); } catch (Exception e) { throw new Exception("No!"); } return true; }对。

begin .. end;

然后要获取文件大小，请声明变量begin if OpenDialog1.Execute then begin // missing // ... // fetch file size and update `TListView` here // ... end; // missing end;并使用size: int64;

TFileStream

请务必阅读文件模式并分享常量

您是否使用了listview的var size: int64; ... fs := TFileStream.Create(OpenDialog1.FileName, fmOpenRead or fmShareDenyWrite); try size := fs.Size; finally fs.Free; end;来声明所需的列？如果没有，请右键点击Column Designer，然后从菜单中选择TListView。

您正确地将一个项目添加到列表视图，但您从未为其分配过标题，因此我会分配文件名，因此可以清楚地知道大小和类型与哪个文件相关。

Column Designer

然后将文件大小添加到子项

中

  LI.Caption := OpenDialog1.FileName;

最后是文件类型

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

显示大小和格式

1 个答案: