Fórum Dorivan Sousa me ajuda amigo por favor.... #523908

estou com um unico problema.....veja


//uso essa funçao pra selecionar os items da listbox sem precisar clickar nos items.....

//para chamar a funçao uso: //btnShowSelectedClick;

procedure TForm1.btnShowSelectedClick;
var
vSelected: TStrings;
begin
vSelected := TStringList.Create;
try

GetSelectedItems(ListBox2, vSelected);

finally
vSelected.Free;
end;
end;

ate ai tudo bem.......
agora vamos para segunda parte...


//com essa funçao estou usando o Edit7..para passar um numero inteiro..seria a quantidade de items a ser selecionado.... e repassado para o Edit6... e depois deleto os items que foram selecionado.

//parar charmar essa funçao uso ://GetSelectedItems(ListBox2, vSelected); que esta sendo chamado na rotina de cima......



procedure Tform1.GetSelectedItems(ListBox2: TListBox; AList: TStrings);
var

i: Integer;
valor1: Integer;
numero: Integer;

begin
AList.Clear;
Edit6.Clear;

numero := StrToInt(edit7.Text);

for i := 0 to numero -1 do
begin

ListBox2.Selected[numero] := true;

AList.AddObject(ListBox2.Items[numero], ListBox2.Items.Objects[numero]);

Edit6.Text := AList.Text;

Listbox2.DeleteSelected;


if (ListBox2.ItemIndex = ListBox2.Items.Count -1) then
begin

Timer1.Enabled := false;
Timer2.Enabled := false;

end;
end;
end;



Porem se eu digitar no Edit7...o numero 3 ...a listbox começa selecionar os items so depois do terceiro item.... preciso que começe selecionar os items desdo primeiro item... Como posso arrumar isso ????


amigo aqui esta meu problema......

https://www.sendspace.com/file/5ksb8y

fiz um pequeno prejeto mostrando o meu problema....abaixe o codigo fonte aberto para avaliar.....

preencha o edit : Quant: com numeros 2 ou 3 e vai ver o pequeno erro...


grato pela atençao..........