ART_43 Home Site

Procedure LoadGridCollumnsFromIni(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;
            DBGrid.Columns.Items[i].Width:=ini.ReadInteger(section,inttostr(i),200);
        end;
    ini.Destroy;
end;