#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
        ComboBox2->Items->Add(Pavadinimai[0]);
        ComboBox2->Items->Add(Pavadinimai[1]);
        ComboBox2->Items->Add(Pavadinimai[2]);
        ComboBox2->Items->Add(Pavadinimai[3]);
        ComboBox2->Items->Add("Numeris");
        ComboBox2->ItemIndex = 0;

        ComboBox3->Items->Add(Pavadinimai[0]);
        ComboBox3->Items->Add(Pavadinimai[1]);
        ComboBox3->Items->Add(Pavadinimai[2]);
        ComboBox3->Items->Add(Pavadinimai[3]);
        ComboBox3->Items->Add("Numeris");
        ComboBox3->ItemIndex = 0;

        TabSheet2->TabVisible = false;
        TabSheet3->TabVisible = false;
        TabSheet4->TabVisible = false;
        TabSheet5->TabVisible = false;

        Edit8->Text= "0" ;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SpausdintiClick(TObject *Sender)
{
        TabSheet2->TabVisible = true;
        TabSheet3->TabVisible = true;
        TabSheet4->TabVisible = true;
        TabSheet5->TabVisible = true;

        ListBox5->Clear();
        DuomenuBase.Valyti();
        DuomenuBase.Nuskaityti(path);
        DuomenuBase.Isvesti(ListBox5);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IterptiClick(TObject *Sender)
{
        ListBox6->Clear();

        if (SkaitmenuAtpazinimas(Edit8->Text.c_str()))
        {
           int sk = StrToInt(Edit8->Text);
           if (sk > DuomenuBase.elementu_kiekis || sk < 0 || sk == ' ')
           {
                   ShowMessage("Nekvailiok");
                   return;
           }

           String str2 = Edit9->Text;
           DuomenuBase.Iterpti(sk, str2, Edit10->Text, Edit11->Text, Edit12->Text);
           DuomenuBase.Isvesti(ListBox6);
           DuomenuBase.IvedimasIFaila(CRezI);
        }
        else
           ShowMessage ("Neteisingi duomenys");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::IeskotiClick(TObject *Sender)
{
        ListBox4->Clear();
        if (ComboBox2->ItemIndex == CNumeris)
        {
                if (SkaitmenuAtpazinimas(Edit1->Text.c_str()))
                {
                      int sk = StrToInt(Edit1->Text);
                      if (sk > DuomenuBase.elementu_kiekis || sk <= 0)
                      {
                          ShowMessage("Nekvailiok");
                          return;
                      }
                      DuomenuBase.Rasti( sk, ListBox4);
                }
                else
                  ShowMessage ("Neteisingi duomenys");
        }
        else
        {
                DuomenuBase.Rasti(ComboBox2->ItemIndex, Edit1->Text, ListBox4);
        }
                DuomenuBase.IvedimasIFaila(CRezPa);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::SalintiClick(TObject *Sender)
{
        bool a = true;
        ListBox2->Clear();
        if (ComboBox3->ItemIndex == CNumeris)
        {
              if (SkaitmenuAtpazinimas(Edit2->Text.c_str()))
                {
                   a = true;
                   int sk = StrToInt(Edit2->Text);
                   if (sk > DuomenuBase.elementu_kiekis || sk <= 0)
                   {
                        ShowMessage("Nekvailiok");
                        return;
                   }
                   DuomenuBase.Salinti( sk );
                }
              else
                 {
                 ShowMessage ("Neteisingi duomenys");
                 a = false;
                 }
        }
        else
        {      if (a)
               DuomenuBase.Salinti(ComboBox3->ItemIndex, Edit2->Text );
        }
        if (a)
        DuomenuBase.Isvesti(ListBox2);
        DuomenuBase.IvedimasIFaila(CRezS);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Pabaiga1Click(TObject *Sender)
{
     Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::PakeistClick(TObject *Sender)
{
        ListBox1->Clear();
        DuomenuBase.Pakeisti(Edit3->Text, Edit4->Text, ListBox1);
         DuomenuBase.IvedimasIFaila(CRezPak);
}
//---------------------------------------------------------------------------
bool TForm1::SkaitmenuAtpazinimas(char A[])
{
   int n;
   int m = 0;
   n = strlen(A);
   for (int i = 0; i < n; i++)
      {
       for(int j = 0; j < 10; j++)
          if (TSkaitmenys[j] == A[i])
             m++;
      }
   if (n == m && strcmp (A, "") != 0)
      return true; // jei masyve n?ra jokiø simboliø, i?skyrus skai?ius, gr??inama "true"
   else
      return false;
}
//----------------------------------------------------------------------------