请问有getmidstr这个函数吗?????!

请问有getmidstr这个函数吗?????!

解决方案 »

  1.   

    StrUtils上有类似的
    自己看Help去http://lysoft.7u7.net
      

  2.   

    uses strutils;首部 function MidStr(const AText: string; const AStart, ACount: Integer): string; $[StrUtils.pas
    功能 返回字符串AText从AStart开始的ACount个字符
    说明 其实就是Copy
    参考 function System.Copy
    例子 Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value);
      

  3.   

    例子 Edit3.Text := MidStr(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value);
    还不够详细啊？要不要当面我手把手教你？真败了
      

  4.   

    这是dlephi源代码:
    function RightStr(const AText: WideString; const ACount: Integer): WideString; overload;
    begin
      Result := Copy(AText, Length(AText) + 1 - ACount, ACount);
    end;这是例子：
    procedure TForm1.Button1Click(Sender: TObject);
    begin
        Edit2.Text := MidStr(Edit1.Text, 5, 4);
    end;这是输出结果：
    Edit1.text:1234567890
    Edit2.text:5678第一个参数是取的对象，第二个参数是从第几位开始取，第三个参数是取几位，:=是赋值的意思，将右边函数的结果传递给左边的变量。
    还有什么不懂的么？
      

  5.   

    那各位大哥midstr(edit1.text,'','')有错吗
      

  6.   

    function MidStr(const AText: AnsiString; const AStart, ACount: Integer): AnsiString; overload;
    begin
      Result := Copy(WideString(AText), AStart, ACount);
    end;
      

  7.   

    我先问一句：你知道Integer和string类型的区别么？
      

  8.   

    MidStr(字符串变量，数值1，数值2）数值1不大于字符串的长度数值2不小于1唉，这也得讲