void __fastcall TFrame_JZajav::sgGZajavSelectCell(TObject *Sender, int ACol,
int ARow, bool &CanSelect)
{
KOD_Z=StrToInt(sgGZajav->Cells[1][ARow]);
frZaiavka->Frame_Zajavka1->edNomDem->Text=KOD_Z;
KOD_STAT=StrToInt(dmOne->Val1_po_Val2("DEMAND_STATUS","KOD","NAIM",sgGZajav->Cells[10][ARow]));
}
Очистка StrinGrid
1) Сначало получаю значение из ячейки
Код:
2)Далее мне нужно перейти на вкладку, и первым делом почистить StringGrid,
Код:
void __fastcall TdmOne::ClearGrid(TStringGrid *sgCl)
{
int j;
for (j = 0; j<sgCl->ColCount; j++) sgCl->Cols[j]->Clear();
sgCl->ColCount=2;
sgCl->RowCount=2;
sgCl->RowHeights[0]=sgCl->DefaultRowHeight;
sgCl->ColWidths[0]=sgCl->DefaultColWidth;
}
{
int j;
for (j = 0; j<sgCl->ColCount; j++) sgCl->Cols[j]->Clear();
sgCl->ColCount=2;
sgCl->RowCount=2;
sgCl->RowHeights[0]=sgCl->DefaultRowHeight;
sgCl->ColWidths[0]=sgCl->DefaultColWidth;
}
а как только становлюсь на
Код:
for (j = 0; j<sgCl->ColCount; j++) sgCl->Cols[j]->Clear();
выдает ошибку Path sourse file: grids pas