Es ist schon spät, von daher weiß ich nicht, ob ich gerade um die Ecke denke (wenn überhaupt noch
)
Delphi-Quellcode:
procedure SWAP(var Value1, Value2: TBasisKlasseDerZuTauschendenClassen); // eventuell TObject?
var
lTemp: TBasisKlasseDerZuTauschendenClassen;
begin
lTemp := Value1;
Value1 := Value2;
Value2 := lTemp;
end;
Aber vermutlich möchtest Du die Inhalte von gS[?] tauschen.
Was genau ist in gS[?] zu finden?
FlagFound und Item sind (vermutlich) Angaben für den Index von gS.
Würde es mal so probieren:
Delphi-Quellcode:
procedure SWAP(var Value1, Value2: TKlasse_Oder_Typ_gS[Item]);
var
lTemp: TKlasse_Oder_Typ_gS[Item];
begin
lTemp := Value1;
Value1 := Value2;
Value2 := lTemp;
end;