Fórum ComboBox #166364
25/06/2003
0
Dinho_sc
Curtir tópico
+ 0Posts
26/06/2003
Rômulo Barros
Var Teste : TlistBox;
arm : String;
Begin
Teste := tListBox.Create(nil);
While Not(tabela.eof) do
Begin
arm := tabela.fieldbyname(´campo´).asString;
If(copy(arm,1,1)=´a´)then
Begin
Teste.items.add(arm);
End;
tabela.next;
End;
combobox.items := Teste.items;
End;
Gostei + 0
26/06/2003
Polo
Query1.SQL.Add(´select campo from tabela where campo like "A¬"´); Query1.Open; query1.First; while not Query1.Eof do begin ComboBox1.Items.Add(Query1.fieldbyname(´campo´).asstring); Query1.Next; end;
Gostei + 0
26/06/2003
Polo
Query1.SQL.Add(´select campo from tabela where campo like "A¬"´); Query1.Open; query1.First; while not Query1.Eof do begin ComboBox1.Items.Add(Query1.fieldbyname(´campo´).asstring); Query1.Next; end;
Gostei + 0
26/06/2003
Polo
Query1.SQL.Add(´select campo from tabela where campo like "A¬"´); Query1.Open; query1.First; while not Query1.Eof do begin ComboBox1.Items.Add(Query1.fieldbyname(´campo´).asstring); Query1.Next; end;
Gostei + 0
26/06/2003
Polo
8)
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)