怎么提取combobox框中的数字 我现在遇到个问题,就是不知道怎么提取combobox中的数字部分比如说combobox框中包含两部分,前面是编码,后面是名称我怎么只提取,编码部分比如:001[KFY]我怎么只提取轻重的001谢谢!! 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 combobox.AsString如果是取001[KFY] ,则是combobox.text 我是只提取 001后面的[KFY]不要改怎么办呢?谢谢!! function getst(var com:integer):string;var s,sr:string;I:integer;beginfor i=1 to length(combobox1.Items.Strings[com]) dobegin if ord(s[i])>97 and ord(s[i])<87 then //查一下数字的asc是多少,记不请楚了sr:=sr+s[i];end;return:=sr; 如果确定编码中没有"["这个符号,就用4楼的兄弟说的了copy(s,1,pos('[',s)-1) 首先要保证你的combox中的text是你知道的格式,如果连格式都不清楚,建议不要用此方法。 菜鸟问题(在线等)谢谢 (最好有实例)子窗口怎么更改父窗口的某Label? 能把ClientDataSet中的每一行设置为新增状态吗? 如何将Unicode编码转换成中文GB2312编码 怎样判断某一端口是否已使用? 重开一帖:自定义通用对话框 有关form2.showmodal=mrOK 的问题? 北京的朋友看看 请问XP下已经开发的软件,用在WIN7要更改哪些? 想得分的进来 oracle数据库的查询统计操作 delphi+SQL如何实现两张表连接查询并且行列转置
如果是取001[KFY] ,则是combobox.text
后面的[KFY]不要
改怎么办呢?
谢谢!!
var s,sr:string;
I:integer;begin
for i=1 to length(combobox1.Items.Strings[com]) do
begin
if ord(s[i])>97 and ord(s[i])<87 then //查一下数字的asc是多少,记不请楚了
sr:=sr+s[i];
end;
return:=sr;