Wenn zwei Objekte im Array vertauscht werden sollen, dann müsste es eigentlich folgendermaßen funktionieren:
Delphi-Quellcode:
function Swap(gs:TNegativArray; Index1, Index2:integer);
var
lTemp: TObject;
begin
lTemp:=gs[Index1];
gs[Index1]:=gs[Index2];
gs[Index2]:=lTemp;
end;
Hmmm...
Es sind keine Objekte im Array sondern 2 Klassen\Classen wie auch immer.
gruss