[集思广益]计算Edit1的文本长度
嘿嘿，有很多时候需要计算Edit1的文本长度，来判断它是长了还是短了，比如：

Delphi(Pascal) code

if Edit1的文本长度 < 6 then  ShowMessage('邮编号码格式不正确！');

当当当当~问题出来了！Edit1的文本长度如何计算？方法有很多种的！抢答开始！Go!!!

[解决办法]
length(edit1.text)
[解决办法]
length(Trim(edit1.text))
[解决办法]
if SendMessage(Edit1.Handle, WM_GETTEXTLENGTH, 0, 0) < 6 then
[解决办法]
你这个是后期判断，也可以在前期限制，设定edit的输入格式和长度，，使用MaskEdit可以更灵活地设置EditMask，限制输入内容。
[解决办法]
常用的就 Length(Edit1.Text) 和 SendMessage(Edit1.Handle, WM_GETTEXTLENGTH, 0, 0) 这两个喽
[解决办法]
这算不算...-_-

Edit1.SelectAll;
ShowMessage(IntToStr(Edit1.SelLength));

[解决办法]
Edit1.GetTextLen
但不知道为什么delphi7区分汉字，delphixe2不区分
[解决办法]
果然……原理都是一样的，你这样写，莫非就是绕了更多弯，代码看上去更难懂，执行效率也不见得有提升，这样写码反而更容易出错，喷完。LZ有心深研VCL源码的精神和做法值得赞，但在实际应用就不太有必要去纠结茴字有多少种写法，快捷可靠的达成任务就OK！