5,388
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
sillyer 2002-04-19
- 打赏
- 举报
Length()
make11111 2002-04-19
- 打赏
- 举报
在FORM上放一个BUTTON，和一个LABEL。
procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
i:integer;
begin
str:='ghjklfd';
i:=length(str);//就是用这句来取得字符长度的
label1.Caption:=inttostr(i);
end;
procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
i:integer;
begin
str:='ghjklfd';
i:=length(str);//就是用这句来取得字符长度的
label1.Caption:=inttostr(i);
end;
wzrlover 2002-04-19
- 打赏
- 举报
??Length()不就可以？
ahpei 2002-04-19
- 打赏
- 举报
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...
FlyingQQ 2002-04-19
- 打赏
- 举报
快啊！小弟在线等啊！
解决了就给分！
解决了就给分！
Liujc 2002-04-19
- 打赏
- 举报
Length
