TStringList 常用方法与属性 & DelimitedText空格问题验证有效

最新推荐文章于 2024-04-28 17:04:55 发布

原创

最新推荐文章于 2024-04-28 17:04:55 发布 · 2.5k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#Delphi #Pascal #哈希表 #模拟成交 #港股通

在处理港股委托时遇到问题，由于股票代码左补空格，TStringList的DelimitedText属性在进行哈希表操作时会忽略空格，导致数据处理错误。解决方案是正确判断ASCII码，确保大于等于空格的字符被识别。

测试同事帮反映了我们程序在处理委托时的一个问题：对于港股的委托，我们对它的成交回报中股票代码是空的。

加日志找到原因在这里，港股的委托其股票代码是5位，会左补一个空格，而在delphi中，对于TStringList 进行类似哈希表操作时，DelimitedText会自动判断空格并跳过。

导致reqtext.securityid一直为空，在后续的处理中出错。

function MakePTReqtext(reqtext: PTReqtext; sReqtext:string):Boolean;            //902
var
  Hash: THashedStringList;
  a : TStringList;
  fixPkg : TFixPackage;
  Buffer : string;
begin
  Hash := THashedStringList.Create;
  Buffer := Trim(sReqtext);

  Hash.DelimitedText := Buffer;
  Hash.Delimiter := SOH;

  reqtext.MsgType := Hash.Values['35'];
  reqtext.IOIID := Hash.Values['23'];
  reqtext.IOITransType := Hash.Values['28'];
  reqtext.IOIRefID := Getbuff2(Hash.Values['26']);
  reqtext.clordid := Hash.Values['11'];

  reqtext.OrigClOrdID := Getbuff2(Hash.Values['41']);
  reqtext.securityid := Hash.Values['48'];                  
  Simulator.AddLog(1,'解包reqtext.securityid为' +  reqtext.securityid);//对于港股的股票代码是5位，会左补空格，此处就会取空。

  reqtext.price := Getbuff(Hash.Values['44']);
  reqtext.orderqty := Getbuff(Hash.Values['38']);
  reqtext.side := Hash.Values['54'];

  reqtext.stockholder := GetGroupValue2(Hash,const_NoPartyIDs, 5);;