Лабы / ООП.Builder / Лабы / laba2 / SHOP / Unit2

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

#include <vcl.h>
#pragma hdrstop

#include "Shop.h"
#include "Unit2.h"
int pam;
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm2 *Form2;

//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
        : TForm(Owner)
{

}
//---------------------------------------------------------------------------


void __fastcall TForm2::Button2Click(TObject *Sender)
{
Button1->Enabled=false;
Edit1->Text="";
ComboBox1->Text="";
ComboBox1->Items->Clear();
Form1->Enabled=true;
Form2->Visible=false;
Form2->Enabled=false;
}
//---------------------------------------------------------------------------

void __fastcall TForm2::ComboBox1Change(TObject *Sender)
{
if (!flag)Edit1->Enabled=true;


}
//---------------------------------------------------------------------------
void __fastcall TForm2::FormActivate(TObject *Sender)
{
ComboBox1->Items->LoadFromFile("a:\\Textinf\\"+otdel+".txt");

}
//---------------------------------------------------------------------------
void __fastcall TForm2::Edit1Change(TObject *Sender)
{
Button1->Enabled=true;
ComboBox1->Enabled=false;
}
//---------------------------------------------------------------------------
void __fastcall TForm2::Button1Click(TObject *Sender)
{
int i=ComboBox1->Text.Pos("-")+1;
String ch;
while (ComboBox1->Text[i]!=' ') {ch=ch+ComboBox1->Text[i];i++;}
total=total+StrToInt(ch)*StrToInt(Edit1->Text);
Form1->Memo1->Lines->Add(ComboBox1->Text+' '+Edit1->Text+"шт.");
ComboBox1->Text="";
Edit1->Text="";
Button1->Enabled=false;
ComboBox1->Enabled=true;
if (Form1->Memo1->Lines->Strings[0]!="------------------------------------Ваш_чек----------------------------")Form1->Memo1->Lines->Add("------------------------------------Ваш_чек------------------");

}
//-------------------------------------------------------------------------------------------------