Procedure para preencher ComboBox
Boa Tarde.
Estou querendo criar um procedimento para completar uma ComboBox com determinados valores. Porém, gostaria de ´centralizar´ esse procedimento em algum local e apenas chamar ele nos forms.
Ou seja: eu chamo local.procedimento(nomeComboBox) e ele preenche com os valores pré-configurados nele.
Alguém poderia me dizer em que local eu deveria colocar esse procedimento?
e no caso a variavel nomeComboBox teria que ser de que tipo (já que seria o nome do componente ComboBox)? TComboBox?
Obrigado
Mateus Jr.
Estou querendo criar um procedimento para completar uma ComboBox com determinados valores. Porém, gostaria de ´centralizar´ esse procedimento em algum local e apenas chamar ele nos forms.
Ou seja: eu chamo local.procedimento(nomeComboBox) e ele preenche com os valores pré-configurados nele.
Alguém poderia me dizer em que local eu deveria colocar esse procedimento?
e no caso a variavel nomeComboBox teria que ser de que tipo (já que seria o nome do componente ComboBox)? TComboBox?
Obrigado
Mateus Jr.
Mateusjr
Curtidas 0
Respostas
Mazzi
18/07/2008
sim, ou senao use um vetor, tipo Array.
GOSTEI 0
Catunda
18/07/2008
Vc pode colocar o procedimento em uma unit qualquer que seja referenciada nos forms onde se utilizará o procedimento, ou coloque-o no formulario principal e ao criar cada form execute o procedimento apontado para o form recem criado. Esse direcionamento para o form recem criado pode ser passado diretamente no parametro do procedimento, algo como: carregacombo(nomedoform.nomedocombo);.
procedure LoadCombo(xcombo:tcombobox; xvalores:tstrings);
var
i: Integer;
begin
xcombo.Items.Clear;
for i:=0 to xvalores.Count-1 do
xcombo.Items.Add(xvalores.Strings[i]);
end;
procedure LoadCombo(xcombo:tcombobox; xvalores:tstrings);
var
i: Integer;
begin
xcombo.Items.Clear;
for i:=0 to xvalores.Count-1 do
xcombo.Items.Add(xvalores.Strings[i]);
end;
GOSTEI 0
Mateusjr
18/07/2008
Obrigado pelas respostas. :)
Consegui resolver.
:)
Consegui resolver.
:)
GOSTEI 0