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
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 < >}<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