ART_43 Home Site

Procedure SaveGridCollumnsToIni(DBGrid:TDBGrid; INIFile:string; section:string);
var ini:TIniFile;
    i:integer;
begin
    ini:=TIniFile.Create(INIFile);
    i:=DBGrid.Columns.Count;
    while i>0 do
        begin
            i:=i-1;
            ini.WriteInteger(section,inttostr(i),DBGrid.Columns.Items[i].Width);
        end;
    ini.Destroy;
end;