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