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

[viks1]

Доброго времени суток.
Возникла проблема с выполнением одной задачи. Ее суть в том, что бы вывести в табличном виде количество одинаковых символов в строке, и преобразовать все под один регистр.
Например я ввожу:
____________
АаааББбкFRRRr
result:
A:4
Б:3
К:1
F:1
R:4

________
Что сделал я, я перевел все в один регистр, я нашел все как хотел, но только с английскими буквами.
Как мне работать с русскими буквами?

Код который использовал:

бла бла бла...
var
ArrCount: array[0..255] of Integer;
vvod:STRING;
     stroka:String;

function LowerCaseRus(const S: string): string;
var
Ch: Char;
L: Integer;
Source, Dest: PChar;
begin
L := Length(S);
SetLength(Result, L);
Source := Pointer(S);
Dest := Pointer(Result);
while L <> 0 do
begin
Ch := Source^;
if (Ch >= 'A') and (Ch <= 'Z') then Inc(Ch, 32);
if (Ch >= 'А') and (Ch <= 'Я') then Inc(Ch, 32);
Dest^ := Ch;
Inc(Source);
Inc(Dest);
Dec(L);
end;
end;





procedure TForm1.Button1Click(Sender: TObject);
var
str:string;
 i:integer;
begin

 stroka:=Edit1.Text;
vvod:=(LowerCaseRus(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;
end;
//это один из попыток

[Аватар]

А чем не устраивают функции AnsiUpperCase, AnsiLowerCase, UpperCase, LowerCase?

[viks1]

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

А чем не устраивают функции AnsiUpperCase, AnsiLowerCase, UpperCase, LowerCase?

По сути устраивают, я применял и их... (Как написал это один из своих вариантов)

Вся проблема в том, что Английские буквы -( количество повторений)- считает, а вот с Русскими не работает...
Преобразовать преобразовывает а вот посчитать количество не хочет.

[Аватар]

procedure TForm1.Button1Click(Sender: TObject);
var str: string;
    i: 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])]);
  for i:=0 to 255 do
    if ArrCount[i]>0 then Memo1.Lines.Add(Chr(i)+':'+IntToStr(ArrCount[i]));
end;

[viks1]

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

procedure TForm1.Button1Click(Sender: TObject);
var str: string;
    i: 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])]);
  for i:=0 to 255 do
    if ArrCount[i]>0 then Memo1.Lines.Add(Chr(i)+':'+IntToStr(ArrCount[i]));
end;

Именно так. Да, AnsiUpperCase совершенно подходит под преобразование русских букв, но как я понял

Inc(ArrCount[Ord(str[i])]);

не считает русские символы...
Английские считает, русские нет!

[Аватар]

Я на Д-7 проверил. Если более продвинутые так не пойдет

[viks1]

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

Я на Д-7 проверил. Если более продвинутые так не пойдет

т.е на xe3 не будет работать?
в чем прикол?

[Аватар]

Прикол в том, что символы в String не однобайтные

procedure TForm1.Button1Click(Sender: TObject);
var str: string;
    i,k,j,n: integer;
    ss: array of String;
    cc: array of Integer;
begin
  k:=0;
  str:=AnsiUpperCase(Edit1.Text);
  for i:=1 to Length(str) do begin
    j:=-1;
    for n:=0 to k-1 do
      if ss[n]=str[i] then begin j:=n; Break; end;
    if j=-1 then begin
      j:=k;
      Inc(k);
      SetLength(ss,k);
      SetLength(cc,k);
      ss[j]:=str[i];
      cc[j]:=0;
    end;
    Inc(cc[j]);
  end;
  for i:=0 to k-1 do Memo1.Lines.Add(ss[i]+':'+IntToStr(cc[i]));
end;

AnsiUpperCase ??? не уверен, возможно UpperCase

[viks1]

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

Прикол в том, что символы в String не однобайтные

procedure TForm1.Button1Click(Sender: TObject);
var str: string;
    i,k,j,n: integer;
    ss: array of String;
    cc: array of Integer;
begin
  k:=0;
  str:=AnsiUpperCase(Edit1.Text);
  for i:=1 to Length(str) do begin
    j:=-1;
    for n:=0 to k-1 do
      if ss[n]=str[i] then begin j:=n; Break; end;
    if j=-1 then begin
      j:=k;
      Inc(k);
      SetLength(ss,k);
      SetLength(cc,k);
      ss[j]:=str[i];
      cc[j]:=0;
    end;
    Inc(cc[j]);
  end;
  for i:=0 to k-1 do Memo1.Lines.Add(ss[i]+':'+IntToStr(cc[i]));
end;

AnsiUpperCase ??? не уверен, возможно UpperCase

Спасибо огромное !
и с AnsiUpperCase тоже работает.

Маленькая просьба, не смогли бы объяснить какой алгоритм работы этого кода?
Я частично понял что за чем, но есть непонятные моменты.
Их много , приводить не буду)

[s-andriano]

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

Inc(ArrCount[Ord(str[i])]);

не считает русские символы...
Английские считает, русские нет!

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

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

а

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

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