[Avenger15]

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

Код:

1 2 3 4

pass1 123456 mama123 KAPA002

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

Код:

1 2 3

pass1 mama123 KAPA002

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

[Bargest]

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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