Лабораторные работы / ЛЗ1 / Программа / Unit6

//---------------------------------------------------------------------------
//Поиск пользователя
#include <vcl.h>
#pragma hdrstop

#include "Unit6.h"
#include "Unit7.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm6 *Form6;
extern int Found;
//---------------------------------------------------------------------------
__fastcall TForm6::TForm6(TComponent* Owner)
        : TForm(Owner)
{
  Form6->StrGr1->Cells[0][0] = "Наименование автомобиля";
  Form6->StrGr1->Cells[1][0] = "Марка автомобиля";
  Form6->StrGr1->Cells[2][0] = "Потребление бензина";
  Form6->StrGr1->Cells[3][0] = "Максимальная скорость";
}
//---------------------------------------------------------------------------

void __fastcall TForm6::Button1Click(TObject *Sender)
{
  int i;
  for (i = 1; i <= Found; i++)
  {
    Form6->StrGr1->Cells[0][i] = "";
    Form6->StrGr1->Cells[1][i] = "";
    Form6->StrGr1->Cells[2][i] = "";
    Form6->StrGr1->Cells[3][i] = "";
  }
  Form6->Close();
  Form7->Edit1->Text = "";
  Form7->Edit2->Text = "";
  Form7->Edit3->Text = "";
  Form7->Edit4->Text = "";  
}
//---------------------------------------------------------------------------