?
Solved

About OpenDialog

Posted on 1999-01-06
3
Medium Priority
?
294 Views
Last Modified: 2010-04-04
How can I find out how many files are selected when I use OpenDialog for opening files?
0
Comment
Question by:mmilan
  • 2
3 Comments
 
LVL 3

Accepted Solution

by:
williams2 earned 120 total points
ID: 1355006
That's actually easy enough:

This will do the trick:

procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  If OpenDialog1.Execute then
  With OpenDialog1 do
    For i:= 0 to Files.count-1 do ShowMessage(Files[i]);
end;

Regards,
Williams
0
 
LVL 17

Expert Comment

by:inthe
ID: 1355007
hi here is another way
procedure TForm1.Button1Click(Sender: TObject);
var
a:integer;
begin
opendialog1.Execute;
a:=opendialog1.Files.Count;
showmessage(inttostr(a));
end;

Regards Barry
Williams your too fast  :-)
0
 
LVL 3

Expert Comment

by:williams2
ID: 1355008
Hi Barry, you gotta be fast at this site. The last 5 times I wrote answers, somebody came up before me :-) ..but I guess this will clear up things:

That's actually easy enough:

This will also do:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Clear;
  If OpenDialog1.Execute then
    memo1.Lines.AddStrings(OpenDialog1.Files);
end;  

0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

This article explains how to create forms/units independent of other forms/units object names in a delphi project. Have you ever created a form for user input in a Delphi project and then had the need to have that same form in a other Delphi proj…
In my programming career I have only very rarely run into situations where operator overloading would be of any use in my work.  Normally those situations involved math with either overly large numbers (hundreds of thousands of digits or accuracy re…
Despite its rising prevalence in the business world, "the cloud" is still misunderstood. Some companies still believe common misconceptions about lack of security in cloud solutions and many misuses of cloud storage options still occur every day. …
Whether it be Exchange Server Crash Issues, Dirty Shutdown Errors or Failed to mount error, Stellar Phoenix Mailbox Exchange Recovery has always got your back. With the help of its easy to understand user interface and 3 simple steps recovery proced…
Suggested Courses
Course of the Month14 days, 15 hours left to enroll

839 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question