07.09.2011, 08:49
|
|
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;
__________________
Пишу программы за еду.
__________________
|