檢查是否為正確的Mac Address格式

function isMacAdrFormat(str: String): boolean;

begin

  Result := False;

  if Length(str) <> 17 then

    Exit;

  Result := ((str[1] in ['0'..'9', 'A'..'F']) and

             (str[2] in ['0'..'9', 'A'..'F']) and

             (str[3] = '-') and

             (str[4] in ['0'..'9', 'A'..'F']) and

             (str[5] in ['0'..'9', 'A'..'F']) and

             (str[6] = '-') and

             (str[7] in ['0'..'9', 'A'..'F']) and

             (str[8] in ['0'..'9', 'A'..'F']) and

             (str[9] = '-') and

             (str[10] in ['0'..'9', 'A'..'F']) and

             (str[11] in ['0'..'9', 'A'..'F']) and

             (str[12] = '-') and

             (str[13] in ['0'..'9', 'A'..'F']) and

             (str[14] in ['0'..'9', 'A'..'F']) and

             (str[15] = '-') and

             (str[16] in ['0'..'9', 'A'..'F']) and

             (str[17] in ['0'..'9', 'A'..'F']));

end;