[Avenger15]

Всем доброго времени суток
У нас есть список паролей , к примеру:

Код:

pass1
123456
mama123
KAPA002

Вопрос: как сделать так , чтобы выводились ТОЛЬКО те пароли , в которых есть - И БУКВЫ - И ЦИФРЫ
Пароли из списка выше (если сортировать):

Код:

pass1
mama123
KAPA002

Жду вашей помощи

[Bargest]

Ну как-нибудь так проверить можно.

Код:

function checkPass(s: string) : boolean;
var hasNum, hasLetter: boolean;
    i: integer;
begin
  hasNum := false;
  hasLetter := false;
  for i := 1 to length(s) do
  begin
    if s[i] >= '0' and s[i] <= '9' then
        hasNum := true;
    if (s[i] >= 'A' and s[i] <= 'Z') or (s[i] >= 'a' and s[i] <= 'z') then
        hasLetter := true;
    if hasNum and hasLetter then
        break;
  end;
  result := hasNum and hasLetter;
end;

[Vayrus]

CharInSet или, в юните Character.TCharacter.IsLetter (IsChar, IsNumber, IsDigit и тп) есть готовые функции, по крайней мере в XE7