Известная задача, но вот интересен вопрос, как сделать такое на Delphi
в виде функции для переменных любого типа данных (возможно, за исключением объектов). Что-то вроде такого?
procedure swap(a, b: pointer);
var c: pointer;
begin
c^ := a^;
a^ := b^;
b^ := c^;
end;
Будет работать?