Unit SqlitePassUtils

DescriptionusesClasses, Interfaces, Objects and RecordsFunctions and ProceduresTypesConstantsVariables

Description

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

—————————————————————————

uses

Overview

Classes, Interfaces, Objects and Records

Name Description
record TSqlitePassAnsiStringItem  
Class TSqlitePassAnsiStringList  
Class TSqlitePassBitArray  
Class TSqlitePassList  
Class TSqlitePassObjectList  
record TSqlitePassWideStringItem  
Class TSqlitePassWideStringList  

Functions and Procedures

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;

Types

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;

Constants

DefaultSQLiteLibrary = 'sqlitepass3.dll';
JulianEpoch = -2415018.5;
SListCapacityError= '';
SListCountError = '';
SListIndexError = '';
UnixEpoch = JulianEpoch + 2440587.5;

Description

Functions and Procedures

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);

Types

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;
 

Constants

DefaultSQLiteLibrary = 'sqlitepass3.dll';

.$DEFINE extdecl:=stdcall

JulianEpoch = -2415018.5;
 
SListCapacityError= '';
 
SListCountError = '';
 
SListIndexError = '';
 
UnixEpoch = JulianEpoch + 2440587.5;
 

Generated by PasDoc 0.11.0 on 2009-10-08 22:34:51