char 数组转化成string时候得奇怪问题

字符数组
  ModalNumber : array[0..39] of char;
  SerialNumber : array [0..19] of char;
  ControlNum : array[0..7]of char;
转化成字符串变量
pSerialNumber:widestring;
pModalNumber:widestring;
pControlNum:widestring;在程序里面用
pserialnumber=SerialNumber 没问题可是写成asp组件就有问题了总是显示乱码，因为他用的是olevariant类型的变量，这种变量难道需要特别的转化吗？定义
 type DRIVER_INFO_OK = record
  ModalNumber : array[0..39] of char;
  SerialNumber : array [0..19] of char;
  ControlNum : array[0..7]of char;
  DriveType : dword;
  Cylinders : dword;
  Heads : dword;
  Sectors : dword;
end;
var 
pSerialNumber:string;
pModalNumber:string;
pControlNum:string;
pHardDriveComputerID:int64;程序赋值
  pSerialNumber:=x.SerialNumber;
  pModalNumber:=x.ModalNumber;
  pControlNum:=x.ControlNum;
  pHardDriveComputerID:=getHardDriveComputerID;组件属性function Tserver.Get_ControlNum: WideString;
begin
Get_ControlNum:=StringToOleStr(pControlNum);
end;function Tserver.Get_HardDriveComputerID: WideString;
begin
Get_HardDriveComputerID:=inttostr(pHardDriveComputerID);
end;function Tserver.Get_ModalNumber: WideString;
begin
Get_ModalNumber:=StringToOleStr(pModalNumber);
end;function Tserver.Get_SerialNumber: WideString;
begin
Get_SerialNumber:=StringToOleStr(pSerialNumber);
end;乱码亚而且每次的乱码都不一样亚
本来应该是这个样子
3CW03R10
ST315320A
3.12
可是现在全是乱码，我不敢copy到这里面来，否则页面就乱套了
好像是字符串没有用0正常结束吧？