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

9 lines
93 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
procedure Swap_T(var a, b: T);
var
temp: T;
begin
temp := a;
a := b;
b := temp;
end;