Povoando TComboBox!

Delphi

16/03/2008

Criei este procedimento para povoar um TComboBox com os nome dos componentes TIBDataSet, porem não da certo com TComboBox, apenas com TMemo, alguem pode me ajduar com isso ?

procedure TfrmRelCon.Button1Click(Sender: TObject);
var
QtdComponentes, I : Integer;
begin
QtdComponentes := Modulo.ComponentCount;
memoTabelas.Clear;
for I := 0 to QtdComponentes do
begin
if I = QtdComponentes then
Abort;
if Modulo.Components[I] is TIBDataSet then
begin
memoTabelas.Lines.Add(Modulo.Components[I].Name);
cmbxTabelas.AddItem(Modulo.Components[I].Name[I],Self);
end;
end;
end;

No memo | No ComboBox
... | ...
setClassificacao | t
setDoenca | n
setPique |
... | Q

Desde já agradeço.


Ullrich

Ullrich

Curtidas 0

Respostas

Alexandre.jose

Alexandre.jose

16/03/2008

Faça assim:


procedure TfrmRelCon.Button1Click(Sender: TObject);
var
  I : Integer;
begin
  memoTabelas.Clear;
  cmbxTabelas.Items.Clear;
  for I := 0 to Modulo.ComponentCount -1 do
  begin
    if Modulo.Components[I] is TIBDataSet then
    begin
      memoTabelas.Lines.Add(Modulo.Components[I].Name);
      cmbxTabelas.Items.Append(Modulo.Components[I].Name[I], Self);
    end;
  end;
end;



GOSTEI 0
Ullrich

Ullrich

16/03/2008

cara deu erro linha:

cmbxTabelas.Items.Append(Modulo.Components[I].Name[I], Self);

[Error] untRel_COnsul.pas(157): Too many actual parameters


O que será ?


GOSTEI 0
Alexandre.jose

Alexandre.jose

16/03/2008

cmbxTabelas.Items.Append(Modulo.Components[I].Name[I], Self); O que será ?


Tire o ´,Self´.


GOSTEI 0
Ullrich

Ullrich

16/03/2008

Tirando o ´,Self´. Roda, porem esta povoando com valores incorretos

No memo povoa certo, no ComboBox ou ListBox, povoa com cacacteres estranhos.

?????


GOSTEI 0
POSTAR