URGENTE: ListBox para tabela.
Oi galera.
Seguite: Tenho um listbox onde o usuário pode selecionar vários itens [i:949da6e5ed](MultiSlect := True)[/i:949da6e5ed].
Depois que o usuário selecionar os itens que desejar, que pode ser 1 (um) ou muitos, quero salvar os dados [b:949da6e5ed]selecionados[/b:949da6e5ed] em uma tabela.
[b:949da6e5ed]Como faço pra percorrer o listbox e salvar apenas os selecionados?[/b:949da6e5ed]
Seguite: Tenho um listbox onde o usuário pode selecionar vários itens [i:949da6e5ed](MultiSlect := True)[/i:949da6e5ed].
Depois que o usuário selecionar os itens que desejar, que pode ser 1 (um) ou muitos, quero salvar os dados [b:949da6e5ed]selecionados[/b:949da6e5ed] em uma tabela.
[b:949da6e5ed]Como faço pra percorrer o listbox e salvar apenas os selecionados?[/b:949da6e5ed]
Tenil
Curtidas 0
Respostas
Andrey
07/10/2003
Tenta trabalhar com a propriedade Selected[x] do List Box.
GOSTEI 0
Imoreira
07/10/2003
var
x: integer;
begin
for x:=0 to listbox1.Items.Count-1 do begin
if (listbox1.Selected[x]) then begin
tb.Insert;
tbNome.AsString:=listbox1.Items.Strings[x];
tb.Post;
end;
end;
x: integer;
begin
for x:=0 to listbox1.Items.Count-1 do begin
if (listbox1.Selected[x]) then begin
tb.Insert;
tbNome.AsString:=listbox1.Items.Strings[x];
tb.Post;
end;
end;
GOSTEI 0
Tenil
07/10/2003
Valeu, deu certo.
GOSTEI 0