怎么取delphi中edit.text内某个值前面的字符。例如edit1.text内的字符为 123+456 我想取出加号前后的值 5
1个回答
展开全部
var s,s1,s2:string; k:integer; n1,n2:longint;
s:=edit1.text;
s1:=''; s2:='';
k:=pos('+',s);
if k>0 then begin s1:=copy(s,1,k-1); s2:=copy(s,k+1,length(s)-k); end
else s1:=s;
val(s1,n1,k);
val(s2,n2,k);
本回答由网友推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
