array通过指针再回到array,晕了……，假美元居然变成了人民币，恭喜发财了！(100分)

5

5220911

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-20

• #1

var
s:array [1..4] of byte;
pbyte;
begin
s[1]:=$1;
s[2]:=$2;
s[3]:=$3;
s[4]:=$4;
p:=@s;
//这里我应该怎么去判断p所指向的第二个是$2呢？
if p所指向的第二个是$2 then
showmessage('我成功了，我终于将假美元变成了人民币了，哈哈，送给大家过好年！ ');
end;

 

Z

ZRWeng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-20

• #2

var
s:array [1..4] of byte;
pbyte;
begin
s[1]:=$1;
s[2]:=$2;
s[3]:=$3;
s[4]:=$4;
p:=@s;

p:=@s[2];
if p^=$2 then
showmessage('我成功了，我终于将假美元变成了人民币了，哈哈，送给大家过好年！ ');


end;

 

5

5220911

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-20

• #3

to ZRWeng:

我这里的s是作为函数里的一个参数传递进来的
p:=@s[2]
//这里如何做呢?

 

张

张无忌

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-20

• #4

你传入一个指针不就OK了
function ShowInt(const PTRByte);
var
iPos:Byte;
begin
iPos:=PByte(Integer(PTR)+1)^;//array[0..4]of byre;AByte[1]
end;

 

F

farce

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-20

• #5

应该是:
if @s[2]=$2 then showmessage('我成功了，我终于将假美元变成了人民币了，哈哈，送给大家过好年！ ');
P已经等于@s，判断时只判断s就行了

 

W

wql

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-21

• #6

把分给张无几吧，他的答案是通用的!

 

5

5220911

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-21

• #7

接受答案了.