Delphi и int64

[Onix84]

Друзья!

Подскажите пожалуйста, как в Delphi правильно работать с 64-битными int64.

Вот например мне нужно обменять местами старшие и младшие 32 бита.
Пробовал
x:=(y shl 32) or (y shr 32)
не работает

Даже не хочет выделять 32 бита из 64 (например x:=y shl 32);

Помогите пожалуйста!
Или может быть хотя бы ссылку на статью существующую подскажите.
(надеюсь, я в правильной ветке форума задал вопрос)

[Jeni]

Зависит от разных причин, например, от требований по скорости. Если скорость критична - нужно делать на ассемблере. Если не очень - то можно использовать тип записей с вариантной частью. Так, кстати, можно работать не только с 32-битными полями, но и с 16- и 8-битными.
Вот кусок кода, где показаны обмены разных полей.

var
  V: packed record
    case X: Integer of
    0: (V64: Int64);
    1: (I1, I2: LongWord);
    2: (W1, W2, W3, W4: Word);
    3: (B1, B2, B3, B4, B5, B6, B7, B8: Byte); // Варианты 3 и 4
    4: (B: packed array[1..8] of Byte);        // равнозначны
  end;

  TempI: LongWord;
  TempW: Word;
begin
  // Начальное значение
  V.V64 := 1234567890987654321;
  Application.MessageBox(PAnsiChar('V=' + IntToStr(V.V64)), '');

  // Обмен местами старших и младших 32-битных полей
  TempI := V.I1;
  V.I1 := V.I2;
  V.I2 := TempI;
  Application.MessageBox(PAnsiChar('V=' + IntToStr(V.V64)), '');

  // Обмен местами старших и младших 16-битных полей
  TempW := V.W1;
  V.W1 := V.W4;
  V.W4 := TempW;
  Application.MessageBox(PAnsiChar('V=' + IntToStr(V.V64)), '');
end;

Слово "packed" для таких записей нужно писать обязательно, иначе всё очень сильно будет зависеть от варианта выравнивания данных. А так гарантируется, что все поля (I..., W... и B...) будут одной "физической длины" - 64 бит.