Приветствую всех обитателей форума.
У меня возник вопрос: я хочу менять число отображаемых столбцов в базе данных, так чтобы пользователь
вводил число столбцов и в DBGrid отображалось именно то колличество.
Следующий банальный код DBGrid1.FieldCount:=StrToInt(col);
приводит к ошибке: Cannot assign to a read-only property. Как можно обойти эту ошибку? Спасибо.

Ты знаешь какие у тебя есть стоблцы =>
Подключаем Query

Код

const FieldsName: array [1..3] of string = ('as', 'df', 'gh'); procedure TForm1.SetCol(c:integer); var i:integer; s:string; begin if (c > 0) and (c < 4)  then   begin    s:='';    for i:=1 to c do     s:=s + FieldsName[i] + ',';    Delete(s, Length(s), 1);    with Query1 do     begin      Close;      SQl.Text:='Select ' + s + ' from Table1;';      Open         end    end   else    ShowMessage('') end;

Это сообщение отредактировал(а) Pakshin A. S. - 9.10.2004, 19:14

А нельзя ли сделать это по средствам DBGrid-а?

Наверное, нет...
Добавлено @ 11:46
А чем тебе этот способ не нравится?

У DBGrid'а есть Columns - ими можешь попробовать так сделать...

DBGrid1.Columns.Count - не подхоит, но можно попробовать делать так:

Код

for i:=DBGrid1.Columns.Count-1 downto ColC+1 do DBGrid1.Columns.Delete(i); (*ColC - нужное количество колонок*)

Спасибо за ответы. 'Pakshin A. S просто я не много работал с Query
и еще не до конца разобрался с принципами работы.
Тот метод не фурычит.
for i:=DBGrid1.Columns.Count-1 downto ColC+1 do
DBGrid1.Columns.Delete(i);
Он просто не чего не делает, хотя программа работает.

=> DBGrid не дает возможности изменения...

Не работает, т.к. в Columns'ах у вас ничего нет.
Вначале добавьте туда столбцы для отображения всех полей.
Для этого:
1) в проекте прямо в Delphi у Table'а делаем Active = True, то бишь открываем таблицу, чтобы она отобразилась в DBGrid'е
2) на форме два раза тычем по DBGrid'у или же у свойства DBGrid1.Columns жмём "..." (троеточие)
3) появится окошко; жмите правую кнопку, и там выберите "Add All Fields" - в этом окне должен появится список всех полей таблицы
4) далее можете Table закрыть (Active = False)

Теперь, если надо, чтобы не отображалось какое-то поле, то опять два раза тыкайте по DBGrid'у, и выберите нужный столбец, и:
1) либо удалите его (кнопка Del)
2) либо скройте его (свойство Visible)

Если нужно скрывать или показывать столбцы во время работы приложения, то сделайте п.п.1-4, и в нужном вам месте напишите:

Код

DBGrid1.Columns[1].Visible := False;

Это скроет второй столбец. Аналогично со всеми другими столбцами...

WOW! Век живи - век учись...
А мы то

Спасибо.