Создание собственного класса

#include <vcl.h>
#pragma hdrstop
#include "Unit1.h"
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
int sortfunc(const void* a, const void* b){
  return *(int*)a - *(int*)b;
}
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner){
 
  randomize();
  for(int i = 0; i < stG2->ColCount; i++){
    for(int j = 0; j < stG2->RowCount; j++){
      stG1->Cells[i][j] = random(100);
    }
  }}
//---------------------------------------------------------------------------
void __fastcall TForm1::LoadClick(TObject *Sender)
{
String path= GetCurrentDir();
TIniFile *Ini=new TIniFile (path+ "\\MyIni");
Ini ->WriteInteger ("Form","Left", Left);
delete Ini;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::BitBtn1Click(TObject *Sender)
{ int a[5][5], i, j, b;
for (int i=0;i<5;i++)
{
  for(int j=0;j<5;j++)
  {
    a[i][j] = StrToInt(stG1->Cells[i][j]);
  }
}
for (int i=0;i<2;i++)
{
  for(int j=0;j<2;j++)
  {
    b=a[i][4-j];
    a[i][4-j]=a[4-j][i];
    a[4-j][i]=b;
  }
}
for (int i=0;i<5;i++)
{
  for(int j=0;j<5;j++)
  {
    stG2->Cells[i][j] = a[i][j];
  }
}
 
 
}
//---------------------------------------------------------------------------

class TTech{
private:
  TStringList* NarStruct;
  TStringList* SendData;
  AnsiString __fastcall GetValue(AnsiString Index){
    return NarStruct->Strings[ListF->IndexOf(Index)];
  }
  void __fastcall SetValue(AnsiString Index, AnsiString Value){
    NarStruct->Strings[ListF->IndexOf(Index)] = Value;
  }
  AnsiString __fastcall GetValue(int Index){
    return SendData->Strings[Index];
  }
  void __fastcall SetValue(int Index, AnsiString Value){
    if(ConvertName(NarStruct->Strings[Index].Trim()) != ConvertName(Value.Trim()))
      SendData->Add(ListF->Strings[Index] + "‡" + Value);
  }
public:
  AnsiString RowId, Cnt;
  int Len;
  TStringList* ListF;
  __fastcall TTech(TStringList* Lst){
    SendData = new TStringList();
    NarStruct = new TStringList();
    ListF = new TStringList();
    ListF->Clear();
    SendData->Clear();
    NarStruct->Clear();
    for(int i = 0; i < Lst->Count; i++){
      if(Lst->Strings[i].UpperCase() == "ROWID"
      || Lst->Strings[i].UpperCase() == "RID"
      || Lst->Strings[i].UpperCase() == "CNT") continue;
      ListF->Add(Lst->Strings[i]);
      NarStruct->Add("");
    }
    Len = ListF->Count;
    for(int i = 0; i < Len; i++) Data[ListF->Strings[i]] = "";
    RowId = "", Cnt = "000000000";
  }
  void __fastcall SendClear(){
    SendData->Clear();
  }
  void __fastcall Clear(){
    SendData->Clear();
    for(int i = 0; i < Len; i++) Data[ListF->Strings[i]] = "";
    RowId = "", Cnt = "000000000";
  }
  AnsiString __fastcall Load(){
    AnsiString Res = RowId + "†" + Cnt + "†" + IntToStr(SendData->Count) + "†";
    for(int i = 0; i < SendData->Count; i++) Res += SData[i] + "†";
    return Res;
  }
  __property AnsiString Data[AnsiString Index] = {read = GetValue, write = SetValue};
  __property AnsiString SData[int Index] = {read = GetValue, write = SetValue};
  __fastcall ~TTech(){
    delete ListF;
    delete NarStruct;
    delete SendData;
  }
};

class myClass
{
  private int mA;
  private string mB;
 
  public myClass(int a, string b)
  {
    mA = a;
    mB = b;
  }
}

#ifndef Unit1H
#define Unit1H
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <Buttons.hpp>
#include <Grids.hpp>
#include <IniFiles.hpp>
//---------------------------------------------------------------------------
class myClass TForm1 : public TForm
{
__published:    // IDE-managed Components
        TStringGrid *stG1;
        TStringGrid *stG2;
        TBitBtn *BitBtn1;
        void __fastcall LoadClick(TObject *Sender);
        void __fastcall BitBtn1Click(TObject *Sender);
private: int a[5][5], i, j, b;    // User declarations
public:      myClass(int a[5][5], i, j, b)
{b=a[i][4-j];
    a[i][4-j]=a[4-j][i];
    a[4-j][i]=b;}
}// User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif