Вопрос: События, классы CBuilder

[Антон (LogRus)]

Вот вам типичный примет приработе с БД!

Код:

 
  tmpfield=new TBCDField(Form1->ADOQuery1);
  tmpfield->FieldName="ProductSumm};
  tmpfield->FieldKind=fkCalculated;
  tmpfield->DataSet=((TADOQuery *)tmpfield->Owner);
  tmpfield->Name=tmpfield->Owner->Name+tmpfield->FieldName;
  tmpfield->DisplayLabel="Сумма};
  tmpfield->DisplayWidth=15;

  Form1->ADOQuery1->OnCalcFields=SummCalcFields;

А вот метод SummCalcFields:

Код:

void __fastcall TForm1::SummCalcFields(TDataSet *DataSet)
{
  int count=DataSet->FieldByName("ProductStore")->AsInteger;
  float price=DataSet->FieldByName("ProductPrice")->AsFloat;

  DataSet->FieldByName("ProductSumm")->AsFloat=count*price;
}

[Калессин]

не народ, вы так еще долго спорить будете:)
пишу код:
class TExample
{
TEdit *Edit0;

void Init(TEdit *E0);
void Modification(void);
...
...
}
void TExample::Init(TEdit *E0)
{
TNotifyEvent PtrFunc;
PtrFunc = TNotifyEvent (&this->Modification);
Edit0 = E0;
Edit0->OnClick = PtrFunc;
}
...

где-то в программе:
TExample *Example0;
Example0 = new (TExample);
Example0->Init(Edit1);

[sss]

Короче та же тема что и "как получить метод виртуального класса в VC".
Посмотрите, я тут с Borland компиляторов перелезть пытаюсь. Определение
of object нет в стандартном С++

[Lex]

не народ, вы так еще долго спорить будете

Уже давно никто не спорит. Решение было дано почти сразу, объяснение, почему оно работает, чуть позже.

Короче та же тема что и "как получить метод виртуального класса в VC".
Посмотрите, я тут с Borland компиляторов перелезть пытаюсь. Определение
of object нет в стандартном С++

Не совсем. Здесь используется вполне стандартные вещи из С++(может быть и С, но голый С я давно не пользую, поэтому утверждать не буду)