Fórum listbox e vetor #234959
28/05/2004
0
Oi galera,
como eu faço que quando eu clicar no botoa ,o meu vetor receba todos os itens selecionados no meu listbox1 ? ou como eu faço para colocar no meu memo todos os itens que estao selecionados no meu listbox ?
como eu faço que quando eu clicar no botoa ,o meu vetor receba todos os itens selecionados no meu listbox1 ? ou como eu faço para colocar no meu memo todos os itens que estao selecionados no meu listbox ?
Anicetojunior
Curtir tópico
+ 0
Responder
Posts
28/05/2004
Xanatos
procedure TForm1.Button1Click(Sender: TObject);
var cont,i: integer;
Vet: array [1..20] of string;
begin
inherited;
cont:= 0;
for i:=0 to ListBox1.Count-1 do
begin
if ListBox1.selected[i] then
begin
inc(cont);
Vet[cont]:= ListBox1.Items[i];
end;
end;
end;
Assim da certo :!:
var cont,i: integer;
Vet: array [1..20] of string;
begin
inherited;
cont:= 0;
for i:=0 to ListBox1.Count-1 do
begin
if ListBox1.selected[i] then
begin
inc(cont);
Vet[cont]:= ListBox1.Items[i];
end;
end;
end;
Assim da certo :!:
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)