Гласные и согласные буквы

[artemavd]

Можно ли как-нибудь написать код, чтобы программа различала гласные и согласные буквы? Возможно ли это вообще?

[Neeter]

А что надо делать с гласными или согласными буквами? выводить в массив? или снова в StringGrid?

[vovk]

begin
if edit1.Text[2] in ['Б','б','В','в','Г','г','Д','д','Ё','ё','Ж'
     ,'ж','З','з','Й','й','К','к','Л','л','М','м','Н'
     ,'н','П','п','Р','р','С','с','Т','т','Ф'
     ,'ф','Х','х','Ц','ц','Ч','ч','Ш','ш','Щ','щ','Ъ','ъ'] then ShowMessage('2 символ согласная');
if edit1.Text[2] in ['А','а','Е','е','И','и','О','о','У','у','Ы','ы'
     	,'Ь','ь','Э','э','Ю','ю','Я','я'] then ShowMessage('2 символ гласная');
if edit1.Text[2] in ['0'..'9'] then ShowMessage('2 символ цифра');
if edit1.Text[2] in ['a'..'z','A'..'Z'] then ShowMessage('2 символ буква латиницы')
end;

както так, можно массивы создать с ними сверять ни или ещё както

ЗЫ только буквы посмотри лень фильтровать внимательно было может какие не туда попали

[mflat]

Можно перевести текст из edit1.text в AnsiUpperCase, и тогда проверка станет меньше.

[artemavd]

Сообщение от Neeter

А что надо делать с гласными или согласными буквами? выводить в массив? или снова в StringGrid?

Да, в StringGrid. Помните ту тему, где я спрашивал про номера и буквы? . В этот раз нужно разрешить задачу следующего рода: номера должны браться только либо для гласных букв, либо только для согласных. Например, если введено слово "Иван", то номера должны быть только для букв "И" и "А". Для согласных номера заноситься не должны.
P.S. Вы не подумайте, эти задачи я не для какого-нибудь зачета спрашиваю. Нет! Просто работаю над сложным проектом, во время работы над которым и приходится разбираться с такими вопросами.

begin
if edit1.Text[2] in ['Б','б','В','в','Г','г','Д','д','Ё','ё','Ж'
     ,'ж','З','з','Й','й','К','к','Л','л','М','м','Н'
     ,'н','П','п','Р','р','С','с','Т','т','Ф'
     ,'ф','Х','х','Ц','ц','Ч','ч','Ш','ш','Щ','щ','Ъ','ъ'] then ShowMessage('2 символ согласная');
if edit1.Text[2] in ['А','а','Е','е','И','и','О','о','У','у','Ы','ы'
     	,'Ь','ь','Э','э','Ю','ю','Я','я'] then ShowMessage('2 символ гласная');
if edit1.Text[2] in ['0'..'9'] then ShowMessage('2 символ цифра');
if edit1.Text[2] in ['a'..'z','A'..'Z'] then ShowMessage('2 символ буква латиницы')
end;

Код интересный, но, к сожалению, для моей задачи он не пойдет . Все равно спасибо)

[vovk]

А почему не подойдёт? Можно при вводе смотреть можно потом проверять? может объясните подробнее при каких действиях, что должно происходить и подумаем как приспособить.
Никаких втсроенных функций по этому поводу нет, так что проверять всё равно придётся..

[artemavd]

Уважаемый, vovk посмотрите здесь http://programmersforum.ru/showpost....4&postcount=13. Я в той теме объяснял, что мне нужно. Только к той теме уже задание немного другое добавилось. В том посте код нужно просто дополнить какой-то правильной процедурой.
P.S. Ссылку дал во избежании кросспоста и чтобы не повторяться в темах.

[vovk]

ну если правильно понял то просто ещё 1 условие же добавится
можно просто функцию добавить, чтото вроде

Function check_Sm(Sm:AnsiChar;v:Boolean=true):boolean;
begin
Result:=false;
if v and (sm in ['Б','б','В','в','Г','г','Д','д','Ё','ё','Ж'
     ,'ж','З','з','Й','й','К','к','Л','л','М','м','Н'
     ,'н','П','п','Р','р','С','с','Т','т','Ф'
     ,'ф','Х','х','Ц','ц','Ч','ч','Ш','ш','Щ','щ','Ъ','ъ'])
     then Result:=true;
if (not v) and (sm in ['А','а','Е','е','И','и','О','о','У','у','Ы','ы'
     	,'Ь','ь','Э','э','Ю','ю','Я','я']) then Result:=true
end;

и вроде тут у вас чтото присваивается

 if Pos(AnsiUpperCase(Letter), str) <> 0 then

заменить на

 if (Pos(AnsiUpperCase(Letter), str) <> 0) and check_Sm(Letter,true) then

если нужна согласная или

 if (Pos(AnsiUpperCase(Letter), str) <> 0) and check_Sm(Letter,false) then

если гласная


или даже пораньше проверяем

 Letter := StringGrid1.Cells[i, 0][1];
if  check_Sm(Letter) then  // если нужна согласная или if  check_Sm(Letter,false) если гласная
for j := 0 to Chars.Count - 1 do               //Цикл до конца файла
   begin
    str := Chars[j];               //Присваиваем текущую строку
    if Pos(AnsiUpperCase(Letter), str) <> 0 then    //Найдена ли буква (измененная в регистре на заглавную) в текущей строке
    begin
     Number := Copy(str, 1, 1)[1];      //Если найдена, то присваиваем переменной число в текущей строке
     inc(sum, Number);   //Увеличиваем сумму на Number
     Break;                                     //Заканчиваем цикл
    end;
   end;

Зы надеюсь правильно понял