Цитата:
|
Сообщение от poli-smen
Код:
for i := 1 to len do
begin
case str[i] of
'0'..'9': res1 := res1 + str[i];
'a'..'z', 'A'..'Z': res2 := res2 + str[i];
end;
end; |
Да, Вы правы, прописные буквы игнорируются. Подставила Ваше творение - и всё получилось, спасибо!
Только чуть-чуть начала разбираться с "for .. to .. do", как теперь снова нужно бежать искать что такое "case" и с чем его едят
Спасибо, что не даёте расслабиться!