aboutsummaryrefslogblamecommitdiffstats
path: root/Game/Code/lib/SQLite/SQLiteTable3.dcu
blob: 59ec703794af0931da1e5300c607ee25d7af453c (plain) (tree)





























































































































































                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                   
#+Lk�%7�^�SQLiteTable3�<plib\SQLite\SQLiteTable3.pas|�.6dSystemgTObject.SafeCallException�
ĄgTObject.AfterConstruction�
ĄgTObject.BeforeDestruction�
ĄgTObject.Dispatch�
ĄgTObject.DefaultHandler�
ĄgTObject.NewInstance�
ĄgTObject.FreeInstance�
ĄgTObject.Destroy�
ĄfTObject|��fBoolean��efstring�+{�f
AnsiString�+{�fInt64(���fInteger	�f�g.TObject_��>fCardinalI��KfDouble���fPointer���gAssignedgFreeMemg@FreeMem��+�fPChar�u�RgTObject.Create�
ĄgFalsesɚ�g@ClassCreate�V�g@LStrToPChar$��g@RaiseExcept�`p�g@HandleFinally�`p�g@AfterConstruction��Kg@BeforeDestruction�S�g
@ClassDestroy����g@LStrAddRef�`Eg	@LStrCat3�`p�g@LStrClr\��>g
@LStrArrayClr���gPos�j�gGetMemg@GetMem��+�gTObject.Free�
ĄgTruevɚ�g	@LStrCatN�`p�g@LStrFromPChar7�ofPString/|rSfPInt64dd��gIncgPredgNewg@New����g	SetStringg@LStrFromPCharLenC�t2g@LStrCmp�`p�gDisposegExitg@LStrAsg�ԜgChrfChar#���gTruncg@TRUNC�`p�gDeccdSysInitcdWindowsfPDouble7��:fPInteger�n��cdSQLite3f	TSQLiteDB���gSQLite3_Open�G�g	SQLITE_OK�}�1gSQLite3_ErrMsg��ݓgSQlite3_Free�~)�g
SQLite3_Close�+�gSQLite3_LastInsertRowID�H�gSQLite3_ErrCode�+�fTSQLiteStmt���gSQLite3_Prepare^�h
gSqlite3_Step�+�gSQLITE_DONE�~�1gSQLite3_Finalize�+�gSQLite3_BindBlob�j<�gSQLite3_BusyTimeout�gSQLite3_Version���g
SQLITE_ROW�~�1gSQLite3_ColumnCount�+�gSqlite3_ColumnName6֚�gSqlite3_ColumnDeclType6֚�gSqlite3_ColumnType�L�gSQLITE_NULL�}�1gSqlite3_ColumnInt64õ
�gSqlite3_ColumnDoubleX'��gSqlite3_ColumnBytes�L�gSqlite3_ColumnBlob0��>gSqlite3_ColumnText6֚�gSQLITE_BUSY�}�1cdClassesfTStream��{�fTListv	r�fTStringList��kPf
TMemoryStreamU�8gTStream.SetPosition��g.TStringList�dI�g.TListY�O�g	TList.Add�)�Eg	TList.Get�)�Eg.TMemoryStream8�x�gTStream.WriteBuffer��gTStream.ReadBuffer��cdSysUtilsf	Exception���!g
.Exception�ΪsgException.CreateFmt��gException.Create��g	LowerCase���Cg
AnsiUpperCaseӢ}GgStrLenK�%gStrToIntr��gIntToStr�F�gIntToStr���ug
FloatToStr����gStrAllocK�%g
StrDisposeo})�g
StrToFloat����c5SQLiteTable3�_���c5Systemc5SysInit|c5Windows~c5SQLite3�c5Classes�c5SysUtils�c%dtInt��}�1.%	dtNumeric��}�1.%dtStr��}�1.%dtBlob��}�1.%dtNull��}�1.
&.ESQLiteException�Ն��0*ESQLiteException���x2&.TSQLiteDatabase��xҳ4*TSQLiteDatabase����a6&
.TSQLiteTable�%��C8*TSQLiteTable�B
��:7.4F<(DisposePointer�����">�!ptrc(TSQLiteDatabase.Create���	�1>6!Selff6�!.f@�!FileName Msgf� iResultc�A6(TSQLiteDatabase.Destroy���	��1>6!Self6!.@c�Y6("TSQLiteDatabase.GetLastInsertRowID���	�<�
6!Self6 Resultf
c�e6(TSQLiteDatabase.RaiseError���	�a�>6!Self6!sf�!SQLf� Msgc�q6(TSQLiteDatabase.ExecSQL���	�Q�>6!Self6!SQL Stmtf"� NextSQLStatementf� iStepResultc��6(TSQLiteDatabase.UpdateBlob���	�Q	�>6!Self6!SQL!BlobData$
 iSizef� ptrf� Stmtf"� Msgf� NextSQLStatementf� iStepResult iBindResultc��6(TSQLiteDatabase.GetTable���	� �:6!Self6!SQL Result:c��6(TSQLiteDatabase.GetTableValue���	���
6!Self6!SQL Resultf
� Tablef:�c��6(TSQLiteDatabase.GetTableString���	���6!Self6!SQL#Result Tablef:�c��6( TSQLiteDatabase.BeginTransaction���	��>6!Self6c�6(TSQLiteDatabase.Commit���	�P�>6!Self6c�	6(TSQLiteDatabase.Rollback���	�X�>6!Self6c�6(TSQLiteDatabase.TableExists���	���6!Self6!	TableNamef� Resultf� sqlf� dsf:�c�6(TSQLiteDatabase.SetTimeout���	��>6!Self6!Valuec�16(TSQLiteDatabase.version���	�&�6!Self6#Resultc�=6(TSQLiteTable.Create�u*�>:!Selff:�!.f@�!DBf6�!SQL" Stmtf"� NextSQLStatementf� iStepResult
 ptrf� 	iNumBytesf� 
thisBlobValuef*� thisStringValuef� thisDoubleValuef� thisIntValuef� thisColTypef� i DeclaredColTypef� 
ActualColTypef� ptrValuef�c�I:(TSQLiteTable.Destroy�v*�1>:!Self:!.f@ i iColNoc��:(TSQLiteTable.GetColumns�p*�2�:!Self:!I#Result
c��:(TSQLiteTable.GetCountResult�t*���:!Self: Resultc��:(TSQLiteTable.GetCount�s*��:!Self: Resultc��:(TSQLiteTable.GetEOF�n*��:!Self: Resultc��:(TSQLiteTable.GetBOF�o*��:!Self: Resultc��:(TSQLiteTable.GetFieldByName�q*���:!Self:!	FieldNamef�#Resultc��:(TSQLiteTable.GetFieldIndex�r*���:!Self:!	FieldNamef� Resultc��:(TSQLiteTable.GetFields�m*�q�:!Self:!I
#Result 	thisvalue thistypec�	:(TSQLiteTable.FieldAsBlob�x*���*:!Self:!I Result*c�!:(TSQLiteTable.FieldAsBlobText�y*��:!Self:!I#Result
 	MemStream* Bufferc�1:(TSQLiteTable.FieldAsInteger�w*���
:!Self:!I Resultf
c�I:(TSQLiteTable.FieldAsDouble�|*�!�:!Self:!I Resultfc�Y:(TSQLiteTable.FieldAsString�{*���:!Self:!I#Result
c�i:(TSQLiteTable.FieldIsNull�z*���:!Self:!I Result 	thisvaluec�y:(TSQLiteTable.Next�}*�6�:!Self: Resultc��:(TSQLiteTable.Previous�~*�6�:!Self: Resultc��:(TSQLiteTable.MoveFirst��*�$�:!Self: Resultc��:(TSQLiteTable.MoveLast��*�$�:!Self: Resultc��:(Finalization��`p�\!�>c�(SQLiteTable3�!>c��D<��G2�F^!,�cG6�Fi)%�,fDB ��6,fInTrans��6.
RaiseError�q���6/Create�A��60Destroy��Y1��6.GetTable�����6.ExecSQL����6.
GetTableValue�����6.GetTableString�����6.
UpdateBlob����6.BeginTransaction����6.Commit�	���6.Rollback����6.TableExists����6.GetLastInsertRowID�e���6.
SetTimeout�1���6.version�=��61isTransactionOpen
����6cG:�FV18-�,fResults&�	:,	fRowCount�
:,	fColCount�:,fCols( �:,	fColTypes&(�:,fRow0�:.	GetFields�	��!:.GetEOF����%:.GetBOF����):.
GetColumns���-:.GetFieldByName����1:.
GetFieldIndex����5:.GetCount����9:.GetCountResult���=:/Create�I�A:0Destroy���1�E:.FieldAsInteger�I��I:.FieldAsBlob�!��M:.FieldAsBlobText�1��Q:.FieldIsNull�y��U:.
FieldAsString�i��Y:.
FieldAsDouble�Y��]:.Next���a:.Previous���e:1EOF�����i:1BOF�����m:1FieldsB��	��q:1FieldByNameD�����u:1
FieldIndexF�����y:1ColumnsH�����}:1ColCount�����:1RowCount��
���:1Row�����:.	MoveFirst����:.MoveLast����:1Count������:1CountResult������:cD<�����@A@�Hj!IcHj!	FieldNamecHj!	FieldNamecHj!Icl�hLLESQLiteExceptionESQLiteExceptionLSQLiteTable3LLTSQLiteDatabaseTSQLiteDatabaseLSQLiteTable3���isTransactionOpenLLTSQLiteTableTSQLiteTableLSQLiteTable3U��E��t�]�U����S��t�����وU��E�3ҋE���E��@3��E�3�Uh�d�2d�"�E���P���P�����tf�E��@��t9P�Y�E�]��E��E�E��E��E�Pj�(�����#�]��E��E�Pj�T�������E�����E��3�ZYYd�h��}�t
�E�P�Y����E��}�t�d����E�[��]�����!Failed to open database "%s" : %s����,Failed to open database "%s" : unknown error����PRAGMA SYNCHRONOUS=NORMAL;����PRAGMA temp_store = MEMORY;SV��ڋ��~t�P����F��tP�Y�Ӏ�������~���^[�����	ROLLBACK;����@P�Y�$�T$�$�T$YZ�U����SV3ۉ]�M��U����E���E��3�Uh�d�0d� 3ۋFP�Y��t�FP�Y�؅�t=�E��E��E��]��E��E�Pj�E���U���M�����0�E��E��E���E��E��E�Pj�M�����3�ZYYd�h��E���E�������^[��]�����
 "%s" : %s����
No messageU����SV���3�Uh�d�2d�"�E�P�E�Pj����P�CP�����t�����}�u�����E�P�Y��et����3�ZYYd�h��}�t
�E�P�Y����^[YY]�����Error executing SQL����Could not prepare SQL statement����Error executing SQL statementU����SVW���ڋ��Ӹt���u�˺����3��E�3�Uh]d�2d�"�E�P�E�Pj����P�FP�����t�˺�����}�u�˺�����Nj��E��E���E��}�u/�]��E����E��E��E�Pj������jj����U��M��Nj8�Wh�E�P�E�Pj�E�P�����t�˺����E�P�Y��et�˺4���3�ZYYd�hd�}�t
�E�P�Y�}�t
�E�P�Y����_^[��]�����?����SQL must include a ? parameter����Could not prepare SQL statement����Error����!Error getting memory to save blob����Error binding blob to database����Error executing SQL statementR�ȡ���U������E�3�UhBd�0d� 3ҋE���E��U�3�ZYYd�hI�E�������E��U���]�U��QS����E�3�Uh?d�0d� ��3ҋE��3�ZYYd�hF�E������[Y]�S�؀{u�<����C[ùX����[�����BEGIN TRANSACTION;����Transaction already openS�غ ����C[�����COMMIT;S�غ ����C[�����	ROLLBACK;U����S3ɉM�M��U��؋E��3�Uh�d�0d� h��U�E���u�h$�E����U�����E�3�Uh�d�0d� �E�����E�3�ZYYd�h��E������3�ZYYd�h��E���E��������E�[��]�����Jselect [sql] from sqlite_master where [type] = 'table' and lower(name) = '����' R�@P����S����Ћ��[�U��ĐSVW3ۉ]��]��]��]��]��]��]��]��]���t�����M�U��E�3�Uh�d�0d� 3�Uh�d�0d� �E�3҉P�E�3҉P�E�P�E�Pj��E�P�E�@P�����t�M��E���}�u�M�8�E���E�P�Y����e�����w��_���E��@�E��x������U��B����U��B�E�P�Y�U��B�E��pN��|7F3�S�E�P����ЍE���E��U���U��E��@��Q8CNűE��pN���6F3۸��E�S�E�P����Ẽ}�uS�E�P����UЉ���E��U���E��`�t�E��U���E��p�u�E����E��U���E����tN�E��U���E����t4�E��U���E����t�E��U���E����u�E���.�E��U���E����u�E���	�E���E��@�U��CN���������U��B�E��pN����F3�S�E�P����Eȃ}�u�E��@3���J�E��@����8u5���E�S�E�P����Mԉ�Q�E��@�U����E��@����8u3���E�S�E�P����E����E��@�U����E��@����8ufS�E�P����E�}�u3��E��9����E�jj�E��S�E�P����E�U�M�E���E��@�U���F����E�S�E�P����EċE���ȋE܋U���E��@�U��CN������D�E�E��E����E��E��E�Pj�8������M���E���E�P�Y����e�'����E�3҉P3�ZYYd�h��}�t
�E�P�Y����3�ZYYd�h��E��	�����E��}�t�d����E�_^[��]�����Error executing SQL����Could not prepare SQL statement����INTEGER����BOOLEAN����NUMERIC����FLOAT����DOUBLE����REAL����BLOB����SQLite is Busy����Could not retrieve dataSVWUQ��$��E�����xO��rzG3���3��u�ڋE������tHuE�E�����E�E�����t7�E���3�3���E���3����E���3��FOu��E��E��t��E��t �xO��rG3��E���3��FOu�E��$�������<$~���Z]_^[�SVW����؋ϋ֋C��S_^[�U��jS��3�UhQd�0d� �����u�M�3ҋ���E�����3�3�ZYYd�hX�E��������[Y]Ë@ËP;P��Ãx���U��QSV��U��؋E��3�UhNd�0d� �U�����Ћ΋��3�ZYYd�hU�E������^[Y]�U��3�QQQQQS�U��؋E��3�Uh�d�0d� �{u0h�u�h�E����M������|�C��R��u0h�u�h�E����M������@�U��E���U��C��QT�؅�}$�E�M��@��M����3�ZYYd�h��E�������[��]�����Field ���� Not found. Empty dataset����Field not found in dataset: SVW����؋�������t�������׋C��Ht6HtGHtHtZ�e�S�S׋C��؅�t�Ƌ��J����A�׋��RP����-�׋������<$������΋׋������_^[�����Table is at End of FileSV��؋����t�������S�S֋C���u3�^[Ë֋C��8u�S�S֋C��������^[�����Table is at End of File����Not a Blob fieldSVW����؋���֋���؅�ta�Ë���u��vQ�~Mjj����Ë�@����Ë��ȋ֋���Ë����Ë��ȋNj�����_^[�SV�����؋����t�$�D$��S�S֋C���u�$�D$�y�֋C��8u�S�S֋C���$�P�T$�K�֋C��8u&�S�S֋C�����$�T$��������$�T$YZ^[�����Not an integer or numeric fieldSV�����؋����t�������S�S֋C���u3��$�D$�l�֋C��8u�S�S֋C��(�$��D�֋C��8u�S�S֋C���$�P�T$��������$YZ^[�����Table is at End of File����Not an integer or numeric fieldSVW����؋����t�`�����S�S֋C���u	�����ϋ֋��_^[�����Table is at End of FileSV��؋����t�H�����S�S֋C�����^[�����Table is at End of FileSV��3ۋ����u�F���^[�SV��3ۋ����u�N���^[�3҃xv3҉P����3ҋH��vI�H����U��3�Uh%d�0d� �3�ZYYd�h,����]Ã-�m�@�
*!!,�*%%@%"
Y())*%*X--@-"
�"11$-*9.A6$2(A(8�.�@A
�
:(A
�
:
A�
A�A�< >
Y@Y��B<e�,q2DDq"��LqF
�
:"q.
�
:qHJ<h� �.8��q�q��q��<��$�
L�q�.8��q�q"P*�$�
�
:�$9&��q��q�� �<��-I
��� I&�R< ���$i�R<�
�
:�		�:�B0D�V��&R<HJ<�1�=�XI\6"IIP8�IqIq�p�
2�
2�>�X�\P�,�0XI
jXI
j6XI
jXI
jXI
jXI
j0XI
jH��
2D�2�$�P�2�$�P�.�$��4�
2��(��d��h�2I$I
�
:Iq�BI�<IJ< >�@\�(�
R��h�.�.RR8�.RB�2��� 	�&�H<����"D� �	�H<�(D�"��V
�
:&��V
�
:�8�
F
�
:�J<�	H�	
�
:�B�pHI�Y�1HR!�!
�
:"�&�,�!
�
:�1H!J��&�8h�I�R�>�,�0�,��
xI
�
:rY�Y
�
:"�2�,�$�,�&Y
�
:�i�i
�
:"�H	Ry�y
�
:"�X��$��$�$�$��5�<5
�)�
6
.^F4$5J"fz`�D
6$� 
D^6
6$�
: 
2 ,�*2TJ6 M.�L  $$$ �b$ .h�4�.$$ $$*&$&&$   & *�Xh ��q*$�("&&"�"
�$
&
,0F
F*DL\\0H!,&(2J,*
&,~(""(*">L,j,*2>,�,*
J,"

F


b���2D6N*:~T���	2
468:!B1H|)L)P)RqVT�)T%-��Z��Y]�EAZX�)X2�\��IY\Z�)
Z�^\y)\��m�`^)^MU�%=�b`�)`�db�)b�fd�)dhf�)f	jh)hlj5)jnlM)lepn�)n1rp�) p=tr�)"r)$v1�1�1�1�1
�1�	��Y	1������1������1�����]1������1������1�������1�ȹ��y1��I���1������1 �I��a
1"���	!���	1$�)
1��
1&��	y��
1(�i���
1*��Y���
1,��	���=1.����e10�12�14�16�18�1:�1<�1>�1@�1B¥�č1Dı�Ƶ1F�1H�1J�9��=�E�SV�M�Q�U���-=	�]^[�Si[Y]�m�u
 y�}����G3ۋ��!�%�)��
���������������������
�y�}����������}�)5E�!���������
	%	A	u	�	
�
�
�

����>
 !M%Q)U-Y5�9�A�E�MU�Y�]�a�e�i�m�q�u�y�}����������6�i����Yu��Q�3������ �]�a��}�8���\�����'���X�����W���B�5	
��Y	]	a	e	%U)�	-�	5I9
=
A
E
��A
MQQa
Ue
]a�
e�
m1q�
u�
���
!}0 �
����A��i������������9@==�A`HBM6U�U��M�Y@0]ae@ii(�q�802uf�j�����u���A���0B��������!��!��HpB���
�y��y��5�5
�������q����������p��������`B��������B��������l���@6�	@

&�@&�@(rT��1`595�9�=0EI��pRe�
ei����������
��1�!�ea
e�������J�\����q��	�]��pp���
�*��*��P�,�r��v�P�����P�����P�����P02�F�F�p���(2�L�X���������Y�aa�������a	�p


6�6�6�
bbb
z��
�������
��

����!�0%)%"�)"�%N)N%x�)x�%�)�%��)��-�1�p5=
9A656�96�E�A��=��E�=
I�0MQM(�Q(�MPQPMz�Qz�M�Q�M��Q��Y�0]a](�a(�]TaT]~�a~�]�a�]��a��i!pmqu
m(�q(�u(�mTqTuT
m~�q~�m�q�m��q��y�0}�}"��"�}N�N}p��p�p��z��z�p0���"��(��,�p0���"��(��,�p��������p��������  a