//--------------------------------------------------------------------------- #include #pragma hdrstop #include "Unit1.h" //--------------------------------------------------------------------------- #pragma package(smart_init) #pragma resource "*.dfm" TForm1 *Form1; //--------------------------------------------------------------------------- __fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner) { } //--------------------------------------------------------------------------- char *list; void __fastcall TForm1::FormCreate(TObject *Sender) { TStringList *list = new TStringList; //masyvas list->Add("L&M"); list->Add("Marlboro"); list->Add("LD"); } //--------------------------------------------------------------------------- void __fastcall TForm1::MaskEdit1Change(TObject *Sender) { float kaina; if( MaskEdit1 ) { if ( MaskEdit1 -> GetTextLen()) { if(( list& -> operator[] (0) == MaskEdit1->Text)) { MaskEdit2->Text = "Labas"; } } } } //---------------------------------------------------------------------------