0

Известная задача, но вот интересен вопрос, как сделать такое на Delphi в виде функции для переменных любого типа данных (возможно, за исключением объектов). Что-то вроде такого?

procedure swap(a, b: pointer);
var c: pointer;
begin
    c^ := a^;
    a^ := b^;
    b^ := c^;
end;

Будет работать?

3
  • нет, не будет - попробуйте
    – user176262
    Commented 18 мая 2017 в 21:25
  • @Igor, нет возможности попробовать, к сожалению, поэтому и спрашиваю.
    – delphiprog
    Commented 19 мая 2017 в 4:44
  • В D7 для простых типов можно через Variant сделать, в более поздних версиях через дженерики, а для сложных типов универсально не сделаете скорее всего придётся писать для каждого свой метод
    – Isaev
    Commented 19 мая 2017 в 9:19

2 ответа 2

1
  TCommon = class
 ...
    class procedure Swap<T> (var X1, X2: T);
 ...
  end;


class procedure TCommon.Swap<T> (var X1, X2: T);
var X : T;
begin
  X := X2;
  X2 := X1;
  X1 := X;
end;

Это работает для XE2, возможно для новых компиляторов можно проще, без класса.

1
  • у вопроса метка Delphi 7. В те времена о дженериках даже не помышляли
    – kami
    Commented 19 мая 2017 в 11:55
0

Нельзя абстрактный указатель разыменовать вот так. Какой тип получится? Byte .. Double .. String .. record ? Вот и компилятор без дополнительных подсказок не знает, и не выполнит.

А вам известен язык, в котором такое прокатит?


Вы можете обменять указатели местами, если это вам что-то даст:

procedure swap(var a, b: pointer); // Добавляем var
var c: pointer;
begin
    c := a;
    a := b;
    b := c;
end;
2
  • например, в PHP, JS можно реализовать функцию, меняющую местами 2 переменные независимо от типа, потому что там нет жесткой привязки к типам. Просто интересовал вопрос, можно ли такое реализовать на Delphi.
    – delphiprog
    Commented 19 мая 2017 в 17:10
  • Я имел ввиду именно указатели. В JS их, насколько я знаю, нет.
    – Kromster
    Commented 19 мая 2017 в 17:41

Ваш ответ

Нажимая «Отправить ответ», вы соглашаетесь с условиями пользования и подтверждаете, что прочитали политику конфиденциальности.

Всё ещё ищете ответ? Посмотрите другие вопросы с метками или задайте свой вопрос.