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

#include <vcl.h>
#pragma hdrstop

#include "Lazejevas_Ind_4.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
Close();
delete [] A;
}
//---------------------------------------------------------------------------
void TForm1::Duomenys()
{
int i;
FILE *FD;
FD=fopen(Duomen, "r");
if (FD==NULL)
  {
  ShowMessage("Duomenø failas nerastas");
  }
fscanf(FD, "%d\n", &n);
if (!AtmintisSkirta())
  {
  ShowMessage("Atmintis neskirta");
  Close();
  }
else
  {
  i=0;
  while (!feof(FD)&&(i<n))
    {
    fscanf(FD, "%7c\n", &A[i].sk);
    fscanf(FD, "%11c\n", &A[i].ak);
    fscanf(FD, "%15c\n", &A[i].vardas);
    fscanf(FD, "%20c\n", &A[i].pavarde);
    fscanf(FD, "%1c\n", &A[i].kursas);
    fscanf(FD, "%6c\n", &A[i].sifras);
    i++;
    }
  }
fclose(FD);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Button1->Enabled=false;
Button2->Enabled=true;
Duomenys();
Tikrinti();
}
//---------------------------------------------------------------------------
void TForm1::Tikrinti()
{
int i, m, c=0;
AnsiString studk, asmk, vard, pavard, kurs, sifr;
Memo1->Lines->Add(" Studento kodas |   Asmens kodas    |         Vardas        |          Pavarde          |       Kursas     |       Grupës ðifras");
Memo1->Lines->Add("---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------");
for (i=0; i<n; i++)
  {
  for (m=0; m<n; m++)
    {
    if (((strcmp(A[i].pavarde, A[m].pavarde))==0)&&((strcmp(A[i].sifras, A[m].sifras))==0)&&(i!=m))
      {
      studk=A[i].sk;
      asmk=A[i].ak;
      vard=A[i].vardas;
      pavard=A[i].pavarde;
      kurs=A[i].kursas;
      sifr=A[i].sifras;
      Memo1->Lines->Add("      "+studk+"       |    "+asmk+"    |        "+vard+"|           "+pavard+"|          "+kurs+"          |            "+sifr);
      c++;
      break;
      }
    }
  }
if (c==0)
  {
  Memo1->Lines->Add("Studentø, besimokanèiø vienoje grupëje ir turinèius vienodas pavardes, nëra");
  }
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
Button2->Enabled=false;
FILE *FD;
int i, m, c=0;
FD=fopen(Rezultatai, "w");
fprintf(FD, " Studento kodas | Asmens kodas | Vardas          | Pavarde              | Kursas  | Grupës ðifras\n");
fprintf(FD, "-------------------------------------------------------------------------------------------------\n");
for (i=0; i<n; i++)
  {
  for (m=0; m<n; m++)
    {
    if (((strcmp(A[i].pavarde, A[m].pavarde))==0)&&((strcmp(A[i].sifras, A[m].sifras))==0)&&(i!=m))
      {
      fprintf(FD, "    ");
      fprintf(FD, A[i].sk);
      fprintf(FD, "     | ");
      fprintf(FD, A[i].ak);
      fprintf(FD, "  | ");
      fprintf(FD, A[i].vardas);
      fprintf(FD, " | ");
      fprintf(FD, A[i].pavarde);
      fprintf(FD, " |    ");
      fprintf(FD, A[i].kursas);
      fprintf(FD, "    |    ");
      fprintf(FD, A[i].sifras);
      fprintf(FD, "   | \n");
      c++;
      break;
      }
    }
  }
fprintf(FD, "-------------------------------------------------------------------------------------------------\n");
if (c==0)
  {
  fprintf(FD, "Studentø, besimokanèiø vienoje grupëje ir turinèius vienodas pavardes, nëra");
  fprintf(FD, "-------------------------------------------------------------------------------------------------\n");
  }
fclose(FD);
}
//---------------------------------------------------------------------------
bool TForm1::AtmintisSkirta()
{
try
  {
  A=new TStudentas [n];
  return true;
  }
catch(...)
  {
  ShowMessage("Atmintis neskirta");
  return false;
  }
}
//---------------------------------------------------------------------------