//--------------------------------------------------------------------------- #include #pragma hdrstop #include "Cigarete.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- void __fastcall TForm1::MaskEdit1Change(TObject *Sender) { TStringList *list = new TStringList; //masyvas list->Add("L&M"); list->Add("Marlboro"); list->Add("LD"); float kaina; float rez; int i; if( MaskEdit1 ) { if ( MaskEdit1 -> GetTextLen() => 2) { if(( list->operator[] (0) == MaskEdit1->Text)) { kaina = 3.75; } else { ShowMessage ("Iveskite cigareciu pokelio pavadinima.."); } } } } } //---------------------------------------------------------------------------