delphi操作字符串 用户13985387567交了100元成功 用户13985387567交了20元成功 用户13985387567交了5元成功 如何提取交了多少钱? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 var S, S1 : Widestring; s := '用户13985387567交了5元成功'; S1 := Copy(S, pos('了', s) + 1 , pos('元', s) - pos('了', s)); ShowMEssage(S1); function getsAB(s,s1,s2:string):string; var i1,i2,i3:Integer;begin i1:=Pos(s1,s); i2:=Pos(s2,s); i3:=i2-i1; result:=Copy(s,i1+length(s1),i3-length(s1));end;哥哥我以前写的函数,同2楼的 我们的程序是C/S结构的,现在每次升级软件都非常麻烦,要每台机器去覆盖,请问有没有什么好的解决方案? 在线急求:Dbgrid的问题 rtl90.bpl错误 如何动态建立数据表 (ACCESS的) 难道我建立的不对吗??希望大家看看 进来加分!!!!!!!!!! 有谁用过“ComPort”组件! 不能调用三层中间层服务器的过程、函数的问题????? l_jia():你好,来领分 用delphi能实现网上投票作弊吗? Delphi高手们请入......画图形(100分以上) Delphi 服务自动退出 ADODataSet 大量数据计算能否提速
S, S1 : Widestring; s := '用户13985387567交了5元成功';
S1 := Copy(S, pos('了', s) + 1 , pos('元', s) - pos('了', s));
ShowMEssage(S1);
function getsAB(s,s1,s2:string):string;
var i1,i2,i3:Integer;
begin
i1:=Pos(s1,s);
i2:=Pos(s2,s);
i3:=i2-i1;
result:=Copy(s,i1+length(s1),i3-length(s1));
end;哥哥我以前写的函数,同2楼的