AnsiString a;
int length=a.length()

解决方案 »

  1.   

    取子串是substring(s:string ,i:int,j:int);
      

  2.   

    ansistring a
    int b=a.length()
      

  3.   

    Length
    引用单元:System
    函数声明:function Length(S):Integer;
    例子:
    Procedure TForm1.Button1Click(Sender:TObject);
    var Str:String;
    begin
    Str:='我爱Delphi';//中文算两个字节,有空格的话空格也算
    showmessage(InttoStr(length(Str)));
    end;
      

  4.   

    var
    a:string;
    b:integer;
    begin
    a:='this is a string,ha ha';
    b:=length(a);//取出a长度
    edit1.text:=inttostr(b);
    end;
      

  5.   

    Length
    引用单元:System
    函数声明:function Length(S):Integer;
    例子:
    Procedure TForm1.Button1Click(Sender:TObject);
    var Str:String;
    begin
    Str:='我爱Delphi';//中文算两个字节,有空格的话空格也算
    showmessage(InttoStr(length(Str)));
    end;
      

  6.   

    length(str:string);
    StrLen(const Str: PChar)