ActiveDelphi

[SrJeff]

Meus amigos estou precisando transferir dados de um list box para um memo, mas só 30 linhas do listbox:

exemplo:

eu aperto um botão e ele pega as 30 primeiras linhas do listbox transfere para o memo e apaga as mesmas do list box.

alguém sabe como faço isso?

códigos por favor...

[johnny-walker]

Somente verificar quantas linhas tem o listbox;

veja as propriedades items.count e faça um looping diminuindo 1 desta conta, verificando tb se o número é menor, pois assim vc já manda tudode uma vez...

[SrJeff]

[rafmattos]

[SrJeff]

Consegui da seguinte forma:

var
i : integer ;
begin
for i := 0 to listbox.items.count - 1 do
begin
if I > 29 then// lembrando que é de 0 a 29 que dá 30 linhas, pois o indice do lb começa em 0
break;
memo.lines.add(listbox.items[I]);

end;
listbox.ItemIndex := 0 ;

sleep (500);

for i := 0 to listbox.Count -1 do
begin
if i > 29 then
break;
listbox.ItemIndex := 0 ;
listbox.DeleteSelected;
end;

[gilsonnrodrigues]

listbox.ItemIndex := 0 ;
listbox.DeleteSelected;


pra q uma coisa dessa?

use

listbox.Items.Delete(0);