Вниз
Скачать: CL | DM;

LoWord и hiWord   Найти похожие ветки 

← →
Stanislav ©   (2007-01-29 11:42) [0]

Подскажите как в переменную типа Integer записать эти значения?


← →
Сергей М. ©   (2007-01-29 11:43) [1]

LoWord(MyIntVariable) := ...
HiWord(MyIntVariable) := ...


← →
Stanislav ©   (2007-01-29 11:45) [2]

Так не работает.


← →
evvcom ©   (2007-01-29 11:49) [3]

Или
LongRec(MyIntVariable).Lo := ...
LongRec(MyIntVariable).Hi := ...


← →
evvcom ©   (2007-01-29 11:50) [4]

> [1] Сергей М. ©   (29.01.07 11:43)

Кстати, HiWord не прокатит, это функция.


← →
easy ©   (2007-01-29 11:50) [5]

procedure TForm1.Button1Click(Sender: TObject);
var
 hi,lo:word;
 wparam:integer;
begin
 hi:=$1B45;
 lo:=$FF;
 wparam:=makewparam(lo,hi);
 showmessage("$"+inttohex(wparam,8));
end;


← →
evvcom ©   (2007-01-29 11:51) [6]

Или
MyIntVariable := MakeLong(A, B);


← →
Stanislav ©   (2007-01-29 11:52) [7]

Спасибо!


← →
Сергей М. ©   (2007-01-29 11:53) [8]

MyIntegerVariable := MAKELONG(MyLoWordValue, MyHiWordValue)


← →
GrayFace ©   (2007-01-29 13:15) [9]

Для коллекции:
MyIntVariable:= Lo + Hi shl 16;



Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.029 c
3-1162115979
аматор
2006-10-29 12:59
2007.02.18
free база


15-1170012992
Chort
2007-01-28 22:36
2007.02.18
Подскажите какой драйвер требует система


15-1169871260
atruhin
2007-01-27 07:14
2007.02.18
Java программа для запуска требует wjview.exe


3-1164250027
~SerJant~
2006-11-23 05:47
2007.02.18
Использование FastReport (TfrxBDEDataBase)


15-1169848338
cyborg
2007-01-27 00:52
2007.02.18
Куда полетит шарик?




   Наверх