strLen1:=StrLen(edit6.text);出错 急!!

Question

strLen1是integer型
出错:[Error] Unit1.pas(423): Incompatible types: 'TCaption' and 'PAnsiChar'
为什么啊!

Answer 1

strLen1 := Length(edit6.text);

Answer 2

数据类型问题：
1.  函数Length(str: string)  参数是 string 
2.  函数StrLen(const Str: PChar) 参数是 PChar而edit6.text的数据类型是TCaption（TCaption 其实就是 string类型的，跟踪一下就知道了）
所以可以如下解决：
1.   strLen1:= Length(edit6.text);
2.   strLen1:=StrLen(PChar(edit6.text));   
也可以strLen1:=StrLen(PAnsiChar(edit6.text)); 搞定  

Answer 3

建议用
strLen1:= Length(edit6.text);
因为PAnsiChar  PChar 是指向没有结束符（null  #0）的string，至于问题大不大，就看楼主的要求了。