ayarlar

[vedatkaba]

Hepinize merhaba arkadaşlar benim sorum şu şekilde.
Mesala Bir tane ayarlar diye bir formumuz var ve bu formda checkboxlar raidiobutton lar falan var.İlk etapta hiç biri işaretli değil kullanıcı program ayarlarını değiştiricek ve program kullanıcı ayarları değiştirdiği zaman o ayarlar etkin olacak.ve bu ayarları saklayacak.Diğer bir açılışta, program bu ayarlarda naçılacak. :

[mussimsek]

evet, soru/sorun nedir?

Böyle birşey yapmak istiyorsanız eğer ayarları bir yere kaydetmen lazım. Eğer bir veritabanı uygulaması ise en uygunu bir tablo açıp, oraya sakla, gerektikçe de ordan oku.

Kolay gelsin.

[mcihad]

IniFiles unitini ekle
TIniFile tipinde değişken tanımla

Açılışta ini dosyada okutursun

registry hakkında bişeyler oku oraya yazdır

yada veritabanında tut

en iyisi sen neyin ne olduğunu önce iyice öğren

[mege]

dün ayak üstü yaptığım bi programdan alıntı ya isim bile aynı tesadüfe bak

Kod: Tümünü seç

procedure TSetting.FormShow(Sender: TObject);
var Reg:TRegistry;
    status:Boolean;
begin
 Reg:=TRegistry.Create;
try
 status:=Reg.OpenKey('Software\ProgOrnek\Setting\',False);
 if status then begin
   SpinEdit1.Value := Reg.ReadInteger('Top');
   SpinEdit2.Value := Reg.ReadInteger('Left');
   SpinEdit3.Value := Reg.ReadInteger('Height');
   SpinEdit4.Value := Reg.ReadInteger('Width');
   Edit1.Text := Reg.ReadString('Program1');
   Edit2.Text := Reg.ReadString('Program2');
 end else begin
   Edit1.Text := 'DEfaultEdit1Text';
   Edit2.Text := 'DEfaultEdit2Text';
 end;
finally
 Reg.Free;
end;
end; {of FormSHOW}

procedure TSetting.BitBtn2Click(Sender: TObject);
begin
close; // Bu iptal butonu
end;


// buda tamam butonu
procedure TSetting.BitBtn1Click(Sender: TObject);
var Reg:TRegistry;
begin
 Reg:=TRegistry.Create;
try
 Reg.OpenKey('Software\ProgOrnek\Setting\',True);
 Reg.WriteInteger('Top',SpinEdit1.Value);
 Reg.WriteInteger('Left',SpinEdit2.Value);
 Reg.WriteInteger('Height',SpinEdit3.Value);
 Reg.WriteInteger('Width',SpinEdit4.Value);

 Reg.WriteString('Program1',Edit1.Text);
 Reg.WriteString('Program2',Edit2.Text);
finally
 Reg.Free;
end;
Close;
end;

[ASE]

Benim bu konuda yaptıklarımı söyleyeyim hemen.
Programın genel çalışmasıyla ilgili ayarları registry de tutuyorum. Ancak kullanıcı parametreleri, döviz kullan kullanma gibi ayarları veri tabanında logical alan da tutuyorum
ini file bu konuda daha az sağlıklı gibi geliyor.
kolay gelsin