aboutsummaryrefslogtreecommitdiffstats
path: root/unicode/src/lib/SQLite/SQLiteTable3.pas
diff options
context:
space:
mode:
authortobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2009-07-23 21:04:32 +0000
committertobigun <tobigun@b956fd51-792f-4845-bead-9b4dfca2ff2c>2009-07-23 21:04:32 +0000
commitb5ddc6c8de90632ac8cbd9c2c1d3eb30534d66cb (patch)
tree4f4d56b2176078ef7dcc3b37cedb5c08f70b92fc /unicode/src/lib/SQLite/SQLiteTable3.pas
parent3c999bea6a60e6b58dc8e9a70c08898c4efea906 (diff)
downloadusdx-b5ddc6c8de90632ac8cbd9c2c1d3eb30534d66cb.tar.gz
usdx-b5ddc6c8de90632ac8cbd9c2c1d3eb30534d66cb.tar.xz
usdx-b5ddc6c8de90632ac8cbd9c2c1d3eb30534d66cb.zip
update to current trunk (1853)
git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/branches/experimental@1913 b956fd51-792f-4845-bead-9b4dfca2ff2c
Diffstat (limited to 'unicode/src/lib/SQLite/SQLiteTable3.pas')
-rw-r--r--unicode/src/lib/SQLite/SQLiteTable3.pas21
1 files changed, 21 insertions, 0 deletions
diff --git a/unicode/src/lib/SQLite/SQLiteTable3.pas b/unicode/src/lib/SQLite/SQLiteTable3.pas
index 7df76363..3aed54a4 100644
--- a/unicode/src/lib/SQLite/SQLiteTable3.pas
+++ b/unicode/src/lib/SQLite/SQLiteTable3.pas
@@ -139,6 +139,7 @@ type
procedure Commit;
procedure Rollback;
function TableExists(TableName: string): boolean;
+ function ContainsColumn(Table: String; Column: String) : boolean;
function GetLastInsertRowID: int64;
function GetLastChangedRows: int64;
procedure SetTimeout(Value: integer);
@@ -759,6 +760,26 @@ begin
end;
end;
+function TSQLiteDatabase.ContainsColumn(Table: String; Column: String) : boolean;
+var
+ sql: string;
+ ds: TSqliteTable;
+ i : integer;
+begin
+ sql := 'PRAGMA TABLE_INFO('+Table+');';
+ ds := self.GetTable(sql);
+ try
+ Result := false;
+ while (ds.Next() and not Result and not ds.EOF) do
+ begin
+ if ds.FieldAsString(1) = Column then
+ Result := true;
+ end;
+ finally
+ ds.Free;
+ end;
+end;
+
procedure TSQLiteDatabase.SetTimeout(Value: integer);
begin
SQLite3_BusyTimeout(self.fDB, Value);