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楼的 国庆散分,大家都happy哈 数据库连接时提示如下问题 ShockwaveFlash的播放问题 关于在dxdbgrid中对记录进行拖缀的问题 如何从Sql server 临时表里返回数据 谁帮我解决这个问题我多少分都给(对高手来说是小儿科 )<传奇二> 紧急求助:关于SQL的问题,谢谢! 如何判断两个日期之间相差是整月??急用 如何只在指定的条件才显示dbgrid的popupmenu delphi的数组如何动态改值? 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楼的