Categories
Keywords
Downloads
Make or break your WORDs
{$apptype console}
program makewrd;
uses
Windows, SysUtils;
var
b1, b2 : byte;
w : word;
begin
b1 := 128;
b2 := 255;
{ create a WORD (16-bit integer)
by concatenating two BYTEs (8-bit) }
w := MAKEWORD( b1, b2 );
WriteLn( Format( '%d', [ w ] ) );
{ now break up the WORD we created
in to it's original two bytes }
WriteLn( Format( 'b1 = %d, b2 = %d',
[ LOBYTE( w ), HIBYTE( w ) ] ) );
end.
program makewrd;
uses
Windows, SysUtils;
var
b1, b2 : byte;
w : word;
begin
b1 := 128;
b2 := 255;
{ create a WORD (16-bit integer)
by concatenating two BYTEs (8-bit) }
w := MAKEWORD( b1, b2 );
WriteLn( Format( '%d', [ w ] ) );
{ now break up the WORD we created
in to it's original two bytes }
WriteLn( Format( 'b1 = %d, b2 = %d',
[ LOBYTE( w ), HIBYTE( w ) ] ) );
end.
Listing #1 : Delphi code. Download mkword (0.42 KB).
To share this: BlinkBits | BlinkList | Blogmarks | Co.mments | Connotea | Del.icio.us | Digg | Facebook | FrankIt | Furl | Ma.gnolia | Newsvine | Reddit | Yahoo
Applicable Keywords : Delphi, Delphi 1.x, Delphi 2.x, Delphi 3.x, Functions, Source Code
Previous Tip : Take another look at your form...
Random Tip : Add documents to "Start | Documents" menu
Next Tip : Is it 'C:\Program Files' or 'C:\PROGRA~1'
Random Tip : Add documents to "Start | Documents" menu
Next Tip : Is it 'C:\Program Files' or 'C:\PROGRA~1'