Alter Classe neue zuweisen

[EWeiss]

Ich möchte zwei Classen miteinander vertauschen.

Abhängig von Items.

Delphi-Quellcode:

procedure SWAP(var Value1, Value2: Integer);
var
  lTemp: integer;
begin
  lTemp := Value1;
  Value1 := Value2;
  Value2 := lTemp;
end;

Delphi-Quellcode:

// SWAP ITEM
if Item <> FlagFound then
begin
  SWAP(gS[FlagFound], gS[Item]);

  FlagFound := Item;
end;

Das geht natürlich nicht weil meine SWAP Function integer erwartet.

gs aber ein Classe ist.
Mit Assign geht's auch nicht .. noch andere Möglichkeiten?
Bin mir jetzt nicht sicher ob das der richtige weg wäre. Zumindest meckert der Compiler nicht.

gS[FlagFound] := gS[Item];

gruss