Lista

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

#include <vcl.h>

#pragma hdrstop

#include "Unit1.h"

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

#pragma package(smart_init)

#pragma resource "*.dfm"

TForm1 *Form1;

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

__fastcall TForm1::TForm1(TComponent* Owner)

: TForm(Owner)

{

}

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

void __fastcall TForm1::Button1Click(TObject *Sender)

{

if (Edit1->Text=="") {} else ListBox1->Items->Add(Edit1->Text);

Edit1->Text="";

Edit1->SetFocus();

}

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

void __fastcall TForm1::Button2Click(TObject *Sender)

{

ListBox1->Items->Delete(ListBox1->Items->Count-1);

}

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

void __fastcall TForm1::Button3Click(TObject *Sender)

{

ListBox1->Items->Clear();

}

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

void __fastcall TForm1::Zakocz1Click(TObject *Sender)

{

Form1->Close();

}

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

void __fastcall TForm1::Zapisz1Click(TObject *Sender)

{

if (SaveDialog1->Execute())

ListBox1->Items->SaveToFile(SaveDialog1->FileName);

}

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

void __fastcall TForm1::Otwrz1Click(TObject *Sender)

{

if (OpenDialog1->Execute())

ListBox1->Items->LoadFromFile(OpenDialog1->FileName);

}

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