Display size and format

Question

In my VCL form application I have added:

1. Button
2. OpenDialog
3. Edit
4. ListView

When I open a file with opendialog, how do i display the file size and format in ListView column?

Here is the code which am trying - please correct my mistake, or what function do I have to add to display in 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;
//===========================

thanks

Answer 1

First, you are missing a begin .. end; pair.

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

Then to get the file size, declare a variable size: int64; and use a TFileStream

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

Be sure to read up on file mode and sharing constants

Have you used the Column Designer of the listview to declare the columns you need? If not, right-click on the TListView and select Column Designerfrom the menu.

You correctly added an item to the listview but you never assigned a caption to it, so I would assign the filename, so it would be clear to which file the size and type are related.

  LI.Caption := OpenDialog1.FileName;

Then you add the size of the file into a subitem

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

and finally the file type

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