listbox e vetor
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
Curtidas 0
Respostas
Xanatos
28/05/2004
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 :!:
GOSTEI 0