Ordenando itens do listView

Delphi

24/05/2004

Olá turma! belezura????

Seguinte.. tenho um listview e 2 botões.

:?:
Como faço para que um dos botões mova a linha selecionado do listviews pra cima? Como faço para que o outro botão mova a linha selecionada do listview para baixo???

:?:

Grato


Zenner

Zenner

Curtidas 0

Respostas

Welter

Welter

24/05/2004

Botao Para Cima
var
  a: string;
begin
  a := listview.items[listview.itemindex];
  listview.items[listview.itemindex] := listview.items[listview.itemindex - 1];
  listview.items[listview.itemindex-1] := a;
end;

Botao Para Baixo
var
  a: string;
begin
  a := listview.items[listview.itemindex];
  listview.items[listview.itemindex] := listview.items[listview.itemindex + 1];
  listview.items[listview.itemindex+1] := a;
end;
[/code]


GOSTEI 0
Zenner

Zenner

24/05/2004

Humm.. testei aqui e deu 2 erros..
o primeiro foi na var q acusou: Incompatible types: ´TListItem´ and ´String´

Alterei o tipo da ver para TlistItem e erre erro foi sanado..

o segundo erro é que o item selecionado não sobe, ele recebe o texto do primeiro, mas o primeiro não recebe o texto dele.


GOSTEI 0
POSTAR