demenev | Дата: Вторник, 05.01.2010, 13:40 | Сообщение # 1 |
Группа: Удаленные
| TDataSet *l_dataset = DBGrid1->DataSource->DataSet; DBGrid1->SelectedIndex = 0; AnsiString l_string; for (int i = 0; i < l_dataset->RecordCount; i++) { l_string = ""; for (int f = 0; f < l_dataset->FieldCount; f++) { if ( f > 0 ) l_string+= ", "; l_string+= l_dataset->Fields->Fields[f]->AsString; } // Теперь в "s" - список полей через запятую. ListBox1->Items->Add(l_string); l_dataset->Next(); }
|
|
| |