字符过滤 192.168.1.3#6546868-pc#1GB#window xp分割#之间的字符串 比如 192.168.1.3写在edit1里 6546868-pc写到edit2里 1gb写在edit3里 windows xp写在edit4里 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 varres:TStringList;s:string;count:Integer;begins:='192.168.1.3#6546868-pc#1GB#window xp' ;res:=TStringList.Create;count:=ExtractStrings(['#'],[],PChar(s),res);Edit1.Text:=res[0];Edit2.Text:=res[2];Edit3.Text:=res[3];Edit4.Text:=res[4];end; 写错了郁闷:应该是:varres:TStringList;s:string;count:Integer;begins:='192.168.1.3#6546868-pc#1GB#window xp' ;res:=TStringList.Create;count:=ExtractStrings(['#'],[],PChar(s),res);Edit1.Text:=res[0];Edit2.Text:=res[1];Edit3.Text:=res[2];Edit4.Text:=res[3];end; 也可以用PosEx函数 获取#的Index,然后Copy 办法虽然笨,但简单有效。其中PosEx获得#(2个)的位置,Copy读取子串。 简单问题 用oraquery查询数据,想设置查询进度条? 通过SendMessage()如何发送‘Ctrl+鼠标左键’的组合消息啊???急!!! 请问Tdatabase控件在数据库开发的程序里用得多不多? 求控件! 编程的基本常识...我竟然不懂!!! 高分求解,FastReport4.6.8 frxpreview多表预览问题! 关于 devexpress 皮肤控件报错的问题 客户的服务器上没有access驱动怎么办?//牛虻 求教一个算法,急等帮助 GPU是如何实现图像的输入输出的 菜鸟求助 大侠救命
var
res:TStringList;
s:string;
count:Integer;
begin
s:='192.168.1.3#6546868-pc#1GB#window xp' ;
res:=TStringList.Create;
count:=ExtractStrings(['#'],[],PChar(s),res);
Edit1.Text:=res[0];
Edit2.Text:=res[2];
Edit3.Text:=res[3];
Edit4.Text:=res[4];
end;
var
res:TStringList;
s:string;
count:Integer;
begin
s:='192.168.1.3#6546868-pc#1GB#window xp' ;
res:=TStringList.Create;
count:=ExtractStrings(['#'],[],PChar(s),res);
Edit1.Text:=res[0];
Edit2.Text:=res[1];
Edit3.Text:=res[2];
Edit4.Text:=res[3];
end;