problemer med Exchange funsksjone i listbokser.[løst]

[sinnaelgen]

som sagt . funksjone Exchange ser ikke til å funger etter planen.

 

procedure TForm17.Button5Click(Sender: TObject);
var r:integer;
begin
r:=listbox2.ItemIndex;
listbox2.Items.Exchange(r,r-1);
endre; // opdatering av variavbler
end;

 

her er det meningen at linje "det pekes på" ( itemindex) bytte plass med linjen over.

men begge linjen får nøyaktig samme inhold.

 

opdatering:

det viste seg at problemet lå i endre rutinen

Endret 30. april 2009 av elg-elg123