подсчет букв в длинном тексте

← →
kolega © (2002-11-02 22:42) [0]

Ребя!!! Нужно для криптографической работы посчитать кол-во букв, но не всех вместе(я это уже сделал), а каждое наименование букв отдельно. Например а=столько, б=столько, в=Столько и т.д. Буду благодарен за пример. С уважением.

← →
Юрий Зотов © (2002-11-02 23:12) [1]

> но не всех вместе(я это уже сделал)
Это сделала и Borland - Length.

> каждое наименование букв отдельно

Пример для английских букв (S - строка с текстом).

var
Arr: array["A".."Z"] of DWord;
i: DWord;
begin
ZeroMemory(@Arr["A"], SizeOf(Arr));
for i := 1 to Length(S) do Inc(Arr[UpCase(S[i])])
end;

const
RusChar = ["а".."я", "ё"];
var
bukva: array [0..$FF] of LongWord;
i: LongWord;
txt: string;
begin
txt := AnsiLowerCase("абвгАБВГДЁ");
for i := 0 to $FF do
bukva[i] := 0;
for i := 1 to Length(txt) do
if txt[i] in RusChar then
Inc(bukva[Ord(txt[i])]);
for i := 0 to $FF do
if Chr(i) in RusChar then
Memo1.Lines.Add(Chr(i)+" = " + inttostr(bukva[i]));
end;

подсчет букв в длинном тексте Найти похожие ветки