刚接触delphi请教几个小问题

[skolar]

1.请问 TSerialType=Array [0..16] of Char;
在BCB中如何定义，是不是相当于一个结构体？

麻烦大仙指教

[「已注销」]

typedef char TSerialType[17];

[skolar]

[Quote=引用 1 楼 的回复:]
typedef char TSerialType[17];
[/Quote]

请问大仙 我有如下的回调函数
Type vOnDeviceLogin = Procedure (Dev_id:integer;Serial:TSerialType;ip:PChar;port:integer; var Heartbeat:integer); stdcall;

FunOnDeviceLogin=procedure(Dev_id:integer;Serial:TSerialType;ip:PChar;port:integer;
var Heartbeat:integer);stdcall;

下面是调用他的
procedure SetUpLoadProc(vOnDeviceLogin:FunOnDeviceLogin;
vOnRefreshDeviceState: FunOnRefreshDeviceStateBySerial;
vOnRecieveBatchRecord: FunOnRecieveBatchRecordBySerial);

请问我该如何弄成BCB ,再次感谢大仙

[「已注销」]

FunOnDeviceLogin=procedure(Dev_id:integer;Serial:TSerialType;ip:PChar;port:integer;
var Heartbeat:integer);

typedef void (* FunOnDeviceLogin)(int Dev_id,TSerialType Serial,char *ip,int port; int &Heartbeat);


其实object pascal到c++这样生搬硬套是不行了，因为涉及很多其他方面，特别是涉及到指针以及函数函数调用。。。，建议你还是把两种语言都做一些熟悉再来编码了。

[skolar]

[Quote=引用 3 楼 的回复:]
FunOnDeviceLogin=procedure(Dev_id:integer;Serial:TSerialType;ip:PChar;port:integer;
var Heartbeat:integer);

typedef void (* FunOnDeviceLogin)(int Dev_id,TSerialType Serial,char *ip,int port; int……
[/Quote]

谢谢大仙，主要是公司催的比较紧，我们用c++的，对delphi的不是很了解，所以还是感谢您。