Создание полей
    TClientDataSet* DataSet->Active = false;
    DataSet->FieldDefs->Clear();
    DataSet->Fields->Clear();
    TFieldDef *pDef = DataSet->FieldDefs->AddFieldDef();
    pDef->DataType = ftString;
    pDef->Name = "Field1";
    pDef->Size = 120;
    pDef = DataSet->FieldDefs->AddFieldDef();
    pDef->DataType = ftInteger;
    pDef->Name = "Field2";
    DataSet->CreateDataSet();
    DataSet->Active = true;
Добавление записей
    DataSet->Append();
    DataSet->FieldByName("Field1")->AsString = "djdjdjdj";
    DataSet->FieldByName("Field2")->AsInteger = 1; 
    ....
    DataSet->Post();

Вячеслав Ермолаев 2:5020/175.2

Предыдущий вопрос   |    |   Следующий вопрос

источник            by jenyok