Locate the FDDEMO.SDB sample SQL database file before opening the SQL connection and its tables

Author: davidberneda

demos/FireMonkey/TeeGridFeatures/Views/Database/Master_Detail_FireDAC/Unit_Master_Detail_Two_Grids.fmx

@@ -7,6 +7,7 @@ object MasterDetail2GridsForm: TMasterDetail2GridsForm
   FormFactor.Width = 320
   FormFactor.Height = 480
   FormFactor.Devices = [Desktop]
+  OnCreate = FormCreate
   DesignerMasterStyle = 0
   object Rectangle1: TRectangle
     Align = Client
@@ -62,7 +63,6 @@ object MasterDetail2GridsForm: TMasterDetail2GridsForm
           Link = 'Fax'
         end>
       DataSource = DataSource1
-      ReadOnly = False
       Selected.FullRow = True
       Align = Top
       Position.Y = 50.000000000000000000
@@ -136,7 +136,6 @@ object MasterDetail2GridsForm: TMasterDetail2GridsForm
           Link = 'ShipCountry'
         end>
       DataSource = DataSource2
-      ReadOnly = False
       Align = Client
       Margins.Top = 5.000000000000000000
       Size.Width = 708.000000000000000000
@@ -173,7 +172,7 @@ object MasterDetail2GridsForm: TMasterDetail2GridsForm
   end
   object Sqlite_demoConnection: TFDConnection
     Params.Strings = (
-      'Database=D:\apps\Embarcadero\Studio\19.0\Samples\Data\FDDemo.sdb'
+      'Database=FDDemo.sdb'
       'ConnectionDef=SQLite_Demo')
     LoginPrompt = False
     Left = 489

demos/FireMonkey/TeeGridFeatures/Views/Database/Master_Detail_FireDAC/Unit_Master_Detail_Two_Grids.pas

@@ -11,7 +11,7 @@ interface
   FireDAC.Stan.ExprFuncs, FireDAC.FMXUI.Wait, FireDAC.Stan.Param, FireDAC.DatS,
   FireDAC.DApt.Intf, FireDAC.DApt, FMXTee.Control, FMXTee.Grid, Data.DB,
   FireDAC.Comp.DataSet, FireDAC.Comp.Client, FMX.Controls.Presentation,
-  FMX.StdCtrls, FMX.Layouts, FMX.Objects;
+  FMX.StdCtrls, FMX.Layouts, FMX.Objects, FireDAC.Phys.SQLiteWrapper.Stat;
 
 type
   TMasterDetail2GridsForm = class(TForm)
@@ -26,6 +26,7 @@   TMasterDetail2GridsForm = class(TForm)
     Layout1: TLayout;
     cbConnect: TCheckBox;
     procedure cbConnectChange(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
   private
     { Private declarations }
   public
@@ -39,10 +40,37 @@ implementation
 
 {$R *.fmx}
 
+uses
+  IOUtils;
+
+function FolderWithSampleData:String;
+begin
+  result:='fddemo.sdb';
+
+  repeat
+    if TFile.Exists(result) then
+       exit
+    else
+       result:=TPath.Combine('..',result);
+
+  until Length(result)>100;
+end;
+
 procedure TMasterDetail2GridsForm.cbConnectChange(Sender: TObject);
 begin
   CustomersTable.Active:=cbConnect.IsChecked;
   OrdersTable.Active:=cbConnect.IsChecked;
 end;
 
+procedure TMasterDetail2GridsForm.FormCreate(Sender: TObject);
+var Path : String;
+begin
+  Path:=FolderWithSampleData;
+
+  if Path='' then
+     raise Exception.Create('Error: Missing SQL sample database file FDDEMO.SDB required by this demo');
+
+  Sqlite_demoConnection.Params.Values['Database']:=Path;
+end;
+
 end.