Подсчет повторений каждого символа

[virus77724]

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

uses crt;
var
f:text;
ws:unicodestring;
s,sc:string;
ksm,i:integer;
begin
assign(f, 'text.txt');
reset(f);
ksm:=0;
while not eof(f) do begin
readln(f,s);
ws:=UTF8Decode(s);
ksm:=ksm+length(ws);
for i:=1 to length(ws) do
begin
sc:=UTF8Encode(ws[i]);
writeln(sc,'=');
end;
end;
writeln('У вас в файле ',ksm,' символов');
end.

[Serge_Bliznykov]

а что, вашу предыдущую тему "Декодирование на паскаль" можно закрыть?


p.s. я бы воспользовался либо TStringList, куда добавлял найденные символы и счётчик,
либо, банально, динамическим массивом.

[virus77724]

да можно там проблемму не решил и как мне объяснил преподаватель это будет почти нереально с тем массивом который у меня был

[TaLadno]

Program HelloWorld(output);
uses crt;

function GetUniqString(aSrc: string): string;
var i: integer;
Begin
    GetUniqString := '';
    for i:=1 to length(aSrc) do
        if pos(aSrc[i], GetUniqString) = 0 then
            GetUniqString := GetUniqString + aSrc[i];
End;

function GetCountOcc(aCh, aSrc: string): integer;
var i, tPos: integer;
    tempStr: string;
Begin
    GetCountOcc := 0;
    tempStr := aSrc;
    while pos(aCh, tempStr)<>0 do
    Begin
        tPos := pos(aCh, tempStr);
        delete(tempStr, tPos, 1);
        inc(GetCountOcc);
    End;
End;

var src: string;
    uniqStr: string;
    ch: string;
    count: integer;
    i: integer;
begin
    src := 'qwertyqwerty1';
    writeLn(src);
    uniqStr := GetUniqString(src);
    for i := 1 to length(uniqStr) do
    Begin
        ch := uniqStr[i];
        count := GetCountOcc(ch, src);
        writeLn(ch + ' = ', count);
    end;    
end.

работу с файлами и допиливание до "нужного" состояния доделаете уже и сами (та и ошибки если что, то тоже)
проверял только в онлайн-компиляторе

[virus77724]

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