Delphi 中String 与VC 中那个类型对应

D 的函数原型
unction iWAction(PortHandle: integer; iRec: integer; 
             ActiveType,
             Date,
             Address,
             Topic: String
             ): integer; stdcall; external SJZDLL name 'iWAction';用vc 写的dll，对应函数
int CSJZDLLApp::iWAction(int PortHandle, 
 int iRec, 
 CString ActiveType,  
                                                  CString Date,
                                                  CString Address,   
  
 CString Topic)      
{
。。
     int iLen;
   iLen = ActiveType.GetLength();
}
Delphi 写的上层软件，输入 ActiveType = “1234”；问题 ： iLen 字符串长度为什么等于1，其他几个字符串也是这个问题，不管是什么值，长度总是1.