GARANTIR DESCONTO

Fórum Filtrar tipo de arquivo #355869

24/03/2008

0

Galera eu estou com um pequeno probleminha
Eu estou precisando exibir em um comboBox arquivos do tipo MP3
Esse arquivos estão dentro de uma pasta que contém vários outros tipos de arquivo
É possível exibir somente os arquivos MP3 que estão dentro da pasta no comboBox?


Mortify

Mortify

Responder

Posts

25/03/2008

Marco Salles

O delphi ja possui uma unit para tratar isto .

A unit FileCtrl

1)
Declare a Unit FileCtrl na Uses

2)No evento OnCreateFor ou outro a sus escolha digite :

procedure TForm1.FormCreate(Sender: TObject);
var
 meusArquivos:TFileListBox;
begin
  try
   meusArquivos:=TfileListBox.Create(nil);
   meusArquivos.Parent:=self;
   meusArquivos.Directory:=´ENDEREÇO CORRETO´;
   meusArquivos.Mask :=  ´*.txt´;  //sua máscara
   combobox1.Items.AddStrings(meusArquivos.Items);
  finally
    meusArquivos.Free;
  end;
end;



Responder

Gostei + 0

25/03/2008

Mortify

:arrow: Valeu ai
Salvo minha vida de novo ^^
Era disso mesmo que eu estava precisando
Valeu ai
:lol:


Responder

Gostei + 0

25/03/2008

Mortify

Ae deu esse breminha ai

[Warning] Principal.pas(8): Unit ´FileCtrl´ is specific to a platform
[Warning] Principal.pas(93): Variable ´MeusArquivos´ might not have been initialized

Sabe pq deu isso?


Responder

Gostei + 0

25/03/2008

Marco Salles

warning, é um aviso do compilador, [b:9b217313f2]não um erro[/b:9b217313f2]. Serve para o compilador sinalizar que tem algo [u:9b217313f2]estranho[/u:9b217313f2] no seu código, cabe a você decidir se é ou não um erro.

Voce deve esta Compilando dando um Build ... Se voce compilar com o
Compille All Projects , Seguido do Bulid voce não deve receber estes
warning

Alem do mais hint/warning podem ser Desabilitados ,
incluiam no código {$WARNINGS OFF} e/ou {$HINTS OFF}, o que desabilita a geração de avisos .

Espero que tenha entendido...


Responder

Gostei + 0

25/03/2008

Mortify

Eu sei q n é erro
Mais é que eu so meio perfeccionista
Não gosto de ver nenhum Warning nos códigos ^^
Realmente compilando todo o projeto não exibiu o warning
valeu de novo ^^


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar