Developing.ru

Код: Выделить всё

//---------------------------------------------------------------------------

#include <vcl.h>
#include <stdio.h>
#pragma hdrstop

#include "Unit1.h"

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;


struct simvoli
        {
        char s;
        int kol;
        };


//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void kol_sim(AnsiString str)
{
simvoli sim[200];     //Массив структур, содержащий символы и их количество
int point;

point=0;              //Число символов
//Занос неповторяющихся символов в массив
for (int i=1;i<=str.Length();++i)
        {
        int fl;
        fl=0;
        for (int j=0;j<point;++j)
                {
                if (str[i]==sim[j].s)
                        ++fl;
                }
        if (fl==0)
                {
                sim[point].s=str[i];
                sim[point].kol=1;
                ++point;
                }
        }


//Подсчёт количества
for (int j=0;j<point;++j)
        {
        int kol;
        kol=0;
        for (int i=1;i<=str.Length();++i)
                {
                if (str[i]==sim[j].s)
                        ++kol;
                }
        sim[j].kol=kol;
        }
//Вывод в Edit2
for (int i=0;i<point;++i)
        {
        Form1->Edit2->Text=Form1->Edit2->Text+sim[i].s;
        Form1->Edit2->Text=Form1->Edit2->Text+sim[i].kol;
        }

}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
kol_sim(Edit1->Text);

}
//---------------------------------------------------------------------------