Description | uses | Classes, Interfaces, Objects and Records | Functions and Procedures | Types | Constants | Variables |
This program is free software; you can redistribute it and/or modify it under the terms of the GNU Lesser General Public License as published by the Free Software Foundation; either version 2.1 of the License, or (at your option) any later version.
This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General Public License for more details.
You should have received a copy of the GNU Lesser General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
—————————————————————————
Messages localisation unit Author : Luc DAVID Email: luckylazarus@free.fr
—————————————————————————
Utility unit : Uses mostly original code from FCL
- Implement a TObjectList for Delphi 4 - Implement TSqlitePassBitArray (Bit Array <-> Integer converter) - Implement TSqlitePassAnsiStringList (A TStringList with less properties but faster) - Implement functions (String <-> UTF8 converter)
Last update : 10.09.2009
—————————————————————————
Name | Description |
---|---|
record TSqlitePassAnsiStringItem |
|
Class TSqlitePassAnsiStringList |
|
Class TSqlitePassBitArray |
|
Class TSqlitePassList |
|
Class TSqlitePassObjectList |
|
record TSqlitePassWideStringItem |
|
Class TSqlitePassWideStringList |
function AnsiToUTF8(const S: AnsiString): UTF8String; |
function BoolAsString(Value: Boolean): String; |
function FieldTypeToString(FieldType: TFieldType): String; |
function GetExeDir: String; |
function GetWorkDir: String; |
Procedure OutputDebugString(S: String); |
function StringToFieldType(FieldTypeName: String): TFieldType; |
function UTF8Decode(const s : UTF8String): WideString; |
function UTF8Encode(const s : WideString) : UTF8String; |
function UTF8ToAnsi(const S: PAnsiChar): AnsiString; |
function WStrCopy(Dest: PWideChar; const Source: PWideChar): PWideChar; |
function _WStrCopy(Dest: PWideChar; const Source: PWideChar): PWideChar; |
PByteBool = ˆByteBool; |
PPRecBuffer = ˆPRecBuffer; |
PPValue = ˆPvalue; |
PRecBuffer = PAnsiChar; |
PSqlitePassAnsiStringItem = ˆTSqlitePassAnsiStringItem; |
PSqlitePassAnsiStringItemList = ˆTSqlitePassAnsiStringItemList; |
PSqlitePassWideStringItem = ˆTSqlitePassWideStringItem; |
PSqlitePassWideStringItemList = ˆTSqlitePassWideStringItemList; |
PValue = Pointer; |
TSqlitePassAnsiStringItemList = array[0..MaxListSize] of TSqlitePassAnsiStringItem; |
TSqlitePassWideStringItemList = array[0..MaxListSize] of TSqlitePassWideStringItem; |
UTF16WideString = WideString; |
DefaultSQLiteLibrary = 'sqlitepass3.dll'; |
JulianEpoch = -2415018.5; |
SListCapacityError= ''; |
SListCountError = ''; |
SListIndexError = ''; |
UnixEpoch = JulianEpoch + 2440587.5; |
function AnsiToUTF8(const S: AnsiString): UTF8String; |
function BoolAsString(Value: Boolean): String; |
function FieldTypeToString(FieldType: TFieldType): String; |
function GetExeDir: String; |
function GetWorkDir: String; |
Procedure OutputDebugString(S: String); |
function StringToFieldType(FieldTypeName: String): TFieldType; |
function UTF8Decode(const s : UTF8String): WideString; |
function UTF8Encode(const s : WideString) : UTF8String; |
function UTF8ToAnsi(const S: PAnsiChar): AnsiString; |
function WStrCopy(Dest: PWideChar; const Source: PWideChar): PWideChar; |
function _WStrCopy(Dest: PWideChar; const Source: PWideChar): PWideChar; |
Procedure SetWideString (Out S : WideString; Buf : PWideChar; Len : SizeInt); |
PByteBool = ˆByteBool; |
PPRecBuffer = ˆPRecBuffer; |
PPValue = ˆPvalue; |
PRecBuffer = PAnsiChar; |
PSqlitePassAnsiStringItem = ˆTSqlitePassAnsiStringItem; |
Moved to Public section...same |
PSqlitePassAnsiStringItemList = ˆTSqlitePassAnsiStringItemList; |
PSqlitePassWideStringItem = ˆTSqlitePassWideStringItem; |
PSqlitePassWideStringItemList = ˆTSqlitePassWideStringItemList; |
PValue = Pointer; |
TSqlitePassAnsiStringItemList = array[0..MaxListSize] of TSqlitePassAnsiStringItem; |
TSqlitePassWideStringItemList = array[0..MaxListSize] of TSqlitePassWideStringItem; |
UTF16WideString = WideString; |
DefaultSQLiteLibrary = 'sqlitepass3.dll'; |
.$DEFINE extdecl:=stdcall |
JulianEpoch = -2415018.5; |
SListCapacityError= ''; |
SListCountError = ''; |
SListIndexError = ''; |
UnixEpoch = JulianEpoch + 2440587.5; |