delphi用函数判断密码长度怎么做？

Question

用函数判断密码长度  
    条件是
       长度6——12为合法；
       长度<6    长度>12为不合法。

Answer 1

(length(edit1.text) < 6) or (length(edit1.text) > 12)

Answer 2

function IsValid(AText: string): Boolean;
begin
  if (length(AText) >= 6) and (length(AText) <= 12) then
    Result := True
  else
    Result := False;
end;

Answer 3

借用一下楼上的，呵呵
function IsValid(AText: string): Boolean;
begin
  Result:=(length(AText) >= 6) and (length(AText) <= 12);
end;

Answer 4

楼主如果连这么基础的还没掌握， 应该函数也不知道怎么用。 借用1 2 3楼的 ， 所以还是
if (length('123456') => 6) and (length('123456') <= 12) then
  showmessage('合法')
else
  showmessage('不合法');