Kod: Tümünü seç
[GenelAyarlar]
Password=sa123456
User ID=sa
AccessFILENAME=C:\deneme.mdb
vergi1=0
vergi2=1
vergi3=8
vergi4=18
Kod: Tümünü seç
Procedure TForm1.iniyaz;
var
INIDosya : TIniFile;
Begin
INIDosya := TIniFile.Create(ExtractFilePath(Application.EXEName) + 'ayarlar.ini');
INIDosya.WriteString('GenelAyarlarSinerji','Password',PasswordText);
INIDosya.WriteString('GenelAyarlarSinerji','User ID',UserNameText);
......
INIDosya.Free;
end;
Procedure TForm1.inioku;
Var
INIDosya : TIniFile;
Begin
INIDosya := TIniFile.Create(ExtractFilePath(Application.EXEName) + 'ayarlar.ini');
PasswordText := INIDosya.ReadString('GenelAyarlarSinerji','Password','');
UserNameText := INIDosya.ReadString('GenelAyarlarSinerji','User ID','');
......
end;