From 638044e12174fcafbfd026bcdc282a703542f8d6 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juan=20Manuel=20M=C3=ADguez=20V=C3=A1zquez?= Date: Wed, 3 Feb 2021 00:07:28 +0100 Subject: [PATCH] Update Quick.ORM.DataBase.pas SQLITE_MEMORY_DATABASE_NAME = ':memory:' => is const not literal string --- Quick.ORM.DataBase.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/Quick.ORM.DataBase.pas b/Quick.ORM.DataBase.pas index 03690c2..0511c6b 100644 --- a/Quick.ORM.DataBase.pas +++ b/Quick.ORM.DataBase.pas @@ -109,7 +109,7 @@ destructor TORMDataBase.Destroy; procedure TORMDataBase.SetDBFileName(const dbfname : RawUTF8); begin //if dbfile not found, sets as current app dir - if (CompareText(dbfname,'SQLITE_MEMORY_DATABASE_NAME') = 0) or TFile.Exists(dbfname) then fDBFileName := dbfname + if (CompareText(dbfname,SQLITE_MEMORY_DATABASE_NAME) = 0) or TFile.Exists(dbfname) then fDBFileName := dbfname else fDBFileName := Format('%s\%s',[path.EXEPATH,TPath.GetFileName(dbfname)]); end;