New method to locate the demo SQL database FDDEMO.SDB, otherwise database demos cannot be executed without this sample file

Author: davidberneda

demos/FireMonkey/TeeGridFeatures/Views/Database/Master_Detail_FireDAC/Customer_Orders.dfm

@@ -3,7 +3,7 @@ object SampleData: TSampleData
   Width = 267
   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 = 103

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

@@ -24,6 +24,7 @@   TSampleData = class(TDataModule)
   public
     { Public declarations }
 
+    procedure OpenTables;
     function OrdersOfCustomer(const ARecNo:Integer):TDataSet;
   end;
 
@@ -36,6 +37,36 @@ implementation
 
 {$R *.dfm}
 
+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 TSampleData.OpenTables;
+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;
+
+  CustomersTable.Open;
+  OrdersTable.Open;
+end;
+
 function TSampleData.OrdersOfCustomer(const ARecNo:Integer):TDataSet;
 
   // Return the CustomerID for row: ARow