Something

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

#include <vcl.h>
#pragma hdrstop

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

__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        medis.formatas = 0;
}

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

void __fastcall TForm1::Button1Click(TObject *Sender)
{
        Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button2Click(TObject *Sender)
{
        medis.Ivesti();
        medis.Spausdinti();
        Memo1->Lines->LoadFromFile("rez.txt");
}
//---------------------------------------------------------------------------

void __fastcall TForm1::Button3Click(TObject *Sender)
{
        TDuomenys D(Edit1->Text, Edit2->Text, Edit3->Text, Edit4->Text);
        
        medis.Iterpti(D);
        medis.Spausdinti();
        Memo1->Lines->LoadFromFile("rez.txt");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{
        medis.Rasti(Edit5->Text.c_str(),medis.formatas);

        for(int i=0; kiekis > i;i++)
        {
                char* str = new char[255];
                strcpy(str,"| ");
                strcat(str,Masyvas[i].Gauti(medis.formatas));
                strcat(str," | ");

                for(int i=0; 4 > i;i++)
                        if(medis.formatas != i)
                        {
                                strcat(str,Masyvas[i].Gauti(i));
                                strcat(str," | ");
                        }

                Memo1->Lines->Add(str);

                delete [] str;
        }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button5Click(TObject *Sender)
{
        medis.Naikinti();        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button6Click(TObject *Sender)
{
        medis.formatas = StrToInt(Edit6->Text);        
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button7Click(TObject *Sender)
{
        medis.NaikintiElementa(Edit7->Text.c_str(),medis.formatas);
        medis.Spausdinti();
        Memo1->Lines->LoadFromFile("rez.txt");
}
//---------------------------------------------------------------------------