Buka Database dengan dengan set.ini Delphi

Masksut hati bukan mau pamer , bukan mau apa2
hanya ingin berbagi pengetahuan buat teman2 yg belum tahu aja
kali ini saya akan membagikan tips cara membuka database dengan set.ini
pada Deplhi.
di sini saya menggunakan komponen Unidac sebagai koneksi databasenya
simak baik2 yah

unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, IniFiles, Vcl.Forms, Vcl.Dialogs, Vcl.ExtCtrls,
  UniProvider, SQLiteUniProvider, Data.DB, DBAccess, Uni, MemDS, Vcl.Grids,
  Vcl.DBGrids;

type
  TForm1 = class(TForm)
    UniConnection1: TUniConnection;
    UniTable1: TUniTable;
    UniDataSource1: TUniDataSource;
    SQLiteUniProvider1: TSQLiteUniProvider;
    DBGrid1: TDBGrid;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
   konak : string;
   myINI : TINIFile;
begin
    myINI := TINIFile.Create(ExtractFilePath(Application.EXEName) + 'set.ini');
    konak:= myINI.ReadString('Seting', 'dbase', '');
    UniConnection1.Database:= konak;
    UniConnection1.Connected;
    UniTable1.Active;
    UniDataSource1.DataSet.Open;
    myINI.Free;
end;

end.

semoga bermanfaat :)


berikut contoh sorce codenya


https://www.mediafire.com/?cb454860s7d4770