Sync

Task/Generic-swap/Delphi/generic-swap-1.delphi

@@ -0,0 +1,8 @@
+procedure Swap_T(var a, b: T);
+var
+  temp: T;
+begin
+  temp := a;
+  a := b;
+  b := temp;
+end;

Task/Generic-swap/Delphi/generic-swap-2.delphi

@@ -0,0 +1,26 @@
+program GenericSwap;
+
+type
+  TSwap = class
+    class procedure Swap<T>(var left, right: T);
+  end;
+
+class procedure TSwap.Swap<T>(var left, right: T);
+var
+  temp : T;
+begin
+  temp := left;
+  left := right;
+  right := temp;
+end;
+
+var
+  a, b : integer;
+
+begin
+  a := 5;
+  b := 3;
+  writeln('Before swap: a=', a, ' b=', b);
+  TSwap.Swap<integer>(a, b);
+  writeln('After swap: a=', a, ' b=', b);
+end.