Одинаковое количество символов в строке

[viks1]

Сообщение от s-andriano

Русские тоже считает.
Только Вам нужно брать не

ArrCount: array[0..255] of Integer;

а

ArrCount: array[0..65535] of Integer;

Ну и где выводите цикл нужно подправить.

ааа.... т.е я выбрал маленький диапазон , только для английских символов?

[Аватар]

ss - динамический массив встреченных символов
сс - динамический массив счетчиков
Изначально пустые
По индексам соответствуют друг другу
Ищу символ в массивеб если не нахожу - увеличиваю размерность и добавляю символ
В счетчике накапливаю кол-во повторений
Все

[s-andriano]

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

ааа.... т.е я выбрал маленький диапазон , только для английских символов?

Не совсем так.
Для латиницы достаточно от 32 до 127.
А если нужна кириллица, то нужно понимать, какую именно кодировку Вы хотите использовать.
Если любую однобайтовую, то достаточен диапазон до 255. Но в кодировках KOИ-8, СР-866, СР-1251, ISO 8859-5 и т.п. символы кириллицы имеют разные коды.
Если юникод - то символы кириллицы там располагаются в диапазоне где-то между 1024 и 1280.

PS. Есть еще кодировки переменной длины типа UTF-8, но, насколько мне известно, в Delphi отсутствуют средства для непосредственной работы с такими.

[viks1]

Сообщение от Аватар

ss - динамический массив встреченных символов
сс - динамический массив счетчиков
Изначально пустые
По индексам соответствуют друг другу
Ищу символ в массивеб если не нахожу - увеличиваю размерность и добавляю символ
В счетчике накапливаю кол-во повторений
Все

Почти понял
Спасибо

[viks1]

Сообщение от s-andriano

Не совсем так.
Для латиницы достаточно от 32 до 127.
А если нужна кириллица, то нужно понимать, какую именно кодировку Вы хотите использовать.
Если любую однобайтовую, то достаточен диапазон до 255. Но в кодировках KOИ-8, СР-866, СР-1251, ISO 8859-5 и т.п. символы кириллицы имеют разные коды.
Если юникод - то символы кириллицы там располагаются в диапазоне где-то между 1024 и 1280.

т.е создавать два массива ?

[s-andriano]

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

т.е создавать два массива ?

О каких массивах речь?
Если вместо одного, который был 0..255, то не нужно - достаточно одного 0..1279. Ну или с запасом 0..65535 - как я писал раньше.

Но сначала определитесь, с какой кодировкой Вы хотите работать.

[viks1]

Сообщение от s-andriano

О каких массивах речь?
Если вместо одного, который был 0..255, то не нужно - достаточно одного 0..1279. Ну или с запасом 0..65535 - как я писал раньше.

Но сначала определитесь, с какой кодировкой Вы хотите работать.

пробовал с запасом

procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
 i:integer;
 ArrCount: array [0..65535] of integer;
begin

 stroka:=Edit1.Text;
vvod:=(AnsiUpperCase(stroka));
for i := 1 to Length(vvod) do
inc(ArrCount[Ord(vvod[i])]);
    for i := 0 to 255 do
    begin
      if ArrCount[i]>0 then Memo1.Lines.Add(Chr(i)+':'+IntToStr(ArrCount[i]));
    end;

при наборе русских символов выводит "-:1"

[s-andriano]

Перечитайте мое предыдущее сообщение.
Особенно его последнюю строку.

[viks1]

Сообщение от s-andriano

Перечитайте мое предыдущее сообщение.
Особенно его последнюю строку.

Я не знаю с каким лучше, ну например с юникодом

[Serge_Bliznykov]

viks, да выбросите Вы уникод, он Вам нужен в данной задаче?!

используйте вместо типа String тип AnsiString и старая ваша программа (где отводится массив от 0 до 255 ) должна нормально работать!

procedure TForm1.Button1Click(Sender: TObject);
var str: AnsiString;
    i: integer;
    ArrCount: array[0..255] of Integer;
begin
  for i:=0 to 255 do ArrCount[i]:=0;

  str:=AnsiUpperCase(Edit1.Text);

  for i:=1 to Length(str) do
    Inc(ArrCount[Ord(str[i])]);

  Memo1.Lines.Clear;
  for i:=0 to 255 do
    if ArrCount[i]>0 then Memo1.Lines.Add(Chr(i)+':'+IntToStr(ArrCount[i]));
end;