level 12
procedure TForm1.Edit1Change(Sender: TObject);
var
x:string;
begin
x:= edit1.Text;
label1.caption:= inttostr( length( x ) );
end;
代码都是一样的 为什么在delphi7 版本中显示长度为2 复制到XE8中确显示1
2016年03月22日 16点03分
1
var
x:string;
begin
x:= edit1.Text;
label1.caption:= inttostr( length( x ) );
end;
代码都是一样的 为什么在delphi7 版本中显示长度为2 复制到XE8中确显示1
