//Допустим, надо изменить текст ячейки 3ей колонки 3ей строки if (!TRGrid1->Cells[3][3]->Data) //Если свойство Data ещё не проинициализированно{ TRGrid1->Cells[3][3]->Data = new TCellText; } TCellText *CellText = (TCellText *)TRGrid1->Cells[3][3]->Data; if (CellText->CellText != "Новый текст"){ CellText->CellText = "Новый текст"; //Изменяем текст ячейки TRGrid1->InvalidateCell(3, 3); //Обновляем содержимое ячейки}
//---------------------------------------------------------------------------void __fastcall TForm1::Button2Click(TObject *Sender){ if (!RGrid1->Cells[3][3]->Data) //Если свойство Data ещё не проинициализированно { RGrid1->Cells[3][3]->Data = new TCellText; } TCellText *CellText = (TCellText *)RGrid1->Cells[3][3]->Data; if (CellText->CellText != "Новый текст") { CellText->CellText = "Новый текст"; //Изменяем текст ячейки RGrid1->InvalidateCell(3, 3); //Обновляем содержимое ячейки }}//---------------------------------------------------------------------------