DBGrid

[nervniy]

Как сохранить размер колонок в DBGrid???

[Stilet]

Не проверял но:
Чтение:

procedure TForm1.FormCreate(Sender: TObject);
var i:TIniFile;e:integer;
begin
 i:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'ini.ini');
 for e:=0 to DBGrid1.Columns.Count-1 do
  DBGrid1.Columns[i].Width:=i.ReadInteger('columns',IntToStr(e),100);
 i.free;
end;

Запись:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var i:TIniFile;e:integer;
begin
 i:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'ini.ini');
 for e:=0 to DBGrid1.Columns.Count-1 do
  i.WriteInteger('columns',IntToStr(e),DBGrid1.Columns[i].Width);
 i.free;
end;

Пишешь все в INI файл - это удобно. ИНИ файл сохраняй рядом с программой

[pu4koff]

Есть еще такая штука: DBGrid.Columns.SaveToFile. Сохраняет порядок колонок, заголовки,... по поводу ширины вот не помню

[nervniy]

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

Не проверял но:
Чтение:

procedure TForm1.FormCreate(Sender: TObject);
var i:TIniFile;e:integer;
begin
 i:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'ini.ini');
 for e:=0 to DBGrid1.Columns.Count-1 do
  DBGrid1.Columns[e].Width:=i.ReadInteger('columns',IntToStr(e),100);
 i.free;
end;

Запись:

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
var i:TIniFile;e:integer;
begin
 i:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'ini.ini');
 for e:=0 to DBGrid1.Columns.Count-1 do
  i.WriteInteger('columns',IntToStr(e),DBGrid1.Columns[e].Width);
 i.free;
end;

Пишешь все в INI файл - это удобно. ИНИ файл сохраняй рядом с программой

Спасибо,все работает,только небольшие поправочки внести надо было...
А если на форме будет 2 dbgrid'a или больше,как тогда можно сохранить?

[Stilet]

А если на форме будет 2 dbgrid'a или больше,как тогда можно сохранить?

Почему бы нет?