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;