inifile

[kadirkurtoglu]

Kod: Tümünü seç

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, INIFiles, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Edit5: TEdit;
    CheckBox1: TCheckBox;
    procedure KaydetClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  ayarlar : TIniFile;
  implementation

{$R *.dfm}

procedure TForm1.KaydetClick(Sender: TObject);
begin
    ayarlar := TINIFile.Create(ExtractFilePath(Application.EXEName) + 'ayarlar.ini');
    ayarlar.WriteString('Ayarlar', 'Edit1Text', Edit1.Text,);
    ayarlar.WriteString('Ayarlar', 'Edit2text', Edit2.Text,);
    ayarlar.WriteBool('ayarlar', 'cekbox', checkbox1.Checked);
    ayarlar.Free;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
    ayarlar := TINIFile.Create(ExtractFilePath(Application.EXEName) + 'ayarlar.ini');
    edit1.text := ayarlar.ReadString('Ayarlar', 'Edit1Text', '');
    edit2.text := ayarlar.ReadString('Ayarlar', 'Edit2Text', '');
    checkbox1.Checked := ayarlar.ReadBool('ayarlar', 'cekbox', checkbox1.Checked);
    ayarlar.Free;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    ayarlar := TINIFile.Create(ExtractFilePath(Application.EXEName) + 'ayarlar.ini');
    ayarlar.WriteString('Ayarlar', 'Edit1Text', Edit1.Text,);
    ayarlar.WriteString('Ayarlar', 'Edit2text', Edit2.Text,);
    ayarlar.WriteBool('ayarlar', 'cekbox', checkbox1.Checked);
    ayarlar.Free;
end;

end.