SELECT скрывать и отображать колонки! Резултат на второе форме

[Stilet]

ini.WriteString('Poisk','Edit', CheckListBox1.Items.GetText );

Нет. Не так... Я уже сказал тебе - пробелы в ИНИ файлах не приветствуются. Ты меня не услышал и значит тебя не спасет ничего.
Делай лучше так:

//Запись 
ini.WriteString('Poisk','Edit', CheckListBox1.Items.CommaText);
//Чтение
CheckListBox1.Items.CommaText:=ini.ReadString('Poisk','Edit', '');

[Sciv]

Забирай. На примере таблицы поиска сделал тебе сохранение и чтение ini-файла

[xxbesoxx]

Буду смотреть исходный код . Огромное вам спасибо . Работает проверил

[xxbesoxx]

Прекрасная страна и хорошие люди = это "Россия" спасибо за внимание, спасибо за человеческих помочь ! спасибо всех! вы мне очень помогли и даже больше {спасали жизнь} дай вам бог здоровья счастья , радости и удачи

[Sciv]

Прекрасная страна и хорошие люди = это "Россия" спасибо за внимание, спасибо за человеческих помочь !

Душевненько...

Пришел бы ты сюда без кода - затроллили бы к чертям

[xxbesoxx]

Sciv СПАСИБО ВАМ ОГРОМНОЕ

[xxbesoxx]

Сообщение от Sciv

Душевненько...

Пришел бы ты сюда без кода - затроллили бы к чертям

Прошу прошения,

0 = скрыть и 1= отображать это да очень хороши стиль, ВОПРОС. Можно так реализовать что программа после открытия и закрытия, до пустим пользователь пришел второе день , он открыл программу и хочет переключить на других полей, Программа не сохраняет CheckListBox галочки , Можно так реализовать что после перезагрузки это не потерялся ?

[Sciv]

Можно. Надо на событие OnShow формы с чекбоксами навешать такой-же код чтения из ini, как и на форму с таблицей поиска. Только вместо Visible полей поиска менять Checked чекбоксов.

procedure TSetingform.FormShow(Sender: TObject);
var
  i: integer;
  st: string;
begin
  st:=Main.Ini.ReadString('INTERFACE','SEARCH','');
  for i:=0 to CheckListBox1.Count - 1 do
  if st[i+1]='1' then CheckListBox1.Checked[i]:=true
  else CheckListBox1.Checked[i]:=false;
end;

Только не забудьте само событие создать и привязать к форме, а то бывает, тупо скопируют код и жалуются, Что не работает - потому что в dfm привязка не прописана.

[rdama]

Sciv, а зачем повторно читать ини файл?
Может перечитать текущие настройки грида? Они же уже должны быть применены.
Тем более, что все равно список полей строить.

[Sciv]

Sciv, а зачем повторно читать ини файл?
Может перечитать текущие настройки грида? Они же уже должны быть применены.
Тем более, что все равно список полей строить.

Согласен, так проще.

Тем более, что все равно список полей строить.

Не, список полей там так строится:

  Module.PoiskQuery.GetFieldNames(Setingform.CheckListBox1.Items);

Так что переделаю я код.

Топикстартер, отбой прошлому коду, берем новый (эта процедура у тебя в проге уже есть):

procedure TPoiskForm.FormShow(Sender: TObject);
var i: integer;
    st: string;
begin
  st:=Main.Ini.ReadString('INTERFACE','SEARCH','');
  for i:=0 to PoiskForm.DBGrid1.Columns.Count-1 do begin
    if st[i+1]='1' then PoiskForm.DBGrid1.Columns[i].Visible := true
    else PoiskForm.DBGrid1.Columns[i].Visible := false;
    Setingform.CheckListBox1.Checked[i]:=PoiskForm.DBGrid1.Columns[i].Visible;
  end;
end;

Синим - то что добавить в код.

А вообще, если по-правильному - надо все настройки считывать только один раз, в начале запуска программы. А не каждый раз при отображении формы в инишку лазить. То есть засунуть все это в OnShow основной формы программы, а не PoiskForm