Como adicionar todos os Items de um ListBox Numa Tabela ???

Question

Oi Gostaria de adicionar os items do meu listBox num campo da minha tabela ?
Ex:
While not listBox1 Do
Begin
Table1.edit;
Add(Table1.fieldByName(�Turma�).asstring );
Post;
Next;

Tem como fazer isso ??
Alguem pode me aJudar ?

Anonymous · Answer

Oi,
Voc� pode usar a propriedade do count dos Items do Listbox, mais ou menos assim.

var i:integer;
...
table1.first; //isso se voc� vai come�ar a adicionar do primeiro registro...
for i:=0 to listbox1.items.count do
begin
table1campo1.value:=listbox1.items[i];
end;

Abra�os.

Anonymous · Answer

[quote:2a20591fed=�Sergio�]Oi Gostaria de adicionar os items do meu listBox num campo da minha tabela ?Ex:While not listBox1 Do BeginTable1.edit;Add(Table1.fieldByName(�Turma�).asstring );Post;Next;Tem como fazer isso ??Alguem pode me aJudar ?[/quote:2a20591fed]Obs: Na resposta abaixo, onde disse �na propriedade do count�, queria dizer �na propriedade count�....

Anonymous · Answer

Valeu vou tentar aqui !...

Anonymous · Answer

Oi S�rgio,
Desculpe-me, quando estava almo�ando (interessante a palavra almo�o que � uma das mais usadas em portugu�s e � de origem �rabe), lembrei-me de que se voc� usar o c�digo exatamente como est�, vai dar o erro list index of bound, ou algo assim, porque deveria ser:
for i:=0 to (listbox1.items.count-1).
Isto porque, count conta a partir de 1 e n�o de zero. Abra�os.

Anonymous · Answer

pauloamaral@3ax.com.brExatamente O erro que tava dando heheh Valeu de novo !...