Показать сообщение отдельно
  #28  
Старый 07.09.2011, 08:49
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
 
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию

Цитата:
Сообщение от Bargest
Код:
var A,B:integer;
...
Int64((@A)^):=Int64(A) shl 32 + B;
И без асмы.
AV же будет:
Код:
var
  a, c, b, d: Integer;
begin
  a:=13;
  b:=11;
  c:=1973;
  d:=$ff;
  Edit1.Text:=IntToStr(a);
  Edit3.Text:=IntToStr(b);

  Int64((@a)^):=Int64(a) shl 32 + b;

  Edit2.Text:=IntToStr(a);
  Edit4.Text:=IntToStr(b);
end;
__________________
Пишу программы за еду.
__________________
Ответить с цитированием