#include <vcl.h>
#pragma hdrstop
#include "Unit22.h"

#pragma package(smart_init)
#pragma resource "*.dfm"

TForm1 *Form1;

typedef struct
{
  float EgzaminInf;
  char *Nazwisko;
} TStudent; // nazwą tej struktury jest slowo TStudent

typedef TStudent *PStudent;
//---------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  PStudent Struktura;
  TList *MojaLista = new TList;
  // wypelnianie listy TList
  Struktura = new TStudent;
 // MojaLista->Add(Struktura);
  Struktura->EgzaminInf = 2.5;
  Struktura->Nazwisko = "Wacek Jankowski";
  MojaLista->Add(Struktura);
  Struktura = new TStudent;
  Struktura->EgzaminInf = 4.5;
  Struktura->Nazwisko = "Janek Wackowski";
  MojaLista->Add(Struktura);

  // pokazuje ostatni rekord
  Struktura = (PStudent) MojaLista->Last();
 //Struktura = (PStudent) MojaLista->First();
  LabeledEdit1->Text = Struktura->Nazwisko;
  LabeledEdit2->Text = FloatToStr(Struktura->EgzaminInf);

  for (int i = 0; i < MojaLista->Count; i++)
  {
    Struktura = (PStudent) MojaLista->Items[i];
    delete Struktura;
  }
  delete MojaLista;
}
//---------------------------------------------------------
