TStringList* __fastcall GridItemsToStrings(TDBGrid* Grid, int start, int end) { // сохраняет строки из DBGrid в StringList начиная с start по end TStringList *sl = new TStringList; UnicodeString str; Grid->DataSource->DataSet->RecNo = start; Grid->DataSource->DataSet->DisableControls(); int s = start; try { while (s end && !Grid->DataSource->DataSet->Eof) { str = ""; for (int i=0; iGrid->DataSource->DataSet->Fields->Count; i++) str += Grid->DataSource->DataSet->Fields->Fields[i]->AsString() + "\t"; sl->Add(Trim(str)); Grid->DataSource->DataSet->Next(); s++; } } __finally { Grid->DataSource->DataSet->RecNo = start; Grid->DataSource->DataSet->EnableControls(); } return sl;}