新手求助！！

Question

学了delphi许久没有长进，还请高手帮我写个取字符串的函数
费率1=（70%-90%）；
费率2=（70%-90%）；

Answer 1

本人刚学delphi，不好意思 ;
我要定义两种费率，不同的人根据自己的权限最高值；例如：
张三 "70%-90%";
李四  "70%-80%"
并定义成一函数！

Answer 2

题意不清，是张三对应的费率范围在70%-90%吧，‘70%-90%’是个整体，你要取最高值吗？取右边三位就是了,用函数rightStr('70%-90%',3)  uses strUtils

Answer 3

定义一函数：
    s1："70%-90%"  s2 "70%-80%"
    dbedit.text和s1，s2比较 在此区间内输入可以保存，否 false

Answer 4

我做了一个简单的小例子,可以实现你的功能,如下所示:
var
  s1:String;
  i1,i2:Integer;
begin
  s1:='70%-90%';
  i1:=StrToInt(copy(s1,1,2));  //取70
  i2:=StrToInt(copy(s1,pos('-',s1)+1,2));//取90
  if ((StrToInt(Trim(dbedit.Text)) >= i1) and (StrToInt(dbedit.Text) <= i2)) then
  begin
    ShowMessage('在70-90的范围');
  end
  else
  begin
    ShowMessage('不在范围内');
  end;