COMBOBOX

Question

COMO EU FA�O PARA APARECER EM UM COMBOBOX, TODOS OS ARQUIVOS QUE POSSUO NA PASTA C:TESTE ??SE ALGUEM PUDER ME AJUDAR EU AGRADE�OABRA�OS :lol:...

Carlosrm · Answer

Thales,

No Delphi 6, inclua a unit DBTABLES na cl�usula uses do seu formul�rio.
Talvez seja necess�rio a unit DB tamb�m.
Inclua um componente combobox (eu deixei o nome Combobox1).
Voc� pode usar qualquer evento (por ex:, um clique num bot�o) em vez de FormShow.
�c:\teste� � o caminho completo onde est�o suas tabelas. Pode ser
usado uma vari�vel (par�metro). Se n�o tiver nenhuma tabela paradox (.db) no diret�rio especificado, o combobox continuar� vazio.
Qlq d�vida, escreva.

procedure TForm1.FormShow(Sender: TObject);
begin
Session.GetTableNames(�c:\teste�,��,true,false, combobox1.Items);
combobox1.itemindex := 0;
end;

carlosrm

carlosrm@pop.com.br

Rafael Heise · Answer

Use o componente TFileListBox da aba Win31 e sete o diret�rio para o diret�rio que voc� quer e tamb�m pode setar o filtro que voc� quiser para somente determinados arquivos....
mas caso deva mesmo ser um ComboBox... ent�o voc� tem que fazer esse c�digo....

procedure ListFiles(aComboBox: TComboBox; aDir: string);
var
  sr: TSearchRec;
begin
  aComboBox.Items.Clear;
  if FindFirst(aDir,faAnyFile,sr) = 0 then
  begin
    repeat
      aComboxBox.Items.Add(sr.Name);
    until FindNext(sr) <> 0;    
  end;
end;

isto far� com que o combo passado recebe todos os arquivos que est�o no diret�rio passado... ai voc� pode elaborar um pouco mais para a sua necessidade como testar se � de determinada extens�o.... etc... beleza...
valeu

F�rum COMBOBOX #174062