(Resolvido) Caixa!

[mayconvm]

Saudações!

Galera olha so, eu tenho informações em banco de dados que eu preciso jogar elas em um TComboBox.

só que eleas estão no banco separadas por virgulas, como que faço para colocar elas como itens?

congregacao.Items := DataModule2.Query.Fields[0].AsString;

Obrigado pela atenção!

[Daniel Sanches]

vou te dar um exemplo:

var
VITENS: string;
begin
        VITENS:= AnsiReplaceStr(Edit1.Text,',',#13);
        listbox1.Items.Text:= VITENS;

substituir Edit1.Text pelo campo desejado ...

substituir listbox1 pelo compobox desejado...

no exemplo acima, estou substituindo todas as vírgulas(,) do campo por um enter....

qualquer coisa é só postar novamente ...

abraço!!

[mayconvm]

MOÇO BRIGADÃO! MAIS AQUI EU PROCUREI PELA NET UNS EXEMPLOS E ENCONTREI UNS E FIZ ASSIM:

str :=DataModule2.Query.Fields[0].AsString;

separador :=',';

p := Pos(separador,str);

while (p > 0) do

begin

congregacao.Items.Add(Copy(str, 1, p-1));

Delete(str, 1, p + Length(separador) - 1);

p := Pos(separador, str);

end;

if (str <> '') then

congregacao.Items.Add(str);

MUITO OBRIGADO PELA ATENÇÃO!