Функцию, которая принимает в качестве параметра строку и символ и вычисляет количество таких символов в строке (Delphi)

[Loqwer78rus]

Написать функцию которая принимает в качестве параметра строку и символ. функция вычисляет количество таких. символов в страке.
С символами и строками у меня проблемы. Помогите пожалуйста.

[type_Oleg]

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

..С символами и строками у меня проблемы...

А с массивами не проблема ?
Строка - это по сути массив символов.
Представьте задачу
" Написать функцию которая принимает в качестве параметров массив целых чисел и целое число. функция вычисляет количество таких чисел в массиве."

С символами тоже можно использовать операции сравнения =, <>

[Loqwer78rus]

А с массивами не проблема ?
Строка - это по сути массив символов.
Представьте задачу
" Написать функцию которая принимает в качестве параметров массив целых чисел и целое число. функция вычисляет количество таких чисел в массиве."

С символами тоже можно использовать операции сравнения =, <>

суть в том что мы еще, в школе, не проходили массивы

[Serge_Bliznykov]

function CountCharAtString(const S : string; const Ch : char) : integer;
var  i : integer;
begin
   Result := 0; {обнулим счётчик}   
   for i:=1 to Length(S) do  {цикл по всем символам строки}
      if S[i]=Ch then Inc(Result);  {если i-й символ строки равен символу, нарастить на единицу счётчик}
end;

[Loqwer78rus]

а нужно использовать "delete"? и если нужно, то как ее здесь применять

[Serge_Bliznykov]

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

а нужно использовать "delete"? и если нужно, то как ее здесь применять

нет, не нужно использовать "delete".

[Loqwer78rus]

не могу понять что в procedure выводить.

[Serge_Bliznykov]

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

не могу понять что в procedure выводить.

а я не понимаю, о какой "procedure" идёт речь?!

Давайте, не будем играть в шарады, Вы подробно расскажете, что Вы пытаетесь сделать, что получилось сделать и что не получается...
Тогда будет легче подсказать Вам.

[Loqwer78rus]

edit1 - здесь у меня находится строка
edit2 - здесь символ.
как мне вывести результат в label?

[ZX Spectrum-128]

У label есть св-во caption, которому вы можете присвоить строковое значение.
http://helpdelphi.ru/label/