192.168.1.3#6546868-pc#1GB#window xp
分割#之间的字符串 比如 192.168.1.3写在edit1里 6546868-pc写到edit2里 1gb写在edit3里 windows xp写在edit4里
分割#之间的字符串 比如 192.168.1.3写在edit1里 6546868-pc写到edit2里 1gb写在edit3里 windows xp写在edit4里
解决方案 »
- 请问高手一个delphi中如何删除access数据库中10天以前的数据?
- 痛苦的打印机,求主手指点一下
- 请问在网页里面的activex控件如何能控制该网页里面的脚本呢?
- ServerSocket的连接过了几个钟就不行了,要重启动软件才行,到底怎么会事???
- 特简单问题,UP都行
- 在线等候,请教如何将一个StringList的值赋给另一个StringList
- 用 sendmessage发送消息控制另一个程序的按钮?
- 看来是不得不发一贴了!我要发飙了...
- 比如我现在想把TDATABASE类的OPEN方法放在一个先建立的UNIT2里面
- 怎样彻底删除已作删除标记的数据库记录?
- 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;