[pesi]

подскажите в чем проблемма, сохраняю ширину колонки 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; 

Admin: Пользуемся тегами!!

и при компиляции выскакиваел ошибка
Безымянный.JPG

[Burka]

Columns[1].width
вот здесь ошибка индекс не верный, или где нибудь еще, смысл в том что где то не правильный индекс

[pesi]

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, учту ваше замечание!!!