12.11.2009, 17:59
|
|
Участник форума
Регистрация: 10.08.2009
Сообщений: 238
С нами:
8817310
Репутация:
108
|
|
Сообщение от Thenno
Решение не оптимальное, но должно работать
i:=1;
while s[i]<>'@' do
begin
m:=m+s[i];
i:=i+1;
end;
for j:=i to length (s) do
if s[i]='1' or '2' or '3' or '4' or '5' or '6' or '7' or '8' or '9' or '0' then
p:=p+s[i];
Извини, но твой вариант очень медленный. В данном случае если автор хочет проверять списки (как я понимаю), то чем меньше кода тем лучше. И пароль не всегда будет состоять из цифер, так что проверка на 1-9 ни к чему. Хотя выбирать автору вопроса.
Последний раз редактировалось =Zeus=; 12.11.2009 в 18:04..
|
|
|