Forum: Programmieren allgemein
Delphi
by Uwe Raabe,
9. Mai 2017
Sehe ich auch so. Damit werden aber streng genommen die Instanzen ausgetauscht und nicht der Inhalt der beiden Instanzen. Ob das so gewollt ist oder nicht entzieht sich unserer Kenntnis.
Ich würde diese Methode auch direkt in der Klasse TNegativArray implementieren - zwecks Konsistenz mit TList aber unter dem Namen Exchange:
TNegativeArray = class(TObject)
private
Fdata : array...
Forum: Programmieren allgemein
Delphi
by Uwe Raabe,
9. Mai 2017
Dann deklarier doch einfach ein Swap für den Klassentyp (hier TMyClass):
procedure SwapMyClass(var Value1, Value2: TMyClass);
var
lTemp: TMyClass;
begin
lTemp := Value1;
Value1 := Value2;
Value2 := lTemp;
end;