如何把VC++的“&”用DELPHI改写。 ( 积分: 100 )

E

eastnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-19

• #1

比如vc++代码如下：
short i = 0xAB00;
short j = 0xABCD;
short n;
n = i &
j;
怎么改写成DELPHI？

 

E

eastnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-19

• #2

比如vc++代码如下：
short i = 0xAB00;
short j = 0xABCD;
short n;
n = i &
j;
怎么改写成DELPHI？

 

铁

铁盒子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-19

• #3

n = i and j;

 

E

eastnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-19

• #4

&运算符大致意思我说一下。比如：
11111111 11110000
&
00000000 01100011
_________________
00000000 01100000

 

F

funxu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-19

• #5

var
i,j,n:smallint;
begin
n:= i and j;
end;

 

迷

迷糊

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-19

• #6

var
i,j,n:integer;
begin
i:=$AB00;
j:=$ABCD;
n:=i and j;
end;

 

E

eastnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-19

• #7

谢谢，我再举个例子：
VC中M=(j &
i)? 1: 0;
j&i的结果能用DELPHI的i and j吗？

 

T

TYZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-19

• #8

procedure TForm1.Button2Click(Sender: TObject);
var
i,j,n:smallint;
begin
i:=smallint($AB00);
j:=smallint($ABCD);
n:=i and j;
end;

 

T

TYZhang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-19

• #9

VC中M=(j &
i)? 1: 0;
相当于delphi中
if (j and i)<>0 then
m:=1 else
m:=0;

 

D

dedema

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-19

• #10

VC中M=(j &
i)? 1: 0;
怎么用DELPHI表示？
Uses Math;
M:=Ifthen
((j and i)<>0),1,0);

 

E

eastnet

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-01-19

• #11

多人接受答案了。