Гистограмма

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
class base
{  public:
    char  num[100],  year[100], street[100],home[100], postav[100];
        char name[100];
    base* next, *prior;
    base() { name[0]='\0'; num[0]= '\0';  year[0]='\0'; street[0]='\0';
        home[0]='\0'; postav[0]='\0'; next=NULL; prior=NULL;};
    void findmax(TLabel *lb);
    void del_base();
    void del_baseb();
    void add_base(int n, TMemo *memo);
    void findzad(TEdit *edit, TMemo *memo);
    void grin(TEdit *edit,TMemo *memo);
    int allcen();
    void spor(TEdit *edit,TMemo *memo);
};
 
base *p, *first=NULL, *last=NULL, *b, *firstb=NULL, *lastb=NULL;
 
void base::spor(TEdit *edit,TMemo *memo)
{
 memo->Clear();
        p = first;
        int i=StrToInt(edit->Text);
        while(p)
        {
            if(StrToInt(p->year)==i)
            {
                memo->Lines->Add(AnsiString(p->name) + " " + AnsiString(p->num) + " "  + AnsiString(p-> year) + " " + AnsiString(p->street) + " " + AnsiString(p->home) + " " + AnsiString(p->postav));
            }
            p = p->next;
        }
}
 
 
int base::allcen()
{
        p=first;
        int d=0;
        while(p)
        {
            d+=(StrToInt(p->num)*StrToInt(p-> year));
            p = p->next;
        }
        return d;
}
void base::grin(TEdit *edit,TMemo *memo)
{  memo->Clear();
        p = first;
                AnsiString i=AnsiString(edit->Text);
        while(p)
        {
            if(AnsiString(p->street)==i)
            {
                memo->Lines->Add(AnsiString(p->name) + " " + AnsiString(p->num) + " "  + AnsiString(p->year) + " " + AnsiString(p->street) + " " + AnsiString(p->home) + " " + AnsiString(p->postav));
            }
            p = p->next;
        }
}
 
void base::findzad(TEdit *edit, TMemo *memo)
{       memo->Clear();
        p = first;
        int i=StrToInt(edit->Text);
        while(p)
        {
            if(StrToInt(p->num)==i)
            {
                memo->Lines->Add(AnsiString(p->name) + " " + AnsiString(p->num) + " "  + AnsiString(p->year) + " " + AnsiString(p->street) + " " + AnsiString(p->home) + " " + AnsiString(p->postav));
            }
            p = p->next;
        }
}
 
 
void base::del_base()
{
        base *k,*h;
        k=first;
        while (k)
        {
            h=k;
            k=k->next;
            delete h;
        }
}
void base::del_baseb()
{
        base *k,*h;
        k=firstb;
        while (k)
        {
            h=k;
            k=k->next;
            delete h;
        }
}
 
void base::add_base(int n, TMemo *memo)
{       int i=0;
        char *str, nam[100],nu[100], ye[100],stre[100], ho[100], post[100] ;
        AnsiString st;
        st=memo->Lines->Strings[n];
        str=st.c_str();
 
        while(str[i]!=' ')
         nam[i]=str[i], i++;
        nam[i]='\0';
        i++;
        strcpy(name,nam);
 
        int t=0;
        while(str[i]!=' ')
         nu[t]=str[i], i++, t++;
        nu[t]='\0'; i++;
        strcpy(num,nu);
 
        t=0;
        while(str[i]!=' ')
          ye[t]=str[i], i++, t++;
            ye[t]='\0'; i++;
        strcpy( year,ye);
 
        t=0;
        while(str[i]!=' ')
          stre[t]=str[i], i++, t++;
        stre[t]='\0'; i++;
        strcpy(street,stre);
 
        t=0;
        while(str[i]!=' ')
          ho[t]=str[i], i++, t++;
                ho[t]='\0';
                strcat(street," ");
                strcat(street,ho);
                strcat(street,"\0");
 
 
        t=0;
        i++;
        for(;i<strlen(str);i++)
          post[t]=str[i],t++;
        post[t]='\0';
        strcpy(postav,post);
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button1Click(TObject *Sender)
{
    int i;
    OpenDialog1->Execute();
    Memo1->Lines->LoadFromFile(OpenDialog1->FileName);
    if(first) p->del_base();
    for(int i=0;i<Memo1->Lines->Count;i++)
    {
        p = new base;
        p->add_base(i, Memo1);
        if (first==NULL)
        {
            last=p;
            first=p;
        }
        else
        {
            last->next=p;
            p->prior=last;
            last=p;
        }
    }
 
 
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
    p->findzad(Edit1, Memo2);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{               Label2->Caption=IntToStr(Memo1->Lines->Count);
        p->spor(Edit1, Memo2);
 
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::Button6Click(TObject *Sender)
{
    if(p) p->del_base();
    if(b) b->del_baseb();
    Application->Terminate();
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
 
p->grin(Edit1, Memo2);
}
//---------------------------------------------------------------------------