[Ileto]

Нужно написать программу,которая бы считала сколько раз в тексте встречается определенная буква.Текст находится в Memo1. Введя букву в memo2 и нажав на кнопку,в memo3 должно появиться появлений этой буквы в тексте. Помогите!Очень прошу!

[lmikle]

Код:

function LetterCount(AText : TStringList; ALetter : Char) : Integer;
var
  I, J : Integer;
begin
  Result := 0;
  For I := 0 To Atext.Count - 1 Do
    For J := 1 To Length(AText[i]) Do
      If AText[i][J] = ALetter Then Inc(Result);
end;

В AText - Memo1.Lines - возможно, придется так: TStringList(Memo1.Lines)
В ALetter - Memo2.Lines.Text[1] - первая буква
результат функции - кол-во ALetter в AText - целое число. Для вывода в Memo3 - Memo3.Lines.Text := IntToStr(...);

[Ileto]

что-то я не совсем понял

[ART]

Text - текст memo, который нужно просмотреть (memo1.text)
Ch - буква которую нужно найти

Код:

//Не проверял, но работать должно))
function QuanLet(Text: string; Ch: Char): integer;
var
 i: integer;
begin
 Result := 0;
 for i := 1 to Length(Text) do
  if Text[i] = Ch then Inc(Result);
end;

Потом, в событии нажатии кнопки пишешь, что нить типа:
...
Memo2.text := IntToStr(QuanLet(Memo1.text, edit1.text[1]));
...
В edit1 должна быть буква которую нужно посчитать