C++builder程序转化为Delphi程序 ( 积分: 100 )

3

317xgp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-03

• #1

unsigned char *p1;
unsigned char ReturnArr[30] ;
int num,
p1=(unsigned char *)#
p1[0] = ReturnArr[1];
p1[1] = ReturnArr[2];
p1[2] = ReturnArr[3];
p1[3] = ReturnArr[4];

 

3

317xgp

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-03

• #2

unsigned char *p1;
unsigned char ReturnArr[30] ;
int num,
p1=(unsigned char *)#
p1[0] = ReturnArr[1];
p1[1] = ReturnArr[2];
p1[2] = ReturnArr[3];
p1[3] = ReturnArr[4];

 

A

app2001

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-03

• #3

var
p1byte;
returnarr:array[0..29] of byte
num:integer;
begin
p1:=@num;//这一句我没有把握是否是这样；
p1[0] := ReturnArr[1];
p1[1] := ReturnArr[2];
p1[2] := ReturnArr[3];
p1[3] := ReturnArr[4];

end;

 

W

wh_net

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-02-03

• #4

var
p1char;
returnarr:array[0..29] of char ;
num:integer;
begin
p1:=@num;
p1[0] := ReturnArr[1];
p1[1] := ReturnArr[2];
p1[2] := ReturnArr[3];
p1[3] := ReturnArr[4];
end;