****请问如何截取以下字段***** 例如:UNH+1+IFTSTA:D:99B:UN需要截取:IFTSTA即UNH+1+ 开始' ' 到:号结束的字符,字符长度不固定 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var strTemp: String;begin strTemp := 'UNH+1+IFTSTA:D:99B:UN'; strTemp := Copy(strTemp, Pos('UNH+1+', strTemp) + 6, Length(strTemp)); strTemp := Copy(strTemp, 1, Pos(':', strTemp) - 1); ShowMessage(strTemp);end; var Sl:tstringlist; i:integer;begin Sl:=TStringList.Create ; try Sl.Delimiter :=':'; Sl.DelimitedText :='UNH+1+IFTSTA:D:99B:UN'; ShowMessage(copy(Sl.Strings[0],7,length(Sl.Strings[0]))); except FreeAndNil(Sl); end;end; Delphi 现在用哪一个版本的比较多啊??? 怎么判断输入给 edit 框的内容是不是日期型的。 Access数据库中使用update出错 比string 更大的类型是什么?? Delphi自带的数据库设计工具能不能用ADO连接? 有什么简单的方法把一个画有许多东西的canvas上的所有内容清掉。 客户段提交了,但是数据库没变一般是什么原因啊? 一个关于tcriticalsection的问题 怎样调用windows应用程序? 请问: 超级郁闷:一个小问题挡住了。TdxTreeList如何删除指定节点? 一个com+ & 线程的问题
strTemp: String;
begin
strTemp := 'UNH+1+IFTSTA:D:99B:UN';
strTemp := Copy(strTemp, Pos('UNH+1+', strTemp) + 6, Length(strTemp));
strTemp := Copy(strTemp, 1, Pos(':', strTemp) - 1);
ShowMessage(strTemp);
end;
Sl:tstringlist;
i:integer;
begin
Sl:=TStringList.Create ;
try
Sl.Delimiter :=':';
Sl.DelimitedText :='UNH+1+IFTSTA:D:99B:UN';
ShowMessage(copy(Sl.Strings[0],7,length(Sl.Strings[0])));
except
FreeAndNil(Sl);
end;
end;