| Код |
AnsiString asDocId = qryDocs->FieldByName("FN_DOC_ID")->Value;
TStringList *pslSelectedRows = new TStringList();
TBookmark SavePlace = dbgrdGrid->DataSource->DataSet->GetBookmark();
dbgrdGrid->DataSource->DataSet->First();
dbgrdGrid->DataSource->DataSet->DisableControls();
try {
while (! dbgrdGrid->DataSource->DataSet->Eof) {
if (dbgrdGrid->SelectedRows->CurrentRowSelected) {
//DEBUG(dbgrdGrid->DataSource->DataSet->FieldByName("FN_ID")->Value);
pslSelectedRows->Add(dbgrdGrid->DataSource->DataSet->FieldByName("FN_ID")->Value);
}
dbgrdGrid->DataSource->DataSet->Next();
}
dbgrdGrid->DataSource->DataSet->GotoBookmark(SavePlace);
dbgrdGrid->DataSource->DataSet->FreeBookmark(SavePlace);
} __finally {
dbgrdGrid->DataSource->DataSet->EnableControls();
}
//DEBUG(pslSelectedRows->Text);
|
|