10.11.2015 Views

maXbox3 3.9.9.195 14/05/2015 08:37:17 AM

maXbox3 3.9.9.80 13.11.2013 11:25:53

maXbox3 3.9.9.80 13.11.2013 11:25:53

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

<strong>maXbox3</strong> <strong>3.9.9.195</strong><br />

<strong>14</strong>/<strong>05</strong>/<strong>2015</strong> <strong>08</strong>:<strong>37</strong>:<strong>17</strong> <strong>AM</strong><br />

4365: Function VarSQLTimeStamp : TVarType<br />

4366: Function VarIsSQLTimeStamp( const aValue : Variant) : Boolean;<br />

4367: Function LocalToUTC( var TZInfo : TTimeZone; var Value : TSQLTimeStamp) : TSQLTimeStamp //beta<br />

4368: Function UTCToLocal( var TZInfo : TTimeZone; var Value : TSQLTimeStamp) : TSQLTimeStamp //beta<br />

4369: Function VarToSQLTimeStamp( const aValue : Variant) : TSQLTimeStamp<br />

4<strong>37</strong>0: Function SQLTimeStampToStr( const Format : string; DateTime : TSQLTimeStamp) : string<br />

4<strong>37</strong>1: Function SQLDayOfWeek( const DateTime : TSQLTimeStamp) : integer<br />

4<strong>37</strong>2: Function DateTimeToSQLTimeStamp( const DateTime : TDateTime) : TSQLTimeStamp<br />

4<strong>37</strong>3: Function SQLTimeStampToDateTime( const DateTime : TSQLTimeStamp) : TDateTime<br />

4<strong>37</strong>4: Function TryStrToSQLTimeStamp( const S : string; var TimeStamp : TSQLTimeStamp) : Boolean<br />

4<strong>37</strong>5: Function StrToSQLTimeStamp( const S : string) : TSQLTimeStamp<br />

4<strong>37</strong>6: Procedure CheckSqlTimeStamp( const ASQLTimeStamp : TSQLTimeStamp)<br />

4<strong>37</strong>7: Function ExtractFieldName( const Fields : string; var Pos : Integer) : string;<br />

4<strong>37</strong>8: Function ExtractFieldName( const Fields : WideString; var Pos : Integer) : WideString;<br />

4<strong>37</strong>9: //'Procedure RegisterFields( const FieldClasses : array of TFieldClass)<br />

4380: Procedure DatabaseError( const Message : WideString; Component : TComponent)<br />

4381: Procedure DatabaseErrorFmt(const Message:WIdeString; const Args:array of const;Component:TComponent)<br />

4382: Procedure DisposeMem( var Buffer, Size : Integer)<br />

4383: Function BuffersEqual( Buf1, Buf2 : Pointer; Size : Integer) : Boolean<br />

4384: Function GetFieldProperty(DataSet:TDataSet; Control:TComponent; const FieldName: WideString): TField<br />

4385: Function VarTypeToDataType( VarType : Integer) : TFieldType<br />

4386: ***********************************************unit JvStrings;*****************************************<br />

4387: {template functions}<br />

4388: function ReplaceFirst(const SourceStr, FindStr, ReplaceStr: string): string;<br />

4389: function ReplaceLast(const SourceStr, FindStr, ReplaceStr: string): string;<br />

4390: function InsertLastBlock(var SourceStr: string; BlockStr: string): Boolean;<br />

4391: function RemoveMasterBlocks(const SourceStr: string): string;<br />

4392: function RemoveFields(const SourceStr: string): string;<br />

4393: {http functions}<br />

4394: function URLEncode(const Value: AnsiString): AnsiString; // Converts string To A URLEncoded string<br />

4395: function URLDecode(const Value: AnsiString): AnsiString; // Converts string From A URLEncoded string<br />

4396: {set functions}<br />

4397: procedure SplitSet(AText: string; AList: TStringList);<br />

4398: function JoinSet(AList: TStringList): string;<br />

4399: function FirstOfSet(const AText: string): string;<br />

4400: function LastOfSet(const AText: string): string;<br />

4401: function CountOfSet(const AText: string): Integer;<br />

4402: function SetRotateRight(const AText: string): string;<br />

4403: function SetRotateLeft(const AText: string): string;<br />

4404: function SetPick(const AText: string; AIndex: Integer): string;<br />

44<strong>05</strong>: function SetSort(const AText: string): string;<br />

4406: function SetUnion(const Set1, Set2: string): string;<br />

4407: function SetIntersect(const Set1, Set2: string): string;<br />

44<strong>08</strong>: function SetExclude(const Set1, Set2: string): string;<br />

4409: {replace any etc by &lt; &gt;}<br />

4410: function XMLSafe(const AText: string): string;<br />

4411: {simple hash, Result can be used in Encrypt}<br />

4412: function Hash(const AText: string): Integer;<br />

4413: { Base64 encode and decode a string }<br />

44<strong>14</strong>: function B64Encode(const S: AnsiString): AnsiString;<br />

4415: function B64Decode(const S: AnsiString): AnsiString;<br />

4416: {Basic encryption from a Borland Example}<br />

44<strong>17</strong>: function Encrypt(const InString: AnsiString; StartKey, MultKey, AddKey: Integer): AnsiString;<br />

4418: function Decrypt(const InString: AnsiString; StartKey, MultKey, AddKey: Integer): AnsiString;<br />

4419: {Using Encrypt and Decrypt in combination with B64Encode and B64Decode}<br />

4420: function EncryptB64(const InString: AnsiString; StartKey, MultKey, AddKey: Integer): AnsiString;<br />

4421: function DecryptB64(const InString: AnsiString; StartKey, MultKey, AddKey: Integer): AnsiString;<br />

4422: procedure CSVToTags(Src, Dst: TStringList);<br />

4423: // converts a csv list to a tagged string list<br />

4424: procedure TagsToCSV(Src, Dst: TStringList);<br />

4425: // converts a tagged string list to a csv list<br />

4426: // only fieldnames from the first record are scanned ib the other records<br />

4427: procedure ListSelect(Src, Dst: TStringList; const AKey, AValue: string);<br />

4428: {selects akey=avalue from Src and returns recordset in Dst}<br />

4429: procedure ListFilter(Src: TStringList; const AKey, AValue: string);<br />

4430: {filters Src for akey=avalue}<br />

4431: procedure ListOrderBy(Src: TStringList; const AKey: string; Numeric: Boolean);<br />

4432: {orders a tagged Src list by akey}<br />

4433: function PosStr(const FindString, SourceString: string;<br />

4434: StartPos: Integer = 1): Integer;<br />

4435: { PosStr searches the first occurrence of a substring FindString in a string<br />

4436: given by SourceString with case sensitivity (upper and lower case characters<br />

44<strong>37</strong>: are differed). This function returns the index value of the first character<br />

4438: of a specified substring from which it occurs in a given string starting with<br />

4439: StartPos character index. If a specified substring is not found Q_PosStr<br />

4440: returns zero. author of algorithm is Peter Morris (UK) (Faststrings unit from www.torry.ru). }<br />

4441: function PosStrLast(const FindString, SourceString: string): Integer;<br />

4442: {finds the last occurance}<br />

4443: function LastPosChar(const FindChar: Char; SourceString: string): Integer;<br />

4444: function PosText(const FindString, SourceString: string; StartPos: Integer = 1): Integer;<br />

4445: { PosText searches the first occurrence of a substring FindString in a string<br />

4446: given by SourceString without case sensitivity (upper and lower case characters are not differed). This<br />

function returns the index value of the first character of a specified substring from which it occurs in a<br />

given string starting with Start<br />

4447: function PosTextLast(const FindString, SourceString: string): Integer;<br />

4448: {finds the last occurance}<br />

4449: function NameValuesToXML(const AText: string): string;<br />

4450: {$IFDEF MSWINDOWS}<br />

4451: procedure LoadResourceFile(AFile: string; MemStream: TMemoryStream);<br />

PC<strong>08</strong> E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt<br />

http://www.softwareschule.ch/maxbox.htm T: 297<br />

p: 51

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!