|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
||||
|
||||
ширина колонок DBGridEh в INI файл
подскажите в чем проблемма, сохраняю ширину колонки DBGridEh в INI файл вот код//
Код:
procedure TForm3.FormDestroy(Sender: TObject); var Ini: Tinifile; begin Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'MyIni.ini'); Ini.WriteInteger('options', 'Width', DBGridEh1.Columns[1].width); Ini.Free; end; procedure TForm3.FormCreate(Sender: TObject); var Ini: Tinifile; begin Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'MyIni.ini'); DBGridEh1.Columns[1].width:=ini.ReadInteger('options', 'width',60 ); Ini.Free; end; и при компиляции выскакиваел ошибка Безымянный.JPG Последний раз редактировалось Admin, 07.12.2008 в 21:01. |
#2
|
|||
|
|||
Columns[1].width
вот здесь ошибка индекс не верный, или где нибудь еще, смысл в том что где то не правильный индекс |
#3
|
||||
|
||||
Burka, спасибо за ответ все сделал. DBGridEh у меня лежал на главной форме и после добавления кода, делфи выдавал ошибку. Решил проверить код на другой форме. Добавил форму, бросил DBGridEh и все заработало. Тогда переделал код для главной формы на такой//
Код:
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction); var Ini: Tinifile; begin Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'MyIni.ini'); Ini.WriteInteger('options' , 'Width', DBGridEh1.Columns[1].width); Ini.Free; end; procedure TForm1.FormActivate(Sender: TObject); var Ini: Tinifile; begin Ini:=TiniFile.Create(extractfilepath(paramstr(0))+'MyIni.ini'); DBGridEh1.Columns[1].width:=ini.ReadInteger(' options ', 'width',60 ); Ini.Free; end; Admin, учту ваше замечание!!! |