Найти сумму элементов и вывести согласные буквы

[Ilya87]

Здравствуйте.
Не могли бы мне помочь в решении двух задач на делфи.
1. Нужно решить данный пример. Я пологая что кол-во символов нужно ввести в edit.

и вторая
2. Дана стока в edit. Нужно вывести все строчные согласные буквы, входящие в этот текст.
Заранее благодарен.

[Grag]

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

Здравствуйте.
Не могли бы мне помочь в решении двух задач на делфи.
1. Нужно решить данный пример. Я пологая что кол-во символов нужно ввести в edit.

и вторая
2. Дана стока в edit. Нужно вывести все строчные согласные буквы, входящие в этот текст.
Заранее благодарен.

Контакты:
e-mail: skiper@rol.ru
icq: 585281783
Skype: delmas61

Обращайтесь!

[RUSt88]

пиши на мыло, сделаю в лучшем виде с комментариями и пояснениями

[Xatr]

Дана стока в edit. Нужно вывести все строчные согласные буквы, входящие в этот текст.

Эта функция для проверки буквы. Если буква отвечает условию, то принять, иначе 0:

function tform1.check(key: Char):char;
begin
  case key of
   #97..#100:result:=key;
   #102..#104:result:=key;
   #106..#110:result:=key;
   #112..#115:result:=key;
   #117..#122:result:=key;
   else result:=#0;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var a:integer;
b:string; //конечная строка
begin
for a := 0 to length(edit1.Text) do //проверять каждую букву
if check(edit1.Text[a])<>#0 then b:=b+check(edit1.Text[a]); //проверка, если функция воззвратила #0,то не добавлять букву в конечную строку.
Label2.Caption:=b;
end;