Fórum Manipulando Linhas do Memo #522948

Colegar pode colocar o exemplo, assim fica mais fácil ajuda.

amigo tenho uma listbox com 100 emails...preciso coloca um edit para controlar a quantidade de emails a ser liberado por exemplo. de 30 em 30 emails......e esses email serao enviado para um segundo Edit..... agredeço se responder...

Seria isso?

var
numero: Integer;
i : Integer;
begin
numero := StrToInt(edit1.Text);

for i := 0 to numero - 1 do
begin
edit2.Text := edit2.Text + ';' + listBox.Items[i];
end;
end;

numero := StrToInt(edit1.Text);


for i := 0 to numero - 1 do
begin

ListBox2.Selected[numero] :=true;

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

Edit6.Text := ListBox2.Items[numero];

Listbox2.DeleteSelected;



Amigo seri algo mais assim: coloco valor no Edit7 da quantidade de items do listbox a ser passado para o Edit6. sem prcisar clikcar no items pra selecionar....

amigo essa rotina ai deu certo...porem ela esta pegando o items de baixo pra cima...tem como pegar os items de cima pra baixo....e esta dando um erro quando as quantidade de item é menor que do repassada pelo Edit7.....pode me ajudar

amigo olhar esta image... quando sobra os ultimos items na listbox olha o erro que ta me retornando.....

http://imgur.com/BHFLAPZ

amigo estou com um unico problema agora...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.

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 ????