var
ans:AnsiString;
wis:WideString;
sub:integer;
begin
ans:='盖世...的中国女人';
wis:=WideString(ans);
.
.
.
Length(ans);
and so on...
ans:AnsiString;
wis:WideString;
sub:integer;
begin
ans:='盖世...的中国女人';
wis:=WideString(ans);
.
.
.
Length(ans);
and so on...
procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
i:integer;
begin
str:='ghjklfd';
i:=length(str);//就是用这句来取得字符长度的
label1.Caption:=inttostr(i);
end;