Работа со строками

Рассмотрим алгоритм решения задачи, в которой нужно подсчитать количество вхождений символа «а» в строке. Используем компоненты классов TEdit и TMemo для ввода строки и вывода результата.

Пусть форма будет выглядеть следующим образом:

Объявим в юните переменные
var s: string;
i, k: integer;


А обработчик нажатия кнопки будет выглядеть так:

procedure TForm1.Button1Click(Sender: TObject);
begin
  s:=edit1.text; //ввод строки
  for i:=1 to length(s) do //идем по строке
   if s[i]=’a’ then k:=k+1; {если i-ый символ а, тогда увеличиваем счетчик k}
  Memo1.text:=IntToStr(k) //вывод результата
end;


Задания для самостоятельной работы:
1.Дана строка s. Найти количество вхождений букв a,b,c,d в ней.
2.Найти количество цифр в строке.
3.Сцепить несколько строк в одну.
4.Из данной строки выбрать цифры и сформировать из них новую строку.
5.Найти количество слов, начинающихся на букву с.
6.Подсчитать количество слов в строке.
7.Определить начинается и заканчивается ли слово одной буквой.
8.Удалить каждую четную букву в строке.
9.Проверить одинаковое ли число открытых и закрытых скобок в строке.