ini hatasi

[rahim_azeri]

Merhaba arkadashlar...! Ben Form olculerini(yani form.Height,Form.width) ini fayla yaziyorum...Icerisinde 8 column-lu Dbgrid olan Form-u 2 kes acirim ve 2-ci Form -baqlananda hata olusuyor,amma icerisinde 5 column-lu Dbgrid olan Forum-u 2-3 kes aciyorum baqlayanda hata olmuyor...Lutfen yardim edin..! Onceden Tesekkurler...!

[Lost Soul]

ini dosyasını açarken ve kaydederken kullandığınız kodları ve formların hangi olaylarına koyduğunuz yazabilir misiniz.

[rahim_azeri]

DBGrid-olmayan butun Formlar cok iyi calisiyor ayni Form 4-5 kez aciliyor baqlaniyor hec bir hata yok.Amma DBGrid-li formlar 4-5 kez acilir 5,4,3,v2 -ci formlar normal baqlanir amma sonuncu form baqlanalda hata cikiyor.
Kodlarim bu arkadash:

Kod: Tümünü seç

uses IniFiles;
. . .
var
inifile:TIniFile;
. . .

procedure Tfrm_satilanMallar.FormCreate(Sender: TObject);
begin
  iniFile:=TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini'));
                  try
        rb_nd.Checked:=inifile.ReadBool('satilanMallar','rb_ndCheck',rb_nd.Checked);
        rb_ns.Checked:=inifile.ReadBool('satilanMallar','rb_nsCheck',rb_ns.Checked);
        rb_mk.Checked:=inifile.ReadBool('satilanMallar','rb_mkCheck',rb_mk.Checked);
        rb_ma.Checked:=inifile.ReadBool('satilanMallar','rb_maCheck',rb_ma.Checked);
         Check_qb.Checked:=inifile.ReadBool('satilanMallar','rb_satilanMallarCheck',Check_qb.Checked);
         cb_qai.Checked:=inifile.ReadBool('satilanMallar','cb_qaiCheck', cb_qai.Checked);
          frm_satilanMallar.Left:=inifile.readInteger('satilanMallar','Left',frm_satilanMallar.Left);
          frm_satilanMallar.Top:=inifile.readInteger('satilanMallar','Top',frm_satilanMallar.Top);
          frm_satilanMallar.Height:=inifile.readInteger('satilanMallar','Height',frm_satilanMallar.Height);
          frm_satilanMallar.Width:=inifile.readInteger('satilanMallar','Width',frm_satilanMallar.Width);
           frm_satilanMallar.dbg_sat.Columns.Items[0].Width:=inifile.readInteger('satilanMallar','WidthCol0',frm_satilanMallar.dbg_sat.Columns.Items[0].Width);
          frm_satilanMallar.dbg_sat.Columns.Items[1].Width:=inifile.readInteger('satilanMallar','WidthCol1',frm_satilanMallar.dbg_sat.Columns.Items[1].Width);
          frm_satilanMallar.dbg_sat.Columns.Items[2].Width:=inifile.readInteger('satilanMallar','WidthCol2',frm_satilanMallar.dbg_sat.Columns.Items[2].Width);
          frm_satilanMallar.dbg_sat.Columns.Items[3].Width:=inifile.readInteger('satilanMallar','WidthCol3',frm_satilanMallar.dbg_sat.Columns.Items[3].Width);
          frm_satilanMallar.dbg_sat.Columns.Items[4].Width:=inifile.readInteger('satilanMallar','WidthCol4',frm_satilanMallar.dbg_sat.Columns.Items[4].Width);
          frm_satilanMallar.dbg_sat.Columns.Items[5].Width:=inifile.readInteger('satilanMallar','WidthCol5',frm_satilanMallar.dbg_sat.Columns.Items[5].Width);
          frm_satilanMallar.dbg_sat.Columns.Items[6].Width:=inifile.readInteger('satilanMallar','WidthCol6',frm_satilanMallar.dbg_sat.Columns.Items[6].Width);
         frm_satilanMallar.dbg_sat.Columns.Items[7].Width:=inifile.readInteger('satilanMallar','WidthCol7',frm_satilanMallar.dbg_sat.Columns.Items[7].Width);
          frm_satilanMallar.dbg_sat.Columns.Items[8].Width:=inifile.readInteger('satilanMallar','WidthCol8',frm_satilanMallar.dbg_sat.Columns.Items[8].Width);

                  finally
                    inifile.Free;
                  end;

end;



procedure Tfrm_satilanMallar.FormClose(Sender: TObject; var Action: TCloseAction);       //on close
begin
   
                  iniFile:=TIniFile.Create(ChangeFileExt(Application.ExeName,'.ini'));
                  try
          inifile.WriteBool('satilanMallar','cb_qaiCheck',cb_qai.Checked);
          inifile.WriteBool('satilanMallar','rb_satilanMallarCheck',Check_qb.Checked);
          inifile.WriteBool('satilanMallar','rb_mkCheck',rb_mk.Checked);
          inifile.WriteBool('satilanMallar','rb_maCheck',rb_ma.Checked);
          inifile.WriteBool('satilanMallar','rb_ndCheck',rb_nd.Checked);
          inifile.WriteBool('satilanMallar','rb_nsCheck',rb_ns.Checked);
          inifile.WriteInteger('satilanMallar','Left',frm_satilanMallar.Left);
          inifile.WriteInteger('satilanMallar','Top',frm_satilanMallar.Top);
          inifile.WriteInteger('satilanMallar','Height',frm_satilanMallar.Height);
          inifile.WriteInteger('satilanMallar','Width',frm_satilanMallar.Width);
          inifile.WriteInteger('satilanMallar','WidthCol0',frm_satilanMallar.dbg_sat.Columns.Items[0].Width);
          inifile.WriteInteger('satilanMallar','WidthCol1',frm_satilanMallar.dbg_sat.Columns.Items[1].Width);
          inifile.WriteInteger('satilanMallar','WidthCol2',frm_satilanMallar.dbg_sat.Columns.Items[2].Width);
          inifile.WriteInteger('satilanMallar','WidthCol3',frm_satilanMallar.dbg_sat.Columns.Items[3].Width);
          inifile.WriteInteger('satilanMallar','WidthCol4',frm_satilanMallar.dbg_sat.Columns.Items[4].Width);
          inifile.WriteInteger('satilanMallar','WidthCol5',frm_satilanMallar.dbg_sat.Columns.Items[5].Width);
          inifile.WriteInteger('satilanMallar','WidthCol6',frm_satilanMallar.dbg_sat.Columns.Items[6].Width);
          inifile.WriteInteger('satilanMallar','WidthCol7',frm_satilanMallar.dbg_sat.Columns.Items[7].Width);
          inifile.WriteInteger('satilanMallar','WidthCol8',frm_satilanMallar.dbg_sat.Columns.Items[8].Width);

                  finally
                    inifile.Free;
                  end;


end;

[aslangeri]

s.a.
peki formu nasıl create ediyorsun.

http://delphiturkiye.com/forum/viewtopi ... =2&t=19387

Kod: Tümünü seç

frm_satilanMallar.Left:=........ yerine
self.left:=..............

şeklinde deniyebilirsin.
kolay gelsin.

[rahim_azeri]

ALLAH SIZDEM MIN RAZI OLSUN ARKADASHLAR...!