Hallo,
die Zeilen [42..43]:
Delphi-Quellcode:
Selected[i]:=false;
Selected[i-verschieben]:=true;
verursachen bei älteren Delphi-Versionen (im Test D3)eine Zugriffsverletzung.
Eine Zuweisung an Selected[x] bei der Einstellung MultiSelect := False ist die Ursache. In z.B. D2005 besteht das Problem nicht mehr.
Das Problem kann so behoben werden:
Delphi-Quellcode:
//...
begin
Items.Move(i, i-verschieben);
if Multiselect then
begin
Selected[i]:=false;
Selected[i-verschieben]:=true;
end
else
ItemIndex := i-verschieben;
end
else
begin
//...
[edit=CalganX]Mfg, CalganX[/edit]