Como selecionar vários arquivos com o OpenDialog?
Olá pessoal! Estava tendo a necessidade de selecionar vários arquivos
com o OpenDialog. Depois de alguns testes consegui resolver este
problema e resolvi postar como fazer.
1º Passo é ir dentro da propriedade Options do OpenDialog, na
opção ofAllowMultiSelect e colocar com True.
Abaixo segue uma imagem para ajudar no entendimento.
2º Passo é recuperar os arquivos selecionados.
Para isso, você pode percorrer a propriedade Files.
Veja o código abaixo:
1
2
3
4
5
6
7
8
9
10
11
| procedure TForm1.Button1Click(Sender: TObject);
var
I: integer;
begin
if (OpenDialog1.Execute) then
begin
{ Percorrendo a lista de arquivos selecionados. }
for I := 0 to OpenDialog1.Files.Count - 1 do
ShowMessage(OpenDialog1.Files[I]);
end;
end; |
procedure TForm1.Button1Click(Sender: TObject);
var
I: integer;
begin
if (OpenDialog1.Execute) then
begin
{ Percorrendo a lista de arquivos selecionados. }
for I := 0 to OpenDialog1.Files.Count - 1 do
ShowMessage(OpenDialog1.Files[I]);
end;
end;
Então pessoal, é uma dica simples, mas espero que possa ser útil a todos!
Dúvidas ou sugestões deixe nos comentários do post.
-
Giovani Da Cruz
-
12.376 views
- 1 comentários
- 14 de novembro de 2015
Está gostando do conteúdo? Considere pagar um cafezinho para nossa equipe!
Posts Relacionados - Continue Aprendendo
Muito útil, Obrigado!