刚接触delphi请教几个小问题

Question

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

Answer 1

typedef char TSerialType[17];

Answer 2

请问大仙 我有如下的回调函数
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 ,再次感谢大仙

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

Answer 4

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