短消息分割

  

短消息分割

 1.在发送短信时，一般是一条短信70汉字,当超过70个汉字时后面的并不能显示出来，这就用到了短信分割。代码如下(分割函数)

    Var SplitStr: TStrings;//在全局中声明

    procedure TFrmMain.Split(aStr: WideString;aPos: Integer);

begin

     SplitStr := TStringList.Create;

     while Length(aStr) > aPos do

     begin

      SplitStr.Add(MidStr(aStr,1,aPos));

      aStr := copy(aStr,aPos + 1,length(aStr));

     end;

     i f Length(aStr) <> 0 then

     begin

      SplitStr.Add(aStr);

     end;

end;

 

//下面是调用的函数

procedure TFrmMain.BtnSplitClick(Sender: TObject);

 var n:integer;

    s:string;

begin

 Split(短信内容,70);//判断短信内容是否超过一条短信,然后执行相应的操作

for n := 0 to SplitStr1.Count -1 do

begin

 s:=SplitStr1.Strings[n] ;//把超过一条短信的内容赋给了s(s根据自己的需要来自己设定),这个就是分割的内容,嘿嘿，看懂了吧

  end;

 

2.心里体会:

当我遇到此类问题时挺郁闷的,一向是不太懂函数的我,怎么弄也弄不出来，有时还出现乱码,在网上也搜了一些东东，但关于这方面的还是很少.因为客户正在催我,心急的我，越是急越是做不出来，都快把我给弄哭了，无奈之下至于求救朋友了，经过他的帮助菜鸟才有幸度过难关。但是我还是要啰唆一句,我要 感谢我的朋友马书光,没有他的帮忙我不能完成此任务。希望能给朋友带来帮助！