• Latest

    Wednesday, February 3, 2016

    Delphi Tutorial work with INI files

    Delphi Tutorial work with INI files




    In this lesson you can learn how to work with INI files in Delphi.

    You can learn how to save settings in application, like window position and size, 
    controls position and properties etc.

    Here is video with all steps :


    Here is also code used in this video :

    unit Unit1;

    interface

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

    type
      TForm1 = class(TForm)
        Button1: TButton;
        Button2: TButton;
        Button3: TButton;
        Button4: TButton;
        Button5: TButton;
        Button6: TButton;
        Button7: TButton;
        Panel1: TPanel;
        Edit1: TEdit;
        Button8: TButton;
        CheckBox1: TCheckBox;
        procedure Button7Click(Sender: TObject);
        procedure FormCreate(Sender: TObject);
        procedure Button6Click(Sender: TObject);
        procedure Button5Click(Sender: TObject);
        procedure Button1Click(Sender: TObject);
        procedure Button2Click(Sender: TObject);
        procedure Button3Click(Sender: TObject);
        procedure Button4Click(Sender: TObject);
        procedure Button8Click(Sender: TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;

    var
      Form1: TForm1;
      MyINI:TMemIniFile;

    implementation

    {$R *.dfm}

    procedure TForm1.Button1Click(Sender: TObject);
    begin
    Panel1.top:=Panel1.Top-10;
    end;

    procedure TForm1.Button2Click(Sender: TObject);
    begin
    Panel1.top:=Panel1.Top+10;
    end;

    procedure TForm1.Button3Click(Sender: TObject);
    begin
    Panel1.left:=Panel1.left-10;
    end;

    procedure TForm1.Button4Click(Sender: TObject);
    begin
    Panel1.left:=Panel1.left+10;
    end;

    procedure TForm1.Button5Click(Sender: TObject);
    begin
    MyINI.EraseSection('Main');
    MyINI.UpdateFile;
    end;

    procedure TForm1.Button6Click(Sender: TObject);
    begin
    MyINI:=TMemIniFile.Create(ExtractFilePath(Application.ExeName)+'Settings.ini');

    MyINI.WriteInteger('Main','Left',Form1.Left); //Main form left position on screen
    MyINI.WriteInteger('Main','Top',Form1.Top); //Main form top position on screen

    MyINI.WriteInteger('Main','Width',Form1.Width); //Main form width
    MyINI.WriteInteger('Main','Height',Form1.Height); //Main form Height

    MyINI.WriteInteger('Panel','Left',Panel1.Left); //Panel left position on screen
    MyINI.WriteInteger('Panel','Top',Panel1.Top); //Panel top position on screen

    MyINI.WriteString('Panel','Caption',Panel1.Caption); //Panel Caption

    MyINI.WriteBool('Check','Checked',CheckBox1.Checked); //Checkbox checked


    MyINI.UpdateFile;// Save settings to INI file
    end;

    procedure TForm1.Button7Click(Sender: TObject);
    begin
    Close;
    end;

    procedure TForm1.Button8Click(Sender: TObject);
    begin
    Panel1.Caption:=Edit1.Text;
    end;

    procedure TForm1.FormCreate(Sender: TObject);
    begin
    MyINI:=TMemIniFile.Create(ExtractFilePath(Application.ExeName)+'Settings.ini');

    Form1.Left:=MyINI.ReadInteger('Main','Left',Form1.Left); //Main form left position on screen
    Form1.Top:=MyINI.ReadInteger('Main','Top',Form1.Top); //Main form top position on screen

    Form1.Width:=MyINI.ReadInteger('Main','Width',Form1.Width); //Main form width
    Form1.Height:=MyINI.ReadInteger('Main','Height',Form1.Height); //Main form Height

    Panel1.Left:=MyINI.ReadInteger('Panel','Left',Panel1.Left); //Panel left position on screen
    Panel1.Top:=MyINI.ReadInteger('Panel','Top',Panel1.Top); //Panel top position on screen

    Panel1.Caption:=MyINI.ReadString('Panel','Caption',Panel1.Caption); //Panel Caption

    CheckBox1.Checked:=MyINI.ReadBool('Check','Checked',CheckBox1.Checked); //Checkbox checked

    end;

    end.

    Fashion

    Beauty

    Travel