Delphi 如何判断密码不能小于8位。。。。。

Question

Delphi 如何判断密码不能小于8位，至少包含一个数字，一个字母，还有至少包括
~`!@#$%^&*()_-+={[}]|:;'<,>.?/里面的一个字符，
delphi不熟悉，帮朋友问，有答案马上揭贴。谢谢大家

Answer 1

  if Length(edit1.Text)<8 then ShowMessage('小于8啦');

Answer 2

  if Length(edit1.Text)<8 then ShowMessage('小于8啦');

Answer 3

楼上的答得不完全
还有至少包含一个数字，一个字母，还有至少包括 
~`!@#$%^&*()_-+={[}]|:;' <,>.?/ 里面的一个字符， 

Answer 4

  if Trim(edit1.Text) = '' then
  begin
    ShowMessage('不可以为空');
  end
  else
  begin
    if Length(edit1.Text) < 8 then ShowMessage('小于8啦');
  end;