feat: show virtual, stored and hidden columns in SQLite

ansgarbecker · ansgarbecker · commit 0a87a7360f8d · 2026-02-06T15:31:27.000+01:00
Refs #1432
diff --git a/source/dbconnection.pas b/source/dbconnection.pas
@@ -6095,7 +6095,7 @@ function TSQLiteConnection.GetTableColumns(Table: TDBObject): TTableColumnList;
   // Todo: include database name
   // Todo: default values
   Result := TTableColumnList.Create(True);
-  ColQuery := GetResults('SELECT * FROM '+QuoteIdent(Table.Database)+'.pragma_table_info('+EscapeString(Table.Name)+')');
+  ColQuery := GetResults('SELECT * FROM '+QuoteIdent(Table.Database)+'.pragma_table_xinfo('+EscapeString(Table.Name)+')');
   while not ColQuery.Eof do begin
     Col := TTableColumn.Create(Self);
     Result.Add(Col);
@@ -6107,6 +6107,11 @@ function TSQLiteConnection.GetTableColumns(Table: TDBObject): TTableColumnList;
     Col.DefaultText := '';
     Col.OnUpdateType := cdtNothing;
     Col.OnUpdateText := '';
+    case StrToIntDef(ColQuery.Col('hidden'), 0) of
+      1: Col.Invisible := True;
+      2: Col.Virtuality := 'VIRTUAL';
+      3: Col.Virtuality := 'STORED';
+    end;
     ColQuery.Next;
   end;
   ColQuery.Free;
@@ -6377,7 +6382,7 @@ function TSQLiteConnection.GetTableKeys(Table: TDBObject): TTableKeyList;
 begin
   Result := TTableKeyList.Create(True);
   ColQuery := GetResults('SELECT * '+
-    'FROM '+QuoteIdent(Table.Database)+'.pragma_table_info('+EscapeString(Table.Name)+') '+
+    'FROM '+QuoteIdent(Table.Database)+'.pragma_table_xinfo('+EscapeString(Table.Name)+') '+
     'WHERE pk!=0 ORDER BY pk');
   NewKey := nil;
   while not ColQuery.Eof do begin
