简单问题：TOpenDialog，怎么知道用户选中了多少个？

Question

申明，分数比较少，只给第一个正确的回答者...OpenDialog1.Files.?   怎么没Count?谢谢

Answer 1

没Count也没关系:
procedure TForm1.Button1Click(Sender: TObject);
var
  i:Integer;
begin
  if OpenDialog1.Execute  then
  begin
    ListBox1.Clear;
    ListBox1.Items:=OpenDialog1.Files;
    for i := 0 to ListBox1.Items.Count-1 do
    begin
      ListBox1.Items[i]:=
        ExtractFileName(ListBox1.Items[i]);//去路径
    end;
    ListBox1.Columns:=1;//分栏
  end;
end;

Answer 2

Options的ofAllowMultiSelect设成True
OpenDialog1.Files.Count

Answer 3

delphi6:
  opendialog1.Files.Count