Jump to content
Tuts 4 You
RusSun

Delphi, Dialog to select multiple folders.

Rate this topic

Recommended Posts

RusSun

Hi, everybody.
I'm using KOL - Key Objects Library.

Need a dialog to select multiple folders.
This option works for text files.
procedure click button2(dummy: pointer;Slender: Control; var mouse:TMouseEventData);
var s: String;

begin
Dialog: = NewOpenSaveDialog ( " , FileFullPath ('Project1.exe'), [ OSFileMustExist, OSHideReadonly, OSAllowMultiSelect, OSOverwritePrompt, OSPathMustExist ] );
dialog.Filter:= '*.txt/*.txt|all/*.*';
Dialogue.OpenDialog: = true;

 if Dialog.Execute then / / else exit;
s:=Dialog.Filename; k:=-1;
while s < > " do
                  begin
                        inc(k);
                        a[k]:=Trim( Parse( s, #13 ) );
                        s: = Trim( s );
          end;

form.Caption:=inttostr(k);
Forms'.Add2AutoFree (Dialogue);
end;
Q: how to do for multiple folders?

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×