обработки текста: определить в тексте наиболее часто встречающиеся символы (Delphi)

[acheron1757]

кто сможет подсказать, нужно разработать программу обработки текста, определить в тексте наиболее часто встречающиеся символы, количество символов выбирается.
САМ Я НЕ МОГУ ВСПОМНИТЬ КАК СДЕЛАТЬ СРАВНЕНИЕ СИМВОЛОВ! И ПОТОМ ВЫВЕСТИ ИХ

[Serge_Bliznykov]

А вообще, нужно делать или универсально:
встретили символ, проверили, был ли он раньше (есть ли он уже в нашем списке), если есть - нарастили счётчик на единицу, если не было такого символа - добавили его в список, счётчик поставили ему 1. Удобно использовать готовые списки - например, TSTringList

либо, менее универсально, но зато ОЧЕНЬ быстро, просто и эффективно.
создаём массив, который индексируется кодами символов.
например, для английских сивмолов:

procedure TForm1.Button1Click(Sender: TObject);
const
   EnglChars = ['A'..'Z','a'..'z'];
var A : array['A'..'z'] of integer;
  ch : char;
  SInput : string;
  i : integer;
begin
  // обнулим счётчики
  for ch:='A' to 'z' do A[ch] := 0;

  SInput := Memo1.Text; // возьмём текст для обработки из Memo

  // подсчитаем количество появлений для символов из строки SInput
  for i:=1 to Length(SInput) do
    if SInput[i] in EnglChars then
           inc( A[ SInput[i] ] );

  // выведем результаты в Memo2
  Memo2.Lines.Clear;
  for ch:='A' to 'z' do
    if A[ch] > 0 then
       Memo2.Lines.Append(' символ '+ch+' встречается '+IntToStr( A[ch] ) + ' раз ');

end;

p.s. чтобы вывести нужное количество наиболее часто встречающихся символов, нужно отсортировать массив с результатами...

[acheron1757]

спасибо сейчас попробуем

[acheron1757]

кто подскажет как дописать программу, что бы она выводила часто встречающиеся символы из текста

вот то что есть
прога.rar

программа считает символы и выводит результат, но по всему алфовиту

[Человек_Борща]

Банально вывести первых 5 букв с наибольшим кол-во повторений.

[acheron1757]

я до банального не знаю как это реализовать в принципе как я понял можно через массив, но тут у меня тоже возникли небольшие сложности, вывести в массив еще ладно но потом как оставить наибольшее значения из этого массива в стоке, или вывести сообщением

[spirit-ua]

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

я до банального не знаю как это реализовать в принципе как я понял можно через массив, но тут у меня тоже возникли небольшие сложности, вывести в массив еще ладно но потом как оставить наибольшее значения из этого массива в стоке, или вывести сообщением

похожая тема уже поднималась на этом форуме

Создать двумерный массив из символов где первый эл. это символ, второй - коллисество и дальше пройтись по тексту и увеличивать в массиве счетчик для каждого символа встречающегося в тексте. Потом отсортировать масив по "счетчику" символов и вывести нужный результат