0% found this document useful (0 votes)

827 views429 pages

Maxbox Functions

Uploaded by

Max Kleiner

We take content rights seriously. If you suspect this is your content, claim it here.

Available Formats

Download as PDF, TXT or read online on Scribd

0% found this document useful (0 votes)

827 views429 pages

Maxbox Functions

Uploaded by

Max Kleiner

We take content rights seriously. If you suspect this is your content, claim it here.

Available Formats

Download as PDF, TXT or read online on Scribd

You are on page 1/ 429

maXbox4 4.7.6.

10 14/01/2022 17:56:22

1: *******************************************************************************
2: Constructor Func and Proc List of maXbox 4.7.6.10 V codeX signed
3: *******************************************************************************
4:
5: /////////////////////////////////////////////////////////////////////////////
6: ref Help Extract Functions of maXbox4.exe BigBitBox API HEX in BOX476
7: -----------------------------------------------------------------------------
8: File EXE:31.5 MB (33,034,056) V4.7.6.10 Jan.2022 EKON25/BASTA/JAX/IBZ/SWS/PASCON
9: *****************Now the Funclist**********************************************
10: Funclist Func : 20932_; Source Compiled: 3'955'969 lines
11: *****************Now the Proclist**********************************************
12: Proclist Proc Size is: 12464_
13: *****************Now Constructors**********************************************
14: Constructlist Constructor Size is: 1971_
15: def head: max: maXbox10: 14/01/2022 18:04:42
16: file E:\maxbox\maxbox3\docs\maxbox_extract_funclist476_.txt
17: doc file: maxbox_extract_funclist476.txt(sort function)maxbox_functions_sortlist.txt
18: all unit file: http://www.softwareschule.ch/examples/packages.txt
19: all unit file2:http://www.softwareschule.ch/unitlist.htm
20: -------------------------------------------------------------------------
21: Funclist total Size all is: 35380! Constructor, Func and Procedure
22: AExtraxt of EXE Functions of maXbox4.exe, locs of file = 37315
23: ASize of EXE: 33,034,056 bytes CRC32: CEB35531:
24: SHA1: of maXbox4.exe (4.7.6.10) E51C63B7B47D83D441F9EB13F515920ACEB26101
25: SHA-256 a3e4077c1a6f8ffbf59ed44c150d90b6460714fc6d547ed05b278702e628ce1d
26:
27: https://www.virustotal.
com/gui/file/a3e4077c1a6f8ffbf59ed44c150d90b6460714fc6d547ed05b278702e628ce1d/detection
28: https://www.virustotal.
com/gui/file/e99be9470f26f69169cc81dfbd8984c7a27dd3fb4b16941cb4028e5dbba66957/detection
29: https://www.virustotal.
com/gui/file/9bb02566c31d45225d0f09f311b72365753dd48d5d7edd92823a4b1c3e24c001/detection
30: //////////////////////////////////////////////////////////////////////////
31:
32: Func Metric of Script: 256_findfunctions4_of_EXE_80_1.txt
33: Func *************Now the Funclist*****************
34: Func GetResStringChecked(Ident:Str; const Args: array of const):str
35: Func ( Index : Longint) : Integer
36: Func (Command: Word; Data: Longint; var CallHelp:Bool):Bool
37: Func _CheckAutoResult( ResultCode : HResult) : HResult
38: Func _T(Name: tbtString): Variant;
39: Func ABNFToText(const AText :Str) :Str
40: Func Abs(e : Extended) : Extended;
41: Func AbsInt(e : Extended) : Integer;
42: Func AbsInt( const B : integer) : integer;
43: Func AbsFloat( const B : double) : extended;
44: Func Ackermann( const A, B : Integer) : Integer
45: Func AcquireLayoutLock :Bool
46: Func ActionByName( const AName :Str) : TWebActionItem
47: Func ACTIVEBUFFER : PCHAR
48: Func Add:TAggregate
49: Func Add:TCollectionItem
50: Func Add:TColumn
51: Func Add:TComboExItem
52: Func Add:TCookie
53: Func Add:TCoolBand
54: Func Add:TFavoriteLinkItem
55: Func Add:TFileTypeItem
56: Func Add:THeaderSection
57: Func Add:THTMLTableColumn
58: Func Add:TIdEMailAddressItem
59: Func Add:TIdMessagePart
60: Func Add:TIdUserAccount
61: Func Add:TListColumn
62: Func Add:TListItem
63: Func Add:TStatusPanel
64: Func Add:TTaskDialogBaseButtonItem
65: Func Add:TWebActionItem
66: Func Add:TWorkArea
67: Func Add(AClass : TClass) : Integer
68: Func Add(AComponent : TComponent) : Integer
69: Func Add(AItem,AData : Integer) : Integer
70: Func Add(AItem,AData : Pointer) : Pointer
71: Func Add(AItem,AData : TObject) : TObject
72: Func Add(AObject : TObject) : Integer
73: Func Add(const Access, Count :Card; const Offset : Int64) : Integer
74: Func Add(const S : WideString) : Int
75: Func Add(Image, Mask : TBitmap) : Int
76: Func Add(Index : LongInt; const Text :Str) : LongInt
77: Func Add(Sibling : TTreeNode; const S :Str) : TTreeNode
78: Func Add(const S:Str): Int
79: Func Add(S:Str): Int;
80: Func AddAt(const Access,Count:Card;const Offset:Int64;const Address:Pointer):Int
81: Func ADDCHILD : TFIELDDEF
82: Func AddChild( Index : LongInt; const Text :Str) : LongInt
83: Func AddChild( Parent : TTreeNode; const S :Str) : TTreeNode
84: Func AddChildFirst( Parent : TTreeNode; const S :Str) : TTreeNode
85: Func AddChildObject(Index:LongInt;const Text:str;const Data:Pointer:LongInt
86: Func AddChildObject( Parent:TTreeNode;const S:str;Ptr:Pointer) : TTreeNode

MAXBOX10 C:\maXbox\works2021\maxbox4\docs\maxbox_functions.txt
http://www.softwareschule.ch/maxbox.htm T: 429
p: 1
maXbox4 4.7.6.10 14/01/2022 17:56:22

87: Func AddChildObjectFirst(Parent:TTreeNode;const S:str;Ptr:Pointer):TTreeNode

88: Func ADDFIELDDEF : TFIELDDEF
89: Func AddFileExtIfNecessary( AFileName, AExt :Str) :Str
90: Func AddFirst( Sibling : TTreeNode; const S :Str) : TTreeNode
91: Func AddIcon( Image : TIcon) : Int
92: Func AddImage( Value : TCustomImageList; Index : Int) : Int
93: Func ADDINDEXDEF : TINDEXDEF
94: Func AddItem(const Caption:str;const ImageIdx,SelectImageIdx,OverlayImagIdx,
Indent:Int;Data:Ptr):TComboExItem
95: Func AddItem( Item : THeaderSection; Index : Int) : THeaderSection
96: Func AddItem( Item : TListItem; Index : Int) : TListItem
97: Func AddItem( Item : TStatusPanel; Index : Int) : TStatusPanel
98: Func AddMapping( const FieldName :Str) :Bool
99: Func AddMasked( Image : TBitmap; MaskColor : TColor) : Int
100: Func AddModuleClass( AClass : TComponentClass) : TComponent
101: Func AddModuleName( const AClass :Str) : TComponent
102: Func AddNode(Node,Relative:TTreeNode;const S:str;Ptr:Pointer;Method:TNodeAttachMode):TTreeNode
103: Func AddObject( const S : WideString; AObject : TObject) : Int
104: Func AddObject(Index:LongInt;const Text:str; const Data:Pointer): LongInt
105: Func AddObject( Sibling : TTreeNode; const S :Str;Ptr: Pointer): TTreeNode
106: Func AddObject(S:str;AObject:TObject):Int
107: Func AddObjectFirst(Sibling:TTreeNode;const S string;Ptr:Pointer):TTreeNode
108: Func AddParameter : TParameter
109: Func AddParamSQLForDetail(Params:TParams;SQL:WideStr;Native:Bool;QuoteChar:WideString):WideString
110: Func Addr64ToAddr32(const Value: TJclAddr64): TJclAddr32;
111: Func Addr32ToAddr64(const Value: TJclAddr32): TJclAddr64;
112: Func AdjustLineBreaksS(const S:Str):Str)
113: TTextLineBreakStyle', '(tlbsLF, tlbsCRLF)
114: Func AdjustLineBreaks(const S:Str; Style: TTextLineBreakStyle):Str;
115: Func AllData :Str
116: Func AllocMemCount: Int;
117: Func AllocMemSize: Int;
118: Func AllocPatternBitmap( BkColor, FgColor : TColor) : TBitmap
119: Func AllowRegKeyForEveryone( Key : HKEY; Path :Str) :Bool
120: Func AlphaComponent( const Color32 : TColor32) : Int
121: Func AlphaSort :Bool
122: Func AlphaSort( ARecurse :Bool) :Bool
123: Func AnsiCat( const x, y : Ansistr) : Ansistr
124: Func AnsiCompareFileName( S1, S2 :Str) : Int
125: Func AnsiCompareFileName(const S1:Str; const S2:Str): Int)
126: Func AnsiCompareStr( S1, S2 :Str) : Int
127: Func AnsiCompareStr(const S1:Str; const S2:Str): Int;)
128: Func AnsiCompareText( S1, S2 :Str) : Int
129: Func AnsiCompareText(const S1:Str; const S2:Str): Int;)
130: Func AnsiContainsStr( const AText, ASubText :Str) :Bool
131: Func AnsiContainsText( const AText, ASubText :Str) :Bool
132: Func AnsiCopy( const src : Ansistr; index, count : Int) : Ansistr
133: Func AnsiDequotedStr( S :Str; AQuote : Char) :Str
134: Func AnsiEndsStr( const ASubText, AText :Str) :Bool
135: Func AnsiEndsText( const ASubText, AText :Str) :Bool
136: Func AnsiExtractQuotedStr( var Src : PChar; Quote : Char) :Str
137: Func AnsiExtractQuotedStr(var Src: PChar; Quote: Char):Str)
138: Func AnsiIndexStr( const AText :Str; const AValues : array of string) : Int
139: Func AnsiIndexText(const AText:str; const AValues:array of string):Int
140: Func AnsiLastChar( S :Str) : PChar
141: Func AnsiLastChar(const S:Str): PChar)
142: Func AnsiLeftStr( const AText : Ansistr; const ACount : Int) : Ansistr
143: Func AnsiLowerCase( S :Str) :Str
144: Func AnsiLowercase(s :Str) :Str;
145: Func AnsiLowerCaseFileName( S :Str) :Str
146: Func AnsiMatchStr( const AText:str; const AValues:array of string):Bool
147: Func AnsiMatchText(const AText:str; const AValues: array of string):Bool
148: Func AnsiMidStr(const AText: Ansistr; const AStart, ACount: Int): Ansistr
149: Func AnsiPos( const src, sub : Ansistr) : Int
150: Func AnsiPos( Substr, S :Str) : Int
151: Func AnsiPos(const Substr:Str; const S:Str): Int;)
152: Func AnsiQuotedStr( S :Str; Quote : Char) :Str
153: Func AnsiReplaceStr( const AText, AFromText, AToText :Str) :Str
154: Func AnsiReplaceText( const AText, AFromText, AToText :Str) :Str
155: Func AnsiResemblesText( const AText, AOther :Str) :Bool
156: Func AnsiReverseString( const AText : Ansistr) : Ansistr
157: Func AnsiRightStr( const AText : Ansistr; const ACount : Int) : Ansistr
158: Func AnsiSameCaption(const Text1:Str; const Text2:Str):Bool)
159: Func AnsiSameStr( S1, S2 :Str) :Bool
160: Func AnsiSameStr(const S1:Str; const S2:Str):Bool)
161: Func AnsiSameText( const S1, S2 :Str) :Bool
162: Func AnsiSameText( S1, S2 :Str) :Bool
163: Func AnsiSameText(const S1:Str; const S2:Str):Bool)
164: Func AnsiStartsStr( const ASubText, AText :Str) :Bool
165: Func AnsiStartsText( const ASubText, AText :Str) :Bool
166: Func AnsiStrComp( S1, S2 : PChar) : Int
167: Func AnsiStrComp(S1: PChar; S2: PChar): Int)
168: Func AnsiStrIComp( S1, S2 : PChar) : Int
169: Func AnsiStrIComp(S1: PChar; S2: PChar): Int)
170: Func AnsiStrLastChar( P : PChar) : PChar
171: Func AnsiStrLastChar(P: PChar): PChar)
172: Func AnsiStrLComp( S1, S2 : PChar; MaxLen :Card) : Int
173: Func AnsiStrLIComp( S1, S2 : PChar; MaxLen :Card) : Int
174: Func AnsiStrLower( Str : PChar) : PChar

175: Func AnsiStrPos( Str, SubStr : PChar) : PChar

176: Func AnsiStrPos(Str: PChar; SubStr: PChar): PChar)
177: Func AnsiStrScan(Str: PChar; Chr: Char): PChar)
178: Func AnsiStrUpper( Str : PChar) : PChar
179: Func AnsiToUtf8( const S :Str) : UTF8String
180: Func AnsiToUtf8Ex( const S :Str; const cp : Int) : UTF8String
181: Func AnsiUpperCase( S :Str) :Str
182: Func AnsiUppercase(s :Str) :Str;
183: Func AnsiUpperCaseFileName( S :Str) :Str
184: Func ApplyUpdates(const Delta:OleVariant;MaxErrors:Int;out ErrorCount:Int): OleVariant
185: Func ApplyUpdates(const Delta:OleVariant;MaxErrors: Int;out ErrorCount:Int): OleVariant;
186: Func ApplyUpdates( MaxErrors : Int) : Int
187: Func ApplyUpdates1(const Delta:OleVar;MaxErrs:Int;out ErrCount:Int;var OwnerData:OleVar):OleVariant;
188: Func ArcCos(const X : Extended) : Extended
189: Func ArcCosh(const X : Extended) : Extended
190: Func ArcCot(const X : Extended) : Extended
191: Func ArcCotH(const X : Extended) : Extended
192: Func ArcCsc(const X : Extended) : Extended
193: Func ArcCscH(const X : Extended) : Extended
194: Func ArcSec(const X : Extended) : Extended
195: Func ArcSecH(const X : Extended) : Extended
196: Func ArcSin(const X : Extended) : Extended
197: Func ArcSinh(const X : Extended) : Extended
198: Func ArcTan(const X : Extended) : Extended
199: Func ArcTan2(const Y, X : Extended) : Extended
200: Func ArithmeticMean(const X : TDynDoubleArray) : Float
201: Func ArrayLength: Int;
202: Func AsHex( const AValue : T4x4LongWordRecord):Str
203: Func AsHex( const AValue : T5x4LongWordRecord):Str
204: Func ASNDecLen( var Start : Int; const Buffer :Str) : Int
205: Func ASNDecOIDItem( var Start : Int; const Buffer :Str) : Int
206: Func ASNEncInt( Value : Int) :Str
207: Func ASNEncLen( Len : Int) :Str
208: Func ASNEncOIDItem( Value : Int) :Str
209: Func ASNEncUInt( Value : Int) :Str
210: Func ASNItem(var Start: Int; const Buffer:str; var ValueType:Int):str
211: Func ASNObject( const Data :Str; ASNType : Int) :Str
212: Func Assigned(I: Longint):Bool;
213: Func AspectRatio(aWidth, aHeight: Int):Str;
214: Func AsWideString( Field : TField) : WideString
215: Func AtLeast( ACount : Int) :Bool
216: Func AttemptToUseSharedMemoryManager :Bool
217: Func Authenticate :Bool
218: Func AuthenticateUser( const AUsername, APassword :Str) :Bool
219: Func Authentication :Str
220: Func BatchMove( ASource : TBDEDataSet; AMode : TBatchMode) : Longint
221: Func BcdCompare( const bcd1, bcd2 : TBcd) : Int
222: Func BcdFromBytes( const AValue : TBytes) : TBcd
223: Func BcdPrecision( const Bcd : TBcd) : Word
224: Func BcdScale( const Bcd : TBcd) : Word
225: Func BcdToBytes( const Value : TBcd) : TBytes
226: Func BCDToCurr( const BCD : TBcd; var Curr : Currency) :Bool
227: Func BcdToDouble( const Bcd : TBcd) : Double
228: Func BcdToInt( const Bcd : TBcd; Truncate :Bool) : Int
229: Func BcdToStr( const Bcd : TBcd) :Str;
230: Func BcdToStrF(const Bcd:TBcd;Format:TFloatFormat;const Precision,Digits:Int):str
231: Func beep2(dwFreq, dwDuration: Int):Bool;
232: Func BeginPeriod( const Period :Card) :Bool
233: Func BeginTrans : Int
234: Func BeginTransaction : TDBXTransaction;
235: Func BeginTransaction1( Isolation : TDBXIsolation) : TDBXTransaction;
236: Func BigMulu(aone, atwo:Str):Str;
237: Func BigNumber(aone, atwo:Str):Str;
238: Func BigExp(aone,atwo:Str):Str;
239: Func BigMul(aone,atwo:Str):Str;
240: Func BigAdd(aone,atwo:Str):Str;
241: Func BigSub(aone,atwo:Str):Str;
242: Func BigFactorial(aone:Str):Str;
243: Func BinaryToDouble( ABinary :Str; DefValue : Double): Double
244: Func BinomialCoeff( N, R :Card) : Float
245: Func BinominalCoefficient(n, k: Int):Str;
246: Func BinStrToInt( const ABinary :Str) : Int
247: Func BinToByte(Binary:Str): Byte;
248: Func BinToHex2(Binary:Str):Str;
249: Func BinToInt(Binary:Str): Int;
250: Func BinToChar(St:Str): Char;
251: Func BinToStr(ans:Str):Str;
252: Func BitBlt(hdcDest:HDC;nXDest,nYDest,nWidth,nHeigh:Int;hdcSrc:HDC;nXSrc,nYSrc:Int;dwRop:DWORD):Bool;
253: Func BitmapsAreIdentical( ABitmap1, ABitmap2 : TBitmap) :Bool
254: Func BitsHighest( X: Byte) : Int;
255: Func BitsHighest1(X: ShortInt) : Int;
256: Func BitsHighest2(X: SmallInt) : Int;
257: Func BitsHighest3(X: Word) : Int;
258: Func BitsHighest4(X: Int) : Int;
259: Func BitsHighest5(X:Card) : Int;
260: Func BitsHighest6(X: Int64) : Int;
261: Func BitsLowest( X: Byte) : Int;
262: Func BitsLowest1(X: Shortint) : Int;
263: Func BitsLowest2(X: Smallint) : Int;

264: Func BitsLowest3(X: Word) : Int;

265: Func BitsLowest4(X:Card) : Int;
266: Func BitsLowest5(X: Int) : Int;
267: Func BitsLowest6(X: Int64) : Int;
268: Func BitsNeeded( const X : Byte) : Int;
269: Func BitsNeeded1(const X : Word) : Int;
270: Func BitsNeeded2(const X : Int) : Int;
271: Func BitsNeeded3(const X : Int64) : Int;
272: Func BlueComponent(const Color32 : TColor32) : Int
273: Func BooleanToInt( const Pb :Bool) : Int
274: Func BoolToStr(B:Bool; UseBoolStrs:Bool):Str)
275: Func BoolToStr1(value :Bool) :Str;
276: Func booltoint( aBool :Bool) : LongInt
277: Func inttobool( aInt : LongInt) :Bool
278: Func Bounds( ALeft, ATop, AWidth, AHeight : Int) : TRect
279: Func Bounds(ALeft, ATop, AWidth, AHeight: Int): TRect)
280: Func BreakApart(BaseString,BreakString:str;StringList: TStrings): TStrings
281: Func BrightColor( const Color : TColor; const Pct : Single) : TColor
282: Func BrightColorChannel( const Channel : Byte; const Pct : Single) : Byte
283: Func BufferRequest( Length : Int) : TStream
284: Func BuildFileList(const Path:Str;const Attr:Int;const List:TStrings):Bool
285: Func Buttons: PTaskDialogButton
286: Func BytesPerScanline(PixelsPerScanline,BitsPerPixel,Alignment:Longint):Longint
287: Func BytesToCardinal( const AValue : TIdBytes; const AIndex : Int) :Card
288: Func BytesToChar( const AValue : TIdBytes; const AIndex : Int) : Char
289: Func BytesToInt64( const AValue : TIdBytes; const AIndex : Int) : Int64
290: Func BytesToInt( const AValue : TIdBytes; const AIndex : Int) : Int
291: Func BytesToIPv6( const AValue : TIdBytes; const AIndex : Int) : TIdIPv6Address
292: Func BytesToShort( const AValue : TIdBytes; const AIndex : Int) : Short
293: Func BytesToString(ABytes:TIdBytes; AStartIndex:Int; AMaxCount:Int):Str;
294: Func BytesToStr(const Value: TBytes):Str;
295: Func BytesToWord( const AValue : TIdBytes; const AIndex : Int) : Word
296: Func ByteToBin(Int: Byte):Str;
297: Func ByteToCharIndex( S :Str; Index : Int) : Int
298: Func ByteToCharIndex(const S:Str; Index: Int): Int)
299: Func ByteToCharLen( S :Str; MaxLen : Int) : Int
300: Func ByteToCharLen(const S:Str; MaxLen: Int): Int)
301: Func ByteToHex( const AByte : Byte) :Str
302: Func ByteToOctal( const AByte : Byte) :Str
303: Func ByteType( S :Str; Index : Int) : TMbcsByteType
304: Func ByteType(const S:Str; Index: Int): TMbcsByteType)
305: Func CalcTitleRect( Col : TColumn; ARow : Int; var MasterCol:TColumn):TRect
306: Func CalculateDFAFingerprint( oStates : TList) : Int
307: Func CallTerminateProcs:Bool)
308: Func CANFOCUS:BOOLEAN
309: Func CanLoad( const Ext :Str) :Bool
310: Func CanParse( AWebRequest : TWebRequest) :Bool
311: Func CanSave( const Ext :Str) :Bool
312: Func CanStart( cChar : char) :Bool
313: Func CaptureScreen : TBitmap;
314: Func CaptureScreen1( Rec : TRect) : TBitmap;
315: Func CardinalToFourChar( ACardinal : LongWord) :Str
316: Func CastSoapToNative(Info:PTypeInfo;const SoapData:WideString;NatData:Pointer;IsNull:Bool):Bool
317: Func CastSoapToVariant1(SoapInfo:PTypeInfo;const SoapData:WideString):Variant;
318: Func Ceil( const X : Extended) : Int
319: Func Ceil16( X : Int) : Int
320: Func Ceil4( X : Int) : Int
321: Func Ceil8( X : Int) : Int
322: Func Ceiling( const X : Extended) : Int
323: Func CellRect( ACol, ARow : Longint) : TRect
324: Func CelsiusToFahrenheit( const AValue : Double) : Double
325: Func CenterPoint( const Rect : TRect) : TPoint
326: Func CenterPoint(const Rect: TRect): TPoint)
327: Func ChangeFileExt( FileName, Extension :Str) :Str
328: Func ChangeFileExt(const FileName:Str; const Extension:Str):Str)
329: Func CharInSet2( const Ch : Char; const SetOfChar : TSetOfChar) :Bool
330: Func CharInSet( const Ch : Char; const testSet: TSysCharSet):Bool
331: Func CharIsInEOF( const AString :Str; ACharPos : Int) :Bool
332: Func CharIsInSet(const AString:str;const ACharPos:Int;const ASet:str):Bool
333: Func CharLength( S :Str; Index : Int) : Int
334: Func CharRange( const AMin, AMax : Char) :Str
335: Func CharsetToIdent(Charset: Longint; var Ident:Str):Bool)
336: Func CharToBin(vChr: Char):Str;
337: Func CharNext(lpsz: PChar): PChar; stdcall;
338: Func CharToByteIndex( S :Str; Index : Int) : Int
339: Func CharToByteIndex(const S:Str; Index: Int): Int)
340: Func CharToByteLen( S :Str; MaxLen : Int) : Int
341: Func CharToByteLen(const S:Str; MaxLen: Int): Int)
342: Func CharToHex(const APrefix :Str; const cc : Char) : shortstring;
343: Func CharToHexStr(Value: char):Str);
344: Func CharToOem(ins, outs: PChar):boolean;
345: Func CharToUniCode(Value: Char):Str;
346: Func CheckMenuDropdown :Bool
347: Func CheckMessages : longint
348: Func CheckBox:Str;
349: Func CheckOpen( Status : DBIResult) :Bool
350: Func CheckPassword( const APassword :Str) :Bool
351: Func CheckResponse(const AResponse:SmallInt;const AAllowedResponses:array of SmallInt):SmallInt
352: Func CheckCrc32( var X : array of Byte; N : Int; Crc :Card) : Int;

353: Func CheckSynchronize(Timeout: Int):Bool

354: Func CheckWin32Version( AMajor : Int; AMinor : Int) :Bool
355: Func CheckCom(AComNumber: Int): Int;;
356: Func CheckLPT1:Str;;
357: Func ChrA(const a: byte): char;
358: Func ClassIDToProgID(const ClassID: TGUID):Str;
359: Func ClassNameIs(const Name:Str):Bool
360: Func ClearBit( const Value : Byte; const Bit : TBitRange) : Byte;
361: Func ClearBit1(const Value : Shortint; const Bit : TBitRange) : Shortint;
362: Func ClearBit2(const Value : Smallint; const Bit : TBitRange) : Smallint;
363: Func ClearBit3(const Value : Word; const Bit : TBitRange) : Word;
364: Func ClearBit4(const Value : Int; const Bit : TBitRange) : Int;
365: Func ClearBit5(const Value :Card; const Bit : TBitRange) :Card;
366: Func ClearBit6(const Value : Int64; const Bit : TBitRange) : Int64;
367: Func CLIENTTOSCREEN(POINT:TPOINT):TPOINT
368: Func Clipboard : TClipboard
369: Func ClipCodes( const X, Y, MinX, MinY, MaxX, MaxY : Float) : TClipCodes;
370: Func ClipCodes1( const X, Y : Float; const ClipRect : TRect) : TClipCodes;
371: Func ClipLine( var X1, Y1, X2, Y2 : Int; const ClipRect : TRect) :Bool;
372: Func ClipLineToRect(var P1,P2:TFloatPoint;const Rect:TFloatRect) :Bool
373: Func Clone( out stm : IStream) : HResult
374: Func CloneConnection : TSQLConnection
375: Func CloneMemoryStream( Original : TMemoryStream) : TMemoryStream
376: Func CLOSEQUERY:BOOLEAN
377: Func CloseVolume( var Volume : THandle) :Bool
378: Func CloseHandle(Handle: Int): Int; stdcall;
379: Func CPlApplet(hwndCPl:THandle;uMsg:DWORD;lParam1,lParam2:Longint):Longint
380: Func CmdLine: PChar;
381: Func CmdShow: Int;
382: // type TPos = (tLat, tLon);TShowFmt = (sfNautical, sfStatute, sfMetric);
383: Func CoordinateStr(Idx: Int; PosInSec: Double; PosLn: TPos):Str;
384: Func Color32(const R, G, B : Byte; const A : Byte) : TColor32;
385: Func Color32(WinColor : TColor) : TColor32;
386: Func Color321(const Index : Byte; const Palette : TPalette32) : TColor32;
387: Func ColorAdjustLuma( clrRGB : TColor; n : Int; fScale :BOOLean) : TColor
388: Func ColorHLSToRGB( Hue, Luminance, Saturation : Word) : TColorRef
389: Func ColorToHTML( const Color : TColor) :Str
390: Func ColorToIdent(Color: Longint; var Ident:Str):Bool)
391: Func ColorToRGB(color: TColor): Longint
392: Func ColorToString(Color: TColor):Str)
393: Func ColorToWebColorName( Color : TColor) :Str
394: Func ColorToWebColorStr( Color : TColor) :Str
395: Func ColumnAtDepth( Col : TColumn; ADepth : Int) : TColumn
396: Func Combination(npr, ncr: Int): extended;
397: Func CombinationInt(npr, ncr: Int): Int64;
398: Func CombineInfo( Bitmap : TCustomBitmap32) : TCombineInfo
399: Func CommaAdd( const AStr1, AStr2 :Str) :Str
400: Func CommercialRound( const X : Extended) : Int64
401: Func Commit( grfCommitFlags : Longint) : HResult
402: Func Compare( const NameExt :Str) :Bool
403: Func CompareDate(const A, B: TDateTime): TValueRelationship;
404: Func CompareDateTime( const ADateTime1, ADateTime2 : TDateTime) : Int
405: Func CompareFiles(const FN1,FN2:str;Breathe:TNotifyEvent;BreathingSender:TObject):bool
406: Func CompareMemoryStreams( S1, S2 : TMemoryStream) :Bool
407: Func CompareStr( S1, S2 :Str) : Int
408: Func CompareStr(const S1:Str; const S2:Str): Int)
409: Func CompareString(const S1:Str; const S2:Str): Int)
410: Func CompareText( S1, S2 :Str) : Int
411: Func CompareText(const S1:Str; const S2:Str): Int)
412: Func CompareTextLike(cWildStr,cStr:str;const cWildChar:char;lCaseSensitive:bool):bool
413: Func CompareTime(const A, B: TDateTime): TValueRelationship;
414: Func CompareValueE(const A,B:Extended;Epsilon:Extended= 0):TValueRelationship; overload;
415: Func CompareValueD(const A, B:Double; Epsilon:Double = 0):TValueRelationship; overload;
416: Func CompareValueS(const A, B: Single; Epsilon: Single = 0): TValueRelationship; overload;
417: Func CompareValueI(const A, B: Int): TValueRelationship; overload;
418: Func CompareValueI64(const A, B: Int64): TValueRelationship; overload;
419: Func CompatibleConversionType(const AType:TConvType; const AFamily : TConvFamily):Boolean
420: Func CompatibleConversionTypes( const AFrom, ATo : TConvType) :Bool
421: Func ComponentTypeToString( const ComponentType : DWORD) :Str
422: Func ComposeDateTime(Date,Time : TDateTime) : TDateTime;;
423: Func ComponentToStringProc(Component: TComponent):Str;
424: Func StringToComponentProc(Value:Str): TComponent;
425: Func CompToCurrency( Value : Comp) : Currency
426: Func CompToDouble( Value : Comp) : Double
427: Func ComputeFileCRC32(const FileName :Str) : Int;
428: Func ComputeSHA256(astr:Str; amode: char):Str) //mode F:File, S:str
429: Func ComputeSHA512(astr:Str; amode: char):Str) //mode F:File, S:str
430: Func ComPortSelect: Int; // Search for the first available port
431: Func Concat(s:Str):Str
432: Func ConnectAndGetAll :Str
433: Func Connected :Bool
434: Func constrain(x, a, b: Int): Int;
435: Func ConstraintCallBack(Req:DsInfoReq;var ADataSources:DataSources): DBIResult
436: Func ConstraintsDisabled :Bool
437: Func CONTAINSCONTROL(CONTROL:TCONTROL):BOOLEAN
438: Func ContainsState( oState : TniRegularExpressionState) :Bool
439: Func ContainsStr( const AText, ASubText :Str) :Bool
440: Func ContainsText( const AText, ASubText :Str) :Bool
441: Func ContainsTransition(oTransition:TniRegularExpressionTransition):boolean

442: Func Content:Str

443: Func ContentFromStream( Stream : TStream) :Str
444: Func ContentFromString( const S :Str) :Str
445: Func CONTROLSDISABLED :Bool
446: Func Convert( const AValue : Double; const AFrom, ATo : TConvType) : Double;
447: Func Convert1(const AValue:Double;const AFrom1,AFrom2,ATo1,ATo2:TConvType):Double;
448: Func ConvertFrom( const AFrom : TConvType; const AValue : Double) : Double
449: Func ConvertReadStream( Stream : TStream; Buffer : PChar; BufSize : Int) : Int
450: Func ConvertTo( const AValue : Double; const ATo : TConvType) : Double
451: Func ConvertWriteStream( Stream : TStream; Buffer : PChar; BufSize : Int) : Int
452: Func ConvFamilyToDescription( const AFamily : TConvFamily) :Str
453: Func ConvTypeToDescription( const AType : TConvType) :Str
454: Func ConvTypeToFamily( const AFrom, ATo : TConvType) : TConvFamily;
455: Func ConvTypeToFamily( const AType : TConvType) : TConvFamily;
456: Func ConvAdd(const AVal:Dbl;const AType1:TConvType;const AVal2:Dbl;const AType2,
AResultType:TConvType):Double
457: Func ConvCompareValue(const AValue1:Double;const AType1:TConvType;const AValue2:Double;const
AType2:TConvType):TValueRelationship
458: Func ConvDec( const AValue:Double;const AType,AAmountType:TConvType):Double;
459: Func ConvDec1(const AValue:Dbl;const AType:TConvType;const AAmount:Dble;const
AAmountType:TConvType):Double;
460: Func ConvDiff(const AVal1:Dbl;const AType1:TConvType;const AVal2:Dble;const AType2,
AResuType:TConvType):Double
461: Func ConvInc( const AValue:Double; const AType,AAmountType:TConvType):Double;
462: Func ConvInc1(const AValue:Dbl;const AType:TConvType;const AAmount:Double;const
AAmountType:TConvType):Double;
463: Func ConvSameValue(const AValue1:Dbl;const AType1:TConvType;const AValue2:Dbl;const AType2:TConvType):Bool
464: Func ConvToStr( const AValue : Double; const AType : TConvType) :Str
465: Func ConvWithinNext( const AValue, ATest : Double; const AType : TConvType; const AAmount : Double; const
AAmountType : TConvType) :Bool
466: Func ConvWithinPrevious(const AValue,ATest:Double;const AType:TConvType;const AAmount:Double;const
AAmountType: TConvType) :Bool
467: Func Copy(s: AnyString; iFrom, iCount: Longint): AnyString;
468: Func CopyFile( Source, Dest :Str; CanOverwrite :Bool) : Bool
469: Func CopyFileEx( Source, Dest :Str; Flags : FILEOP_FLAGS) : Bool
470: Func CopyFileTo( const Source, Destination :Str) :Bool
471: Func CopyFrom(Source:TStream;Count:Int64):LongInt
472: Func CopyPalette( Palette : HPALETTE) : HPALETTE
473: Func CopyTo( Length : Int) :Str
474: Func CopyTo(stm:IStream;cb:Largeint;out cbRead:Largeint;out cbWritten:Largeint):HResult
475: Func CopyToEOF :Str
476: Func CopyToEOL :Str
477: Func Cos(e : Extended) : Extended;
478: Func Cosecant( const X : Extended) : Extended
479: Func Cot( const X : Extended) : Extended
480: Func Cotan( const X : Extended) : Extended
481: Func CotH( const X : Extended) : Extended
482: Func Count : Int
483: Func CountBitsCleared( X:Byte) : Int;
484: Func CountBitsCleared1(X:Shortint) : Int;
485: Func CountBitsCleared2(X:Smallint) : Int;
486: Func CountBitsCleared3(X:Word) : Int;
487: Func CountBitsCleared4(X:Int) : Int;
488: Func CountBitsCleared5(X:Card) : Int;
489: Func CountBitsCleared6(X:Int64) : Int;
490: Func CountBitsSet( X:Byte) : Int;
491: Func CountBitsSet1(X:Word) : Int;
492: Func CountBitsSet2(X:Smallint) : Int;
493: Func CountBitsSet3(X:ShortInt) : Int;
494: Func CountBitsSet4(X:Int) : Int;
495: Func CountBitsSet5(X:Card) : Int;
496: Func CountBitsSet6(X:Int64) : Int;
497: Func countDirfiles(const apath:Str): Int;
498: Func CountGenerations(Ancestor,Descendent: TClass): Int
499: Func Coversine( X : Float) : Float
500: Func CRC32(const fileName:Str): LongWord;
501: Func CREATEBLOBSTREAM( FIELD : TFIELD; MODE : TBLOBSTREAMMODE) : TSTREAM
502: Func CreateColumns : TDBGridColumns
503: Func CreateDataLink : TGridDataLink
504: Func CreateDir( Dir :Str) :Bool
505: Func CreateDir(const Dir:Str):Bool)
506: Func CreateDOSProcessRedirected(const CommandLine,InputFile,OutputFile:str): Bool
507: Func CreateEnvironmentBlock(const Options:TEnvironmentOptions;const AdditionalVars:TStrings):PChar
508: Func CREATEFIELD(OWNER:TCOMPONENT;PARENTFIELD:TOBJECTFIELD;const FIELDNAME:str;CREATECHILDREN:BOOL):TFIELD
509: Func CreateGlobber( sFilespec :Str) : TniRegularExpression
510: Func CreateGrayMappedBmp( Handle : HBITMAP) : HBITMAP
511: Func CreateGrayMappedRes( Instance : THandle; ResName : PChar) : HBITMAP
512: Func CreateGUID(out Guid: TGUID): HResult)
513: Func CreateInstance( const unkOuter: IUnknown;const iid:TGUID; out obj):HResult
514: Func CreateMappedBmp(Handle : HBITMAP; const OldColors,NewColors:array of TColor):HBITMAP
515: Func CreateMappedRes(Instance:THandle;ResName:PChar;const OldColors,NewColors:array of TColor):HBITMAP
516: Func CreateMessageDialog(const Msg:str;DlgType:TMsgDlgType;Buttons:TMsgDlgButtons):TForm;
517: Func CreateMessageDialog1(const Msg:str;DlgType:TMsgDlgType;Btns:TMsgDlgBtns;DefaultBtn:TMsgDlgBtn):TForm;
518: Func CreateOleObject(const ClassName:Str): IDispatch;
519: Func CREATEPARAM(FLDTYPE:TFIELDTYPE;const PARAMNAME:str; PARAMTYPE:TPARAMTYPE): TPARAM
520: Func CreateParameter(const
Name:WideString;DataType:TDataType;Direction:TParameterDirection;Size:Int;Value: OleVariant):TParameter
521: Func CreateLocate( DataSet : TDataSet) : TJvLocateObject
522: Func CreateMappedBmp(Handle: HBITMAP;const OldColors,NewColors:array of TColor) :HBITMAP

523: Func CreateMappedRes(Instance:THandle;ResName:PChar;const OldColors,NewColors:array of TColor):HBITMAP

524: Func CreateMutex2(lpMutexAttributes:TObject;bInitialOwner:BOOL;lpName:PChar): THandle;
525: Func CreateSemaphore2(lpSemaphoreAttributes:TObject;lInitialCount,
lMaximumCount:Longint;lpName:PChar):THandle;
526: //Ex.: vMutex := CreateMutex2(Nil, True, MutexName);
527: Func IPAddrToName // ShowMessage(IPAddrToName(LocalIp));
528: Func CreateRecordBuffer( Length : Int) : TRecordBuffer
529: Func CreateValueBuffer( Length : Int) : TValueBuffer
530: Func CreatePopupCalculator(AOwner:TComponent;ABiDiMode:TBiDiMode):TWinControl
531: Func CreateRecordBuffer( Length : Int) : TRecordBuffer
532: Func CreateRotatedFont( Font : TFont; Angle : Int) : HFONT
533: Func CreateTwoColorsBrushPattern( Color1, Color2 : TColor) : TBitmap
534: Func CreateValueBuffer( Length : Int) : TValueBuffer
535: Func CreateHexDump( AOwner : TWinControl) : THexDump
536: Func Csc( const X : Extended) : Extended
537: Func CscH( const X : Extended) : Extended
538: Func currencyDecimals: Byte
539: Func currencyFormat: Byte
540: Func currencyString:Str
541: Func CurrentProcessId : TIdPID
542: Func CurrentReadBuffer :Str
543: Func CurrentThreadId : TIdPID
544: Func CurrentYear : Word
545: Func CurrToBCD(const Curr:Currency;var BCD:TBcd;Precision:Int;Decimals:Int):Bool
546: Func CurrToStr( Value : Currency) :Str;
547: Func CurrToStrF(Value:Currency;FormatSettings:TFormatSettings;Digits:Int):str;
548: Func CurrToStrFS(Value:Currency;Format:TFloatFormat;Digits:Int;const FormatSettings:TFormatSettings):str;
549: Func CursorToIdent(cursor: Longint; var Ident:Str):Bool;
550: Func CursorToString(cursor: TCursor):Str;
551: Func CustomSort( SortProc : TLVCompare; lParam : Longint) :Bool
552: Func CustomSort(SortProc:TTVCompare;Data:Longint;ARecurse :Bool):Boolean
553: Func CycleToDeg( const Cycles : Extended) : Extended
554: Func CycleToGrad( const Cycles : Extended) : Extended
555: Func CycleToRad( const Cycles : Extended) : Extended
556: Func D2H( N : Longint; A : Byte) :Str
557: Func DarkColor( const Color : TColor; const Pct : Single) : TColor
558: Func DarkColorChannel( const Channel: Byte; const Pct : Single) : Byte
559: Func DataLinkDir :Str
560: Func DataRequest( Data : OleVariant) : OleVariant
561: Func DataRequest( Input : OleVariant) : OleVariant
562: Func DataToRawColumn( ACol : Int) : Int
563: Func Date : TDateTime
564: Func Date: TDateTime;
565: Func DateIsNull( const pdtValue : TDateTime; const pdtKind : TdtKind):Boolean
566: Func DateOf( const AValue : TDateTime) : TDateTime
567: Func DateSeparator: char;
568: Func DateTimeGMTToHttpStr( const GMTValue : TDateTime) :Str
569: Func DateTimeToFileDate( DateTime : TDateTime) : Int
570: Func DateTimeToFileDate(DateTime: TDateTime): Int;
571: Func DateTimeToGmtOffSetStr( ADateTime : TDateTime; SubGMT :Bool):Str
572: Func DateTimeToInternetStr(const Value:TDateTime;const AIsGMT:Boolean) String
573: Func DateTimeToJulianDate( const AValue : TDateTime) : Double
574: Func DateTimeToModifiedJulianDate( const AValue : TDateTime) : Double
575: Func DateTimeToStr( DateTime : TDateTime) :Str;
576: Func DateTimeToStr2(DateTime: TDateTime;FormatSettings:TFormatSettings):str;
577: Func DateTimeToTimeStamp(DateTime: TDateTime): TTimeStamp
578: Func DateTimeToUnix( const AValue : TDateTime) : Int64
579: Func DateTimeToUnix(D: TDateTime): Int64;
580: Func DateToStr( DateTime : TDateTime) :Str;
581: Func DateToStr(const DateTime: TDateTime):Str;
582: Func DateToStr(D: TDateTime):Str;
583: Func DateToStr2(DateTime:TDateTime;FormatSettings:TFormatSettings):str;
584: Func DayOf( const AValue : TDateTime) : Word
585: Func DayOfTheMonth( const AValue : TDateTime) : Word
586: Func DayOfTheMonth(const AValue: TDateTime): Word;
587: Func DayOfTheWeek( const AValue : TDateTime) : Word
588: Func DayOfTheYear( const AValue : TDateTime) : Word
589: Func DayOfTheYear(const AValue: TDateTime): Word;
590: Func DayOfWeek( DateTime : TDateTime) : Word
591: Func DayOfWeek(const DateTime: TDateTime): Word;
592: Func DayOfWeekStr( DateTime : TDateTime) :Str
593: Func DaysBetween( const ANow, AThen : TDateTime) : Int
594: Func DaysInAMonth( const AYear, AMonth : Word) : Word
595: Func DaysInAYear( const AYear : Word) : Word
596: Func DaysInMonth( const AValue : TDateTime) : Word
597: Func DaysInYear( const AValue : TDateTime) : Word
598: Func DaySpan( const ANow, AThen : TDateTime) : Double
599: Func DBUseRightToLeftAlignment( AControl : TControl; AField : TField) :Bool
600: Func DecimalSeparator: char;
601: Func DecLimit( var B : Byte; const Limit : Byte; const Decr : Byte) : Byte;
602: Func DecLimit1(var B:Shortint;const Limit:Shortint const Decr:Shortint):Shortint;
603: Func DecLimit2(var B:Smallint;const Limit:Smallint;const Decr:Smallint):Smallint;
604: Func DecLimit3( var B : Word; const Limit : Word; const Decr : Word) : Word;
605: Func DecLimit4( var B : Int; const Limit : Int; const Decr : Int) : Int;
606: Func DecLimit5(var B Cardinal;const Limit Cardinal;const Decr:Card):Card;
607: Func DecLimit6(var B:Int64;const Limit : Int64; const Decr : Int64) : Int64;
608: Func DecLimitClamp(var B:Byte; const Limit : Byte; const Decr : Byte) : Byte;
609: Func DecLimitClamp1(var B:Shortint;const Limit:Shortint;const Decr:Shortint): Shortint;
610: Func DecLimitClamp2(var B:Smallint;const Limit: Smallint;const Decr: Smallint): Smallint;

611: Func DecLimitClamp3(var B:Word;const Limit: Word; const Decr : Word) : Word;
612: Func DecLimitClamp4( var B : Int; const Limit : Int; const Decr : Int) : Int;
613: Func DecLimitClamp5(var B:Card;const Limit:Card; const Decr:Card) Cardinal;
614: Func DecLimitClamp6(var B: Int64; const Limit:Int64; const Decr:Int64): Int64;
615: Func DecodeDateFully(DateTime: TDateTime; var Year,Month,Day,DOW:Word):Bool
616: Func DecodeSoundexInt( AValue : Int) :Str
617: Func DecodeSoundexWord( AValue : Word) :Str
618: Func DefaultAlignment : TAlignment
619: Func DefaultCaption :Str
620: Func DefaultColor : TColor
621: Func DefaultFont : TFont
622: Func DefaultImeMode : TImeMode
623: Func DefaultImeName : TImeName
624: Func DefaultReadOnly :Bool
625: Func DefaultWidth : Int
626: Func DegMinSecToFloat( const Degs, Mins, Secs : Float) : Float
627: Func DegToCycle(const Degrees : Extended) : Extended
628: Func DegToGrad(const Degrees : Extended) : Extended
629: Func DegToGrad(const Value : Extended) : Extended;
630: Func DegToGrad1(const Value : Double) : Double;
631: Func DegToGrad2(const Value : Single) : Single;
632: Func DegToRad(const Degrees : Extended) : Extended
633: Func DegToRad(const Value : Extended) : Extended;
634: Func DegToRad1(const Value : Double) : Double;
635: Func DegToRad2(const Value : Single) : Single;
636: Func DelChar(const pStr :Str; const pChar : Char) :Str
637: Func DelEnvironmentVar( const Name :Str) :Bool
638: Func Delete( const MsgNum : Int) :Bool
639: Func DeleteDirectory(const DirectoryName:str;MoveToRecycleBin:Boolean):Bool
640: Func DeleteFile(const FileName:Str):Bool)
641: Func DeleteFileEx( FileName :Str; Flags : FILEOP_FLAGS) :Bool
642: Func DelimiterPosn( const sString :Str; const sDelimiters:Str): Int;
643: Func DelimiterPosn1(const sString:str;const sDelimiters:str;out cDelimiter:char):Int;
644: Func DelSpace( const pStr :Str) :Str
645: Func DelString( const pStr, pDelStr :Str) :Str
646: Func DelTree( const Path :Str) :Bool
647: Func Depth: Int
648: Func Description :Str
649: Func DescriptionsAvailable :Bool
650: Func DescriptionToConvFamily(const ADescription:str;out AFamily:TConvFamily):Boolean
651: Func DescriptionToConvType(const ADescription:str;out AType:TConvType):Bool;
652: Func DescriptionToConvType1(const AFamil:TConvFamily;const ADescr:str;out AType:TConvType):Bool;
653: Func DetectUTF8Encoding( const s : UTF8String) : TEncodeType
654: Func DialogsToPixelsX( const Dialogs : Word) : Word
655: Func DialogsToPixelsY( const Dialogs : Word) : Word
656: Func Digits( const X :Card) : Int
657: Func DirectoryExists( const Name :Str) :Bool
658: Func DirectoryExists( Directory :Str) :Bool
659: Func DiskFree( Drive : Byte) : Int64
660: Func DiskFree(Drive: Byte): Int64)
661: Func DiskInDrive( Drive : Char) :Bool
662: Func DiskSize( Drive : Byte) : Int64
663: Func DiskSize(Drive: Byte): Int64)
664: Func DISPATCHCOMMAND( ACOMMAND : WORD):BOOLEAN
665: Func DispatchEnabled :Bool
666: Func DispatchMask : TMask
667: Func DispatchMethodType : TMethodType
668: Func DISPATCHPOPUP( AHANDLE : HMENU) :Bool
669: Func DispatchRequest(Sender:TObject;Request:TWebRequest;Response:TWebResponse):Boolean
670: Func DisplayCase( const S :Str) :Str
671: Func DisplayRect( Code : TDisplayCode) : TRect
672: Func DisplayRect( TextOnly :Bool) : TRect
673: Func DisplayStream( Stream : TStream) :Str
674: TBufferCoord', 'record Char : Int; Line : Int; end
675: TDisplayCoord', 'record Column : Int; Row : Int; end
676: Func DisplayCoord( AColumn, ARow : Int) : TDisplayCoord
677: Func BufferCoord( AChar, ALine : Int) : TBufferCoord
678: Func DomainName( const AHost :Str) :Str
679: Func DownloadFile(SourceFile, DestFile:Str):Bool; //fast!
680: Func DownloadFileOpen(SourceFile, DestFile:Str):Bool; //open process
681: Func DosPathToUnixPath( const Path :Str) :Str
682: Func DottedLineTo( const Canvas : TCanvas; const X, Y : Int) :Bool;
683: Func DoubleDecliningBalance(const Cost,Salvage:Extended;Life,Period:Int):Extended
684: Func DoubleToBcd( const AValue : Double) : TBcd;
685: Func DoubleToHex( const D : Double) :Str
686: Func DoUpdates :Bool
687: Func Dragging:Bool;
688: Func DrawCaption( p1 : HWND; p2 : HDC; const p3 : TRect; p4 : UINT) : BOOL
689: Func DrawAnimatedRects(hwnd: HWND;idAni Int;const lprcFrom,lprcTo: TRect): BOOL
690: Func DrawEdge( hdc : HDC; var qrc : TRect; edge : UINT; grfFlags : UINT) : BOOL
691: Func DrawFrameControl(DC:HDC; const Rect:TRect; uType, uState: UINT) : BOOL
692: {Works like InputQuery but displays 2edits.If PasswordChar<>#0,second edits PasswordChar is set}
693: Func DualInputQuery(const ACapt,Prpt1,Prpt2:str;var AVal1,AVal2:str;PasswrdChar:Char=#0):Bool;
694: Func DupeString( const AText :Str; ACount : Int) :Str
695: Func Edit :Bool
696: Func EditCaption :Bool
697: Func EditText :Bool
698: Func EditFolderList( Folders : TStrings) :Bool
699: Func EditQueryParams(DataSet:TDataSet;List: TParams; AHelpContext:THelpContext): Bool

700: Func Elapsed( const Update :Bool) :Card

701: Func EnableProcessPrivilege(const Enable:Boolean; const Privilege:str):Bool
702: Func EnableThreadPrivilege(const Enable Boolean;const Privilege:str): Bool
703: Func EncodeDate( Year, Month, Day : Word) : TDateTime
704: Func EncodeDate(Year, Month, Day: Word): TDateTime;
705: Func EncodeDateDay( const AYear, ADayOfYear : Word) : TDateTime
706: Func EncodeDateMonthWeek(const AYear,AMonth,AWeekOfMonth ADayOfWeek:Word): TDateTime
707: Func EncodeDateTime(const AYear,AMonth,ADay,AHour,AMinute,ASecond,AMilliSec:Word):TDateTime
708: Func EncodeDateWeek(const AYear,AWeekOfYear:Word;const ADayOfWeek:Word):TDateTime
709: Func EncodeDayOfWeekInMonth(const AYear,AMonth,ANthDayOfWeek,ADayOfWeek Word): TDateTime
710: Func EncodeString( s :Str) :Str
711: Func DecodeString( s :Str) :Str
712: Func EncodeTime( Hour, Min, Sec, MSec : Word) : TDateTime
713: Func EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime;
714: Func EndIP :Str
715: Func EndOfADay( const AYear, AMonth, ADay : Word) : TDateTime;
716: Func EndOfADay1( const AYear, ADayOfYear : Word) : TDateTime;
717: Func EndOfAMonth( const AYear, AMonth : Word) : TDateTime
718: Func EndOfAWeek(const AYear,AWeekOfYear:Word; const ADayOfWeek:Word):TDateTime
719: Func EndOfAYear( const AYear : Word) : TDateTime
720: Func EndOfTheDay( const AValue : TDateTime) : TDateTime
721: Func EndOfTheMonth( const AValue : TDateTime) : TDateTime
722: Func EndOfTheWeek( const AValue : TDateTime) : TDateTime
723: Func EndOfTheYear( const AValue : TDateTime) : TDateTime
724: Func EndPeriod( const Period :Card) :Bool
725: Func EndsStr( const ASubText, AText :Str) :Bool
726: Func EndsText( const ASubText, AText :Str) :Bool
727: Func EnsureMsgIDBrackets( const AMsgID :Str) :Str
728: Func EnsureRange( const AValue, AMin, AMax : Int) : Int;
729: Func EnsureRange1( const AValue, AMin, AMax : Int64) : Int64;
730: Func EnsureRange2( const AValue, AMin, AMax : Double) : Double;
731: Func EOF:Bool
732: Func EOln:Bool
733: Func EqualRect( const R1, R2 : TRect) :Bool
734: Func EqualRect(const R1, R2: TRect):Bool)
735: Func Equals( Strings : TWideStrings) :Bool
736: Func Equals(Strings: TStrings):Bool;
737: Func EqualState(oState: TniRegularExpressionState) :Bool
738: Func ErrOutput: Text)
739: Func ExceptionParam:Str;
740: Func ExceptionPos:Card;
741: Func ExceptionProc:Card;
742: Func ExceptionToString(er: TIFException; Param:Str):Str;
743: Func ExceptionType: TIFException;
744: Func ExcludeTrailingBackslash( S :Str) :Str
745: Func ExcludeTrailingBackslash(const S:Str):Str)
746: Func ExcludeTrailingPathDelimiter( const APath :Str) :Str
747: Func ExcludeTrailingPathDelimiter( S :Str) :Str
748: Func ExcludeTrailingPathDelimiter(const S:Str):Str)
749: Func ExecConsoleApp(const AppName,Parameters:str;AppOutput:TStrings):bool;
750: Func ExecProc : Int
751: Func ExecSQL : Int
752: Func ExecSQL( ExecDirect :Bool) : Int
753: Func Execute: _Recordset;
754: Func Execute:Bool
755: Func Execute:Bool;
756: Func Execute(const SQL:str;Params:TParams;Cache:Boolean;cursor:phDBICur):Int
757: Func Execute(const SQL: WideString;Params:TParams;ResultSet: TPSResult):Int
758: Func Execute( ParentWnd : HWND) :Bool
759: Func Execute1(constCommText:WideString;const CType:TCommType;const ExecuteOpts:TExecuteOpts):_Recordset;
760: Func Execute1( const Parameters : OleVariant) : _Recordset;
761: Func Execute1( ParentWnd : HWND) :Bool;
762: Func Execute2( var RecordsAffected:Int;const Parameters:OleVariant):_Recordset;
763: Func ExecuteAction( Action : TBasicAction) :Bool
764: Func ExecuteDirect( const SQL : WideString) : Int
765: Func ExecuteFile(const FileName:str;const Params:str;const DefDir:str;ShowCmd:Int):THandle
766: Proc ExecuteThread2(afunc:TThreadFunction2;thrOK:bool);AddTypeS('TThreadFunction2','procedure
767: Func CreateThread2(ThreadFunc: TThreadFunction2) : THandle
768: Func ExeFileIsRunning(ExeFile:Str):Bool;
769: Func ExePath:Str;
770: Func ScriptPath:Str;
771: Func ScriptName:Str;
772: Func ExePathName:Str;
773: Func Exists( AItem : Pointer) :Bool
774: Func ExitWindows( ExitCode :Card) :Bool
775: Func Exp(x: Extended): Extended;
776: Func ExpandEnvironmentVar( var Value :Str) :Bool
777: Func ExpandFileName( FileName :Str) :Str
778: Func ExpandFileName(const FileName:Str):Str)
779: Func ExpandUNCFileName( FileName :Str) :Str
780: Func ExpandUNCFileName(const FileName:Str):Str)
781: Func ExpJ( const X : Float) : Float;
782: Func Exsecans( X : Float) : Float
783: Func Extract( const AByteCount : Int) :Str
784: Func Extract( Item : TClass) : TClass
785: Func Extract( Item : TComponent) : TComponent
786: Func Extract( Item : TObject) : TObject
787: Func ExtractFileDir( FileName :Str) :Str
788: Func ExtractFileDir(const FileName:Str):Str)

789: Func ExtractFileDrive( FileName :Str) :Str

790: Func ExtractFileDrive(const FileName:Str):Str)
791: Func ExtractFileExt( FileName :Str) :Str
792: Func ExtractFileExt(const FileName:Str):Str)
793: Func ExtractFileExtNoDot( const FileName :Str) :Str
794: Func ExtractFileExtNoDotUpper( const FileName :Str) :Str
795: Func ExtractFileName( FileName :Str) :Str
796: Func ExtractFileName(const filename:Str):str;
797: Func ExtractFilePath( FileName :Str) :Str
798: Func ExtractFilePath(const filename:Str):str;
799: Func ExtractRelativePath( BaseName, DestName :Str) :Str
800: Func ExtractRelativePath(const BaseName:Str; const DestName:Str):Str)
801: Func ExtractShortPathName( FileName :Str) :Str
802: Func ExtractShortPathName(const FileName:Str):Str)
803: Func ExtractStrings(Separators,WhiteSpace:TSysCharSet;Content:PChar;Strings:TStrings):Int
804: Func ExtractStrings(Separators:TSysCharSet;WhiteSpace:TSysCharSet;Content:PChar;Str:TStrings):Int)
805: Func Fact(numb: Int): Extended;
806: Func FactInt(numb: Int): int64;
807: Func Factorial( const N : Int) : Extended
808: Func FahrenheitToCelsius( const AValue : Double) : Double
809: Func FalseBoolStrs: array of string
810: Func Fetch(var AInput:str;const ADelim:str;const ADelete:Bool;const ACaseSensitive:Bool):str
811: Func FetchCaseInsensitive(var AInput:str;const ADelim:str;const ADelete:Bool):str
812: Func Fibo(numb: Int): Extended;
813: Func FiboInt(numb: Int): Int64;
814: Func Fibonacci( const N : Int) : Int
815: Func FIELDBYNAME(const FIELDNAME :Str) : TFIELD
816: Func FIELDBYNAME(const FIELDNAME : WIDESTRING) : TFIELD
817: Func FIELDBYNAME(const NAME :Str) : TFIELD
818: Func FIELDBYNAME(const NAME :Str) : TFIELDDEF
819: Func FIELDBYNUMBER( FIELDNO : Int) : TFIELD
820: Func FileAge( FileName :Str) : Int
821: Func FileAge(const FileName:Str): Int)
822: Func FileCompareText( const A, B :Str) : Int
823: Func FileContains(const FileName:str;Text:str;CaseSensitive:Bool;ExceptionOnError:Bool):Bool
824: Func FileCreate(FileName:Str): Int;
825: //FileCreate2(FileName:str;Rights:Int):Int;
826: Func FileCreate(const FileName:Str): Int)
827: Func FileCreateTemp( var Prefix :Str) : THandle
828: Func FileDateToDateTime( FileDate : Int) : TDateTime
829: Func FileDateToDateTime(FileDate: Int): TDateTime;
830: Func FileExists( const FileName :Str) :Bool
831: Func FileExists( FileName :Str) :Bool
832: Func fileExists(const FileName:Str):Bool;
833: Func FileGetAttr( FileName :Str) : Int
834: Func FileGetAttr(const FileName:Str): Int)
835: Func FileGetDate( Handle : Int) : Int
836: Func FileGetDate(handle: Int): Int
837: Func FileGetDisplayName( const FileName :Str) :Str
838: Func FileGetSize( const FileName :Str) : Int
839: Func FileGetTempName( const Prefix :Str) :Str
840: Func FileGetTypeName( const FileName :Str) :Str
841: Func FileIsReadOnly( FileName :Str) :Bool
842: Func FileLoad( ResType:TResType;const Name:str;MaskColor:TColor):Boolean
843: Func FileOpen( FileName :Str; Mode : LongWord) : Int
844: Func FileOpen(const FileName:Str; mode:Int): Int)
845: Func FileRead(handle: Int; Buffer: PChar; count: LongWord): Int
846: Func FileSearch( Name, DirList :Str) :Str
847: Func FileSearch(const Name, dirList:Str):Str)
848: Func FileSeek( Handle : Int; Offset : Int64; Origin : Int) : Int64;
849: Func FileSeek( Handle, Offset, Origin : Int) : Int;
850: Func FileSeek(handle, offset, origin: Int): Int
851: Func FileSetAttr( FileName :Str; Attr : Int) : Int
852: Func FileSetAttr(const FileName:Str; Attr: Int): Int)
853: Func FileSetDate(FileName :Str; Age : Int) : Int;
854: Func FileSetDate(handle: Int; age: Int): Int
855: Func FileSetDate2(FileHandle : Int; Age : Int) : Int;
856: Func FileSetDateH( Handle : Int; Age : Int) : Int;
857: Func FileSetReadOnly( FileName :Str; ReadOnly :Bool) :Bool
858: Func FileSize( const FileName :Str) : int64
859: Func FileSizeByName( const AFilename :Str) : Longint
860: Func FileWrite(Handle: Int; const Buffer: pChar; Count: LongWord): Int)
861: Func FilterSpecArray : TComdlgFilterSpecArray
862: Func FIND(ACAPTION :Str) : TMENUITEM
863: Func Find(AItem : Pointer; out AData : Pointer) :Bool
864: Func FIND(const ANAME :Str) : TNAMEDITEM
865: Func Find(const DisplayName :Str) : TAggregate
866: Func Find(const Item : TBookmarkStr; var Index : Int) :Bool
867: Func FIND(const NAME :Str) : TFIELD
868: Func FIND(const NAME :Str) : TFIELDDEF
869: Func FIND(const NAME :Str) : TINDEXDEF
870: Func Find(const S : WideString; var Index : Int) :Bool
871: Func Find(S:str;var Index:Int):Boolean
872: Func FindAuthClass( AuthName :Str) : TIdAuthenticationClass
873: Func FindBand( AControl : TControl) : TCoolBand
874: Func FindBoundary( AContentType :Str) :Str
875: Func FindButton( AModalResult : TModalResult) : TTaskDialogBaseButtonItem
876: Func FindCaption(StartIndex:Int;Value:str;Partial,Inclusive,Wrap:Boolean):TListItem
877: Func FindCdLineSwitch( Switch :Str; IgnoreCase :Bool) :Bool;

878: Func FindCloseW(FindFile: Int): LongBool; stdcall;

879: Func FindCmdLineSwitch(Switch:str;Chars:TSysCharSet;IgnoreCase:Boolean):Bool;
880: Func FindCmmdLineSwitch( Switch :Str) :Bool;
881: Func FindComponent(AName:Str): TComponent;
882: Func FindComponent(vlabel:Str): TComponent;
883: Func FindComponent2(vlabel:Str): TComponent;
884: Func FindControl(Handle: HWnd): TWinControl;
885: Func FindData( StartIndex : Int; Value : Pointer; Inclusive, Wrap :Bool):TListItem
886: Func FindDatabase( const DatabaseName :Str) : TDatabase
887: Func FindDragTarget(const Pos: TPoint; AllowDisabled:Bool): TControl;
888: Func FINDFIELD( const FIELDNAME :Str) : TFIELD
889: Func FINDFIELD( const FIELDNAME : WideString) : TFIELD
890: Func FindFirst2(const Path:Str; Attr: Int; var F: TSearchRec):Int)
891: Func FindNext2(var F: TSearchRec): Int)
892: Proc FindClose2(var F: TSearchRec)
893: Func FINDFIRST :Bool
894: TJvSpecialFolder = (sfRecycleBin, sfControlPanel, sfDesktop, sfDesktopDirectory,
895: sfMyComputer, sfFonts, sfNetHood, sfNetwork, sfPersonal, sfPrinters, sfPrograms,sfRecent,sfSendTo,
sfStartMenu, stStartUp, sfTemplates);
896: FFolder: array [TJvSpecialFolder] of Int =
897: (CSIDL_BITBUCKET, CSIDL_CONTROLS, CSIDL_DESKTOP, CSIDL_DESKTOPDIRECTORY,
898: CSIDL_DRIVES, CSIDL_FONTS, CSIDL_NETHOOD, CSIDL_NETWORK, CSIDL_PERSONAL,
899: CSIDL_PRINTERS, CSIDL_PROGRAMS, CSIDL_RECENT, CSIDL_SENDTO, CSIDL_STARTMENU,
900: CSIDL_STARTUP, CSIDL_TEMPLATES);
901: Func FindFilesDlg(StartIn:str;SpecialFolder:TJvSpecialFolder;UseFolder:Bool):Bool);
902: Func Findfirst(const filepath:Str; attr: Int): Int;
903: Func FindFirst2(const Path:Str; Attr: Int; var F: TSearchRec): Int)
904: Func FindFirstNotOf( AFind, AText :Str) : Int
905: Func FindFirstOf( AFind, AText :Str) : Int
906: Func FindImmediateTransitionOn( cChar : char) : TniRegularExpressionState
907: Func FINDINDEXFORFIELDS( const FIELDS :Str) : TINDEXDEF
908: Func FindInstanceOf( AClass : TClass; AExact :Bool; AStartAt : Int) : Int
909: Func FINDITEM( VALUE : Int; KIND : TFINDITEMKIND) : TMENUITEM
910: Func FindItemId( Id : Int) : TCollectionItem
911: Func FindKey( const KeyValues : array of const) :Bool
912: Func FINDLAST:BOOLEAN
913: Func FindLineControl( ComponentType, ControlType : DWORD) : TJclMixerLineControl
914: Func FindModuleClass( AClass : TComponentClass) : TComponent
915: Func FindModuleName( const AClass :Str) : TComponent
916: Func FINDNEXT :Bool
917: Func FindNext: Int;
918: Func FindNext2(var F: TSearchRec): Int)
919: Func FindNextPage( CurPage : TTabSheet; GoForward, CheckTabVisible :Bool):TTabSheet
920: Func FindNextToSelect : TTreeNode
921: Func FINDPARAM( const VALUE :Str) : TPARAM
922: Func FindParam( const Value : WideString) : TParameter
923: Func FINDPRIOR :Bool
924: Func FindResource(ModuleHandle:HMODULE;ResourceName,ResourceType:PChar):TResourceHandle
925: Func FindSession( const SessionName :Str) : TSession
926: Func FindStringResource(Ident: Int):Str)
927: Func FindText(const SearchStr:str;StartPos,Length:Int;Options:TSearchTypes):Int
928: Func FindUnusedFileName( const FileName, FileExt, Suffix : Ansistr) : Ansistr
929: Func FindVCLWindow(const Pos: TPoint): TWinControl;
930: Func FindWindow(C1, C2: PChar): Longint;
931: Func FindInPaths(const fileName,paths:Str):Str;
932: Func Finger :Str
933: Func First: TClass
934: Func First: TComponent
935: Func First: TObject
936: Func FirstDelimiter( const delimiters :Str; const Str :Str) : Int;
937: Func FirstDelimiter1(const delimiters:WideString; const Str : WideString) : Int;
938: Func FirstInstance( const ATitle :Str) :Bool
939: Func FloatPoint( const X, Y : Float) : TFloatPoint;
940: Func FloatPoint1( const P : TPoint) : TFloatPoint;
941: Func FloatPtInRect( const Rect : TFloatRect; const P : TFloatPoint) :Bool
942: Func FloatRect( const ALeft, ATop, ARight, ABottom : Double) : TFloatRect;
943: Func FloatRect1( const Rect : TRect) : TFloatRect;
944: Func FloatsEqual( const X, Y : Float) :Bool
945: Func FloatToBin(const D: Double):Str; //doubletohex -> hextobin! in buffer
946: Func FloatToCurr( Value : Extended) : Currency
947: Func FloatToDateTime( Value : Extended) : TDateTime
948: Func FloatToStr( Value : Extended) :Str;
949: Func FloatToStr(e : Extended) :Str;
950: Func FloatToStrF(Value:Extended;Format:TFloatFormat;Precision,Digits:Int):str;
951: Func FloatToStrF(Value:Extended;Format:TFloatFormat;Precision:Int;Digits:Int):Str)
952: Func FloatToStr2( Value : Extended; Format : TFloatFormat; Precision, Digits : Int; FormatSettings :
TFormatSettings) :Str;
953: Func FloatToStrFS(Value:Extended;Format:TFloatFormat;Precision,
Digits:Int;FormatSettings:TFormatSettings):str;
954: Func FloatToText(BufferArg:PChar;const Value:Extended;ValueType:TFloatValue;Format:TFloatFormat;Precision,
Digits: Int):Int)
955: Func Floor( const X : Extended) : Int
956: Func FloorInt( Value : Int; StepSize : Int) : Int
957: Func FloorJ( const X : Extended) : Int
958: Func Flush( const Count :Card) :Bool
959: Func Flush(var t: Text): Int
960: Func FmtLoadStr(Ident: Int; const Args: array of const):Str)
961: Func FOCUSED:BOOLEAN
962: Func ForceBackslash( const PathName :Str) :Str

963: Func ForceDirectories( const Dir :Str) :Bool

964: Func ForceDirectories( Dir :Str) :Bool
965: Func ForceDirectories( Name :Str) :Bool
966: Func ForceInBox( const Point : TPoint; const Box : TRect) : TPoint
967: Func ForceInRange( A, Min, Max : Int) : Int
968: Func ForceInRangeR( const A, Min, Max : Double) : Double
969: Func ForEach( AProc : TBucketProc; AInfo : Pointer) :Bool;
970: Func ForEach1( AEvent : TBucketEvent) :Bool;
971: Func ForegroundTask:Bool
972: Func Format(const Format:Str; const Args: array of const):Str;
973: Func FormatBcd( const Format :Str; Bcd : TBcd) :Str
974: Func FormatBigInt(s:Str):Str;
975: Func FormatByteSize(const bytes: int64):Str;
976: Func FormatBuf(var Buffer:PChar;BufLen:Card;const Format:str;FmtLen:Card;const Args:array of const):Card
977: Func FormatCount(iCount:Int;const sSingular:str;const sPlural:str):str
978: Func FormatCurr( Format :Str; Value : Currency) :Str;
979: Func FormatCurr(const Format:Str; Value: Currency):Str)
980: Func FormatDateTime( Format :Str; DateTime : TDateTime) :Str;
981: Func FormatDateTime(const fmt:Str; D: TDateTime):Str;
982: Func FormatDateTime2(const Formatting:str;DateTime:TDateTime;const FormatSettings: TFormatSettings):str;
983: Func FormatFloat( Format :Str; Value : Extended) :Str;
984: Func FormatFloat(const Format:Str; Value: Extended):Str)
985: Func FormatFloat( Format :Str; Value : Extended) :Str;
986: Func FormatFloat2(Format:str;Value:Extended;FormatSettings:TFormatSettings):str;
987: Func FormatF('%.2f - %.12f ',[notes[it],(ln(notes[it+1]/notes[it])*1200)/ln(2)]); //with println - writeln
988: Func FormatCurr( Format :Str; Value : Currency) :Str;
989: Func FormatCurr2(Format:str;Value:Currency;FormatSettings:TFormatSettings):str;
990: Func Format2(const Frmat:str;const Args:array of const;const FSettings:TFormatSettings):str
991: Func FormatInt(i: Int):Str;
992: Func FormatInt64(i: int64):Str;
993: Func FormatMaskText( const EditMask :Str; const Value :Str) :Str
994: Func FormatValue( AValue :Card) :Str
995: Func FormatVersionString( const HiV, LoV : Word) :Str;
996: Func FormatVersionString1( const Major, Minor, Build, Revision : Word) :Str;
997: Func Frac(X: Extended): Extended);
998: Func FreeResource( ResData : HGLOBAL) : LongBool
999: Func FromCommon( const AValue : Double) : Double
1000: Func FromCommon(const AValue: Double): Double;
1001: Func FTPGMTDateTimeToMLS( const ATimeStamp:TDateTime; const AIncludeMSecs:Boolean):str
1002: Func FTPLocalDateTimeToMLS(const ATimeStamp:TDateTime;const AIncludeMSecs:Boolean):str
1003: Func FTPMLSToGMTDateTime( const ATimeStamp :Str) : TDateTime
1004: Func FTPMLSToLocalDateTime( const ATimeStamp :Str) : TDateTime
1005: Func FuncIn(AValue: Variant; ASet: Variant):Bool;
1006: //Func Funclist Size is: 6444 of mX3.9.8.9
1007: Func FutureValue(const Rate:Extended;NPeriods:Int;const Payment,
PresentValue:Extended;PaymentTime:TPaymentTime):Extended
1008: Func FullTimeToStr(SUMTime: TDateTime):Str;;
1009: Func Gauss( const x, Spread : Double) : Double
1010: Func Gauss(const x,Spread: Double): Double;
1011: Func GCD(x, y : LongInt) : LongInt;
1012: Func GCDJ( X, Y :Card) :Card
1013: Func GDAL: LongWord
1014: Func GdiFlush : BOOL
1015: Func GdiSetBatchLimit( Limit : DWORD) : DWORD
1016: Func GdiGetBatchLimit : DWORD
1017: Func GenerateHeader : TIdHeaderList
1018: Func GeometricMean( const X : TDynFloatArray) : Float
1019: Func Get( AURL :Str) :Str;
1020: Func Get2( AURL :Str) :Str;
1021: Func Get8087CW : Word
1022: Func GetActiveOleObject(const ClassName:Str): IDispatch;
1023: Func GetAliasDriverName( const AliasName :Str) :Str
1024: Func GetAPMBatteryFlag : TAPMBatteryFlag
1025: Func GetAPMBatteryFullLifeTime : DWORD
1026: Func GetAPMBatteryLifePercent : Int
1027: Func GetAPMBatteryLifeTime : DWORD
1028: Func GetAPMLineStatus : TAPMLineStatus
1029: Func GetAppdataFolder :Str
1030: Func GetAppDispatcher : TComponent
1031: Func GetArrayLength: Int;
1032: Func GetASCII:Str;
1033: Func GetASCIILine:Str;
1034: Func GetAsHandle( Format : Word) : THandle
1035: Func GetAssociatedProgram(const Extension:str;var Filename,Description:str):bool;
1036: Func GetBackupFileName( const FileName :Str) :Str
1037: Func GetBaseAddress(PID:DWORD):DWORD; //Process API
1038: Func GetBBitmap( Value : TBitmap) : TBitmap
1039: Func GetBIOSCopyright :Str
1040: Func GetBIOSDate : TDateTime
1041: Func GetBIOSExtendedInfo :Str
1042: Func GetBIOSName :Str
1043: Func getBitmap(apath:Str): TBitmap;
1044: Func GetBitmap( Index : Int; Image : TBitmap) :Bool //object
1045: Func getBitMapObject(const bitmappath:Str): TBitmap;
1046: Func GetButtonState( Button : TPageScrollerButton) : TPageScrollerButtonState
1047: Func GetCapsLockKeyState :Bool
1048: Func GetCaptureControl: TControl;
1049: Func GetCDAudioTrackList(var TrackList:TJclCdTrackInfoArray;Drive:Char):TJclCdTrackInfo;
1050: Func GetCDAudioTrackList1(TrackList:TStrings;IncludeTrackType:Boolean;Drive:Char):str;

1051: Func GetCdInfo( InfoType : TJclCdMediaInfo; Drive : Char) :Str

1052: Func GetChangedText( const Text:str; SelStart, SelLength : Int; Key : Char):str
1053: Func GetClientThread( ClientSocket : TServerClientWinSocket) : TServerClientThread
1054: Func GetClockValue : Int64
1055: Func getCmdLine: PChar;
1056: Func getCmdShow: Int;
1057: Func GetCPUSpeed: Double;
1058: Func GetColField( DataCol : Int) : TField
1059: Func GetColorBlue( const Color : TColor) : Byte
1060: Func GetColorFlag( const Color : TColor) : Byte
1061: Func GetColorGreen( const Color : TColor) : Byte
1062: Func GetColorRed( const Color : TColor) : Byte
1063: Func GetComCtlVersion : Int
1064: Func GetComPorts: TStringlist;
1065: Func GetCommonAppdataFolder :Str
1066: Func GetCommonDesktopdirectoryFolder:Str
1067: Func GetCommonFavoritesFolder :Str
1068: Func GetCommonFilesFolder :Str
1069: Func GetCommonProgramsFolder :Str
1070: Func GetCommonStartmenuFolder :Str
1071: Func GetCommonStartupFolder :Str
1072: Func GetComponent( Owner, Parent : TComponent) : TComponent
1073: Func GetConnectionRegistryFile( DesignMode :Bool):Str
1074: Func GetCookiesFolder :Str
1075: Func GetCPUSpeed( var CpuSpeed : TFreqInfo) :Bool
1076: Func GetCurrent:TFavoriteLinkItem
1077: Func GetCurrent:TListItem
1078: Func GetCurrent:TTaskDialogBaseButtonItem
1079: Func GetCurrent:TToolButton
1080: Func GetCurrent:TTreeNode
1081: Func GetCurrent:WideString
1082: Func GetCurrentDir :Str
1083: Func GetCurrentDir:Str)
1084: Func GetCurrentFolder :Str
1085: Func GETCURRENTRECORD( BUFFER : PCHAR) :Bool
1086: Func GetCurrentProcessId : TIdPID
1087: Func GetCurrentThreadHandle : THandle
1088: Func GetCurrentThreadID: LongWord; stdcall;
1089: Func GetCustomHeader( const Name :Str) :Str
1090: Func GetDataItem( Value : Pointer) : Longint
1091: Func GetDataLinkFiles(FileNames:TWideStrings; Directory string): Int;
1092: Func GetDataLinkFiles1( FileNames : TStrings; Directory:Str):Int;
1093: Func GETDATASIZE : Int
1094: Func GetDC(hdwnd: HWND): HDC;
1095: Func GetDefaultFileExt( const MIMEType :Str) :Str
1096: Func GetDefaults :Bool
1097: Func GetDefaultSchemaName : WideString
1098: Func GetDefaultStreamLoader : IStreamLoader
1099: Func GetDesktopDirectoryFolder :Str
1100: Func GetDesktopFolder :Str
1101: Func GetDFAState( oStates : TList) : TniRegularExpressionState
1102: Func GetDirectorySize( const Path :Str) : Int64
1103: Func GetDisplayWidth : Int
1104: Func GetDLLVersion(const DLLName:str;var pdwMajor, pdwMinor:Int):Boolean
1105: Func GetDomainName :Str
1106: Func GetDriverRegistryFile( DesignMode :Bool) :Str
1107: Func GetDriveType(rootpath: pchar):Card;
1108: Func GetDriveTypeStr( const Drive : Char) :Str
1109: Func GetEnumerator : TFavoriteLinkItemsEnumerator
1110: Func GetEnumerator : TListItemsEnumerator
1111: Func GetEnumerator : TTaskDialogButtonsEnumerator
1112: Func GetEnumerator : TToolBarEnumerator
1113: Func GetEnumerator : TTreeNodesEnumerator
1114: Func GetEnumerator : TWideStringsEnumerator
1115: Func GetEnvVar( const VarName :Str) :Str
1116: Func GetEnvironmentVar( const AVariableName :Str) :Str
1117: Func GetEnvironmentVariable( const VarName :Str) :Str
1118: Func GetEnvironmentVar(const Name string; var Value:str;Expand:Boolean):Bool
1119: Func GetEnvironmentVars( const Vars : TStrings; Expand :Bool):Boolean
1120: Func getEnvironmentString:Str;
1121: Func GetExceptionHandler : TObject
1122: Func GetFavoritesFolder :Str
1123: Func GetFieldByName( const Name :Str) :Str
1124: Func GetFieldInfo(const Origin: Widestring;var FieldInfo TFieldInfo):Boolean
1125: Func GetFieldValue( ACol : Int) :Str
1126: Func GetFileAgeCoherence( const FileName :Str) :Bool
1127: Func GetFileCreation( const FileName :Str) : TFileTime
1128: Func GetFileCreationTime( const Filename :Str) : TDateTime
1129: Func GetFileInformation( const FileName :Str) : TSearchRec
1130: Func GetFileLastAccess( const FileName :Str) : TFileTime
1131: Func GetFileLastWrite( const FileName :Str) : TFileTime
1132: Func GetFileList(FileList: TStringlist; apath:Str): TStringlist;
1133: Func GetFileList1(apath:Str): TStringlist;
1134: Func GetFileMIMEType( const AFileName :Str) :Str
1135: Func GetFileSize( const FileName :Str) : Int64
1136: Func GetFileVersion( AFileName :Str) :Card
1137: Func GetFileVersion( const AFilename :Str) :Card
1138: Func GetFileSize2(Handle: Int; x: Int): Int; stdcall;
1139: Func GetFileDate(aFile:str; aWithTime:Boolean):str;

1140: Func GetFileCount(adirmask:Str): Int; //files count in directory!

1141: Func GetFilterData( Root : PExprNode) : TExprData
1142: Func getFirstChild : LongInt
1143: Func getFirstChild : TTreeNode
1144: Func GetFirstDelimitedToken( const cDelim:char;const cStr:Str):str
1145: Func GetFirstNode : TTreeNode
1146: Func GetFontsFolder :Str
1147: Func GetFormulaValue( const Formula :Str) : Extended
1148: Func GetFreePageFileMemory : Int
1149: Func GetFreePhysicalMemory : Int
1150: Func GetFreeSystemResources( const ResourceType : TFreeSysResKind): Int;
1151: Func GetFreeSystemResources1 : TFreeSystemResources;
1152: Func GetFreeVirtualMemory : Int
1153: Func GetFromClipboard :Bool
1154: Func GetFullURI( const AOptionalFileds : TIdURIOptionalFieldsSet):Str
1155: Func GetGBitmap( Value : TBitmap) : TBitmap
1156: Func GetGMTDateByName( const AFileName : TIdFileName) : TDateTime
1157: Func GetGroupState( Level : Int) : TGroupPosInds
1158: Func GetHandle : HWND
1159: Func GETHELPCONTEXT( VALUE : Int; BYCOMMAND :Bool) : THELPCONTEXT
1160: Func GetHexArray(ahexdig: THexArray): THexArray;
1161: Func GetHighLightColor( const Color : TColor; Luminance : Int):TColor
1162: Func GetHINSTANCE: longword;
1163: Func GetHistoryFolder :Str
1164: Func GetHitTestInfoAt( X, Y : Int) : THitTests
1165: Func getHMODULE: longword;
1166: Func GetHostByName(const AComputerName:Str):str;
1167: Func GetHostName :Str
1168: Func getHostIP:Str;
1169: Func GetHotSpot : TPoint
1170: Func GetHueBitmap( Value : TBitmap) : TBitmap
1171: Func GetImageBitmap : HBITMAP
1172: Func GETIMAGELIST : TCUSTOMIMAGELIST
1173: Func GetIncome( const aNetto : Currency): Currency
1174: Func GetIncome( const aNetto : Extended): Extended
1175: Func GetIncome( const aNetto : Extended): Extended
1176: Func GetIncome(const aNetto : Extended) : Extended
1177: Func GetIncome(const aNetto: Currency): Currency
1178: Func GetIncome2( const aNetto : Currency) : Currency
1179: Func GetIncome2( const aNetto : Currency): Currency
1180: Func getIndex_Attrs( tag :Str; var idx : Int; var Attrs :Str) :Str
1181: Func GETINDEXFORFIELDS( const FIELDS :Str; CASEINSENSITIVE :Bool) : TINDEXDEF
1182: Func GetIndexForOrderBy( const SQL : WideString; DataSet : TDataSet) : TIndexDef
1183: Func GetInstRes(Instance:THandle;ResType:TResType;const
Name:str;Width:Int;LoadFlags:TLoadResources;MaskColor:TColor):Bool;
1184: Func
GetInstRes1(Instance:THandle;ResType:TResType;ResID:DWORD;Width:Int;LoadFlags:TLoadResources;MaskColor:TColor):Bool;
1185: Func GetIntelCacheDescription( const D : Byte):Str
1186: Func GetInteractiveUserName :Str
1187: Func GetInternetCacheFolder :Str
1188: Func GetInternetFormattedFileTimeStamp( const AFilename :Str) :Str
1189: Func GetIPAddress( const HostName :Str) :Str
1190: Func GetIP( const HostName :Str) :Str
1191: Func GetIPHostByName(const AComputerName:Str):Str;
1192: Func GetIsAdmin:Bool;
1193: Func GetItem( X, Y : Int) : LongInt
1194: Func GetItemAt( X, Y : Int) : TListItem
1195: Func GetItemHeight(Font: TFont): Int;
1196: Func GetItemPath( Index : Int) :Str
1197: Func GetKeyFieldNames( List : TStrings) : Int;
1198: Func GetKeyFieldNames1( List : TWideStrings) : Int;
1199: Func GetKeyState( const VirtualKey :Card) :Bool
1200: Func GetLastChild : LongInt
1201: Func GetLastChild : TTreeNode
1202: Func GetLastDelimitedToken(const cDelim:char;const cStr:str):Str
1203: Func GetLastError: Int
1204: Func GetLAT_CONV_FACTOR: double; //for WGS84 power(1 - 1 / 298.257223563, 2);
1205: Func GetLinesCount(sFileName :Str): Int;
1206: Func GetLoader( Ext :Str) : TBitmapLoader
1207: Func GetLoadFilter :Str
1208: Func GetLocalComputerName :Str
1209: Func GetLocaleChar( Locale, LocaleType : Int; Default : Char) : Char
1210: Func GetLocaleStr( Locale, LocaleType : Int; Default :Str) :Str
1211: Func GetLocalUserName :Str
1212: Func GetLoginUsername : WideString
1213: Func getLongDayNames:Str)
1214: Func GetLongHint(const hint:Str):Str
1215: Func getLongMonthNames:Str)
1216: Func GetMacAddresses( const Machine :Str; const Addresses : TStrings) : Int
1217: Func GetMainAppWndFromPid( PID : DWORD) : HWND
1218: Func GetMapX(C_form,apath:Str; const Data:Str):Bool; //c_form: [html/json/xml]
1219: //if GetMAPX('html',ExePath+'cologne2mapX.html','cathedral cologne then
1220: Proc GetGEOMap(C_form,apath:Str; const Data:Str);
1221: Func GetMapXGeoReverse(C_form:Str; const lat,long:Str):Str;
1222: //if GetMapXGeoReverse('XML',topPath,'47.0397826','7.62914761277888 then
1223: Func GetGeoCode(C_form,apath:Str; const data:Str; sfile:bool):Str;
1224: Func GetMaskBitmap : HBITMAP
1225: Func GetMaxAppAddress : Int
1226: Func GetMciErrorMessage( const MciErrNo : MCIERROR) :Str

1227: Func GetMemoryLoad : Byte

1228: Func GetMIMEDefaultFileExt( const MIMEType :Str) : TIdFileName
1229: Func GetMIMETypeFromFile( const AFile :Str) :Str
1230: Func GetMIMETypeFromFile( const AFile : TIdFileName) :Str
1231: Func GetMinAppAddress : Int
1232: Func GetModule : TComponent
1233: Func GetModuleHandle( ModuleName : PChar) : HMODULE
1234: Func GetModuleName( Module : HMODULE) :Str
1235: Func GetModulePath( const Module : HMODULE) :Str
1236: Func GetModuleFileName(Module: Int; Filename: PChar;Size: Int): Int; stdcall;
1237: Func GetMorseID(InChar : Char): Word;;
1238: Func GetMorseString2(InChar : Char):Str;;
1239: Func GetMorseLine(dots:Bool):Str;; //whole table! {1 or dots}
1240: Func GetMorseTable(dots:Bool):Str;; //whole table!
1241: Func GetMorseSign(InChar : Char):Str;;
1242: Func GetCommandLine: PChar; stdcall;
1243: Func GetMonochromeBitmap( Value : TBitmap) : TBitmap
1244: Func GetMultiN(aval: Int):Str;
1245: Func GetName :Str
1246: Func GetNearestItem( Point : TPoint; Direction : TSearchDirection) : TListItem
1247: Func GetNethoodFolder :Str
1248: Func GetNext : TTreeNode
1249: Func GetNextChild( Value : LongInt) : LongInt
1250: Func GetNextChild( Value : TTreeNode) : TTreeNode
1251: Func GetNextDelimitedToken( const cDelim : char; var cStr :Str) :Str
1252: Func GetNextItem(StartItem:TListItem;Direction:TSearchDirection;States:TItemStates):TListItem
1253: Func GetNextPacket : Int
1254: Func getNextSibling : TTreeNode
1255: Func GetNextVisible : TTreeNode
1256: Func GetNode( ItemId : HTreeItem) : TTreeNode
1257: Func GetNodeAt( X, Y : Int) : TTreeNode
1258: Func GetNodeDisplayWidth( Node : TOutlineNode) : Int
1259: Func GetNumberOfProcessors: longint;
1260: Func GetNumLockKeyState :Bool
1261: Func GetObjectProperty( Instance : TPersistent; const PropName :Str) : TObject
1262: Func GetOnlyTransitionOn( cChar : char) : TniRegularExpressionState
1263: Func GetOptionalParam( const ParamName :Str) : OleVariant
1264: Func GetOSName:Str;
1265: Func GetOSVersion:Str;
1266: Func GetOSNumber:Str;
1267: Func GetOsVersionInfo: TOSVersionInfo; //thx to wischnewski
1268: Func GetPackageModuleHandle( PackageName : PChar) : HMODULE
1269: Func GetPageSize:Card;
1270: Func GetParameterFileName :Str
1271: Func GetParams( var OwnerData : OleVariant) : OleVariant
1272: Func GETPARENTCOMPONENT : TCOMPONENT
1273: Func GetParentForm(control: TControl): TForm
1274: Func GETPARENTMENU : TMENU
1275: Func GetPassword:Bool
1276: Func GetPassword:Str
1277: Func GetPersonalFolder :Str
1278: Func GetPidFromProcessName( const ProcessName :Str) : DWORD
1279: Func getPI: extended; //of const PI math
1280: Func GetPixel(dc:HDC; PixelCoords.X: TPoint, PixelCoords.Y: TPoint);
1281: Func GetPosition : TPoint
1282: Func GetPrev : TTreeNode
1283: Func GetPrevChild( Value : LongInt) : LongInt
1284: Func GetPrevChild( Value : TTreeNode) : TTreeNode
1285: Func getPrevSibling : TTreeNode
1286: Func GetPrevVisible : TTreeNode
1287: Func GetPrinthoodFolder :Str
1288: Func GetPrivilegeDisplayName( const PrivilegeName:Str):Str
1289: Func getProcessList: TStrings;
1290: Func GetProcessId : TIdPID
1291: Func GetProcessNameFromPid( PID : DWORD) :Str
1292: Func GetProcessNameFromWnd( Wnd : HWND) :Str
1293: Func GetProcessMemoryInfo(Process:THandle;ppsmemCounters:TProcessMemoryCounters;cb:DWORD):BOOL
1294: Func getProcessAllMemory(ProcessID : DWORD): TProcessMemoryCounters;
1295: Func getProcessMemoryInfo2(ProcessID : DWORD): TProcessMemoryCounters;
1296: Func GetProgramFilesFolder :Str
1297: Func GetProgramsFolder :Str
1298: Func GetProxy :Str
1299: Func GetQuoteChar : WideString
1300: Func GetQrCode4(Width,Height:Word; Correct_Level:str;const Data:str;aformat:str):TLinearBitmap;
1301: Func GetQrCodetoFile(Width,Height:Word;Correct_Level:str;const Data:str;aformat:str):TLinearBitmap;
1302: Func GetRate : Double
1303: Func getPerfTime:Str;
1304: Func getRuntime:Str;
1305: Func GetRBitmap( Value : TBitmap) : TBitmap
1306: Func GetReadableName( const AName :Str) :Str
1307: Func GetRecentDocs : TStringList
1308: Func GetRecentFolder :Str
1309: Func GetRecords( Count : Int; out RecsOut : Int; Options : Int) : OleVariant;
1310: Func GetRecords1(Count:Int;out RecsOut:Int;Options:Int;const CommandText:WideString;var Params,
OwnerData:OleVariant):OleVariant;
1311: Func GetRecordset(const CommandText: WideString;ConnectionString:WideString):_Recordset
1312: Func GetRegisteredCompany :Str
1313: Func GetRegisteredOwner :Str
1314: Func GetResource(ResType:TResType;const Name:str;Width:Int;LoadFlags:TLoadResources;MaskColor:TColor:Bool

1315: Func GetResourceName( ObjStream : TStream; var AName :Str) :Bool

1316: Func GetResponse( const AAllowedResponses : array of SmallInt) : SmallInt;
1317: Func GetResponse1( const AAllowedResponse : SmallInt) : SmallInt;
1318: Func GetRValue(rgb: DWORD): Byte
1319: Func GetGValue(rgb: DWORD): Byte
1320: Func GetBValue(rgb: DWORD): Byte
1321: Func GetCValue(cmyk: COLORREF): Byte
1322: Func GetMValue(cmyk: COLORREF): Byte
1323: Func GetYValue(cmyk: COLORREF): Byte
1324: Func GetKValue(cmyk: COLORREF): Byte
1325: Func CMYK( c, m, y, k : Byte) : COLORREF
1326: Proc GetScreenShot(var ABitmap : TBitmap);
1327: Func GetOSName:Str;
1328: Func GetProcAddress( hModule : HMODULE; lpProcName : LPCSTR):FARPROC
1329: Func GetProcAddress(Module : HMODULE; Proc : PChar): Dword
1330: Func GetSafeCallExceptionMsg :Str
1331: Func GetSaturationBitmap( Value : TBitmap) : TBitmap
1332: Func GetSaveFilter :Str
1333: Func GetSaver( Ext :Str) : TBitmapLoader
1334: Func GetScrollLockKeyState :Bool
1335: Func GetSearchString :Str
1336: Func GetSelections( AList : TList) : TTreeNode
1337: Func GETSELTEXTBUF(BUFFER:PCHAR;BUFSIZE:Int):Int
1338: Func GetSendToFolder :Str
1339: Func GetServer : IAppServer
1340: Func GetServerList : OleVariant
1341: Func GetShadowColor( const Color : TColor; Luminance:Int): TColor
1342: Func GetShellProcessHandle : THandle
1343: Func GetShellProcessName :Str
1344: Func GetShellVersion :Card
1345: Func getShortDayNames:Str)
1346: Func GetShortHint(const hint:Str):Str
1347: Func getShortMonthNames:Str)
1348: Func GetSizeOfFile( const FileName :Str) : Int64;
1349: Func GetSizeOfFile1( Handle : THandle) : Int64;
1350: Func GetStdHandle(nStdHandle: Int): Int; stdcall;
1351: Func GetStartmenuFolder :Str
1352: Func GetStartupFolder :Str
1353: Func GetStringProperty( Instance: TPersistent; const PropName:str):WideString
1354: Func GetSuccessor( cChar : char): TniRegularExpressionState
1355: Func GetSwapFileSize : Int
1356: Func GetSwapFileUsage : Int
1357: Func GetSystemLocale : TIdCharSet
1358: Func GetSystemMetrics( nIndex : Int) : Int
1359: Func GetSystemPathSH(Folder: Int): TFilename ;
1360: Func GetTableNameFromQuery( const SQL : Widestring) : Widestring
1361: Func GetTableNameFromSQL( const SQL : WideString) : WideString
1362: Func GetTableNameFromSQLEx(const SQL:WideString; IdOption:IDENTIFIEROption):WideString
1363: Func GetTasksList( const List : TStrings) :Bool
1364: Func getTeamViewerID:Str;
1365: Func GetTemplatesFolder :Str
1366: Func GetText : PwideChar
1367: Func GetText:PChar
1368: Func GetTextBuf( Buffer : PChar; BufSize : Int) : Int
1369: Func GETTEXTBUF(BUFFER:PCHAR;BUFSIZE:Int):Int
1370: Func GetTextItem( const Value :Str) : Longint
1371: Func GETTEXTLEN:Int
1372: Func GetThreadLocale: Longint; stdcall
1373: Func GetCurrentThreadID: LongWord; stdcall;
1374: Func GetTickCount :Card
1375: Func GetTickDiff( const AOldTickCount, ANewTickCount :Card) :Card
1376: Func GetTicketNr : longint
1377: Func GetTime :Card
1378: Func GetTime : TDateTime
1379: Func GetTimeout : Int
1380: Func GetTimeStr:Str
1381: Func GetTimeString:Str
1382: Func GetTimeZoneInformation(var lpTimeZoneInformation: TTimeZoneInformation):DWORD
1383: Ex: if GetTimeZoneInformation(tzi) >0 then writeln(itoa(tzi.bias));
1384: Func GetTodayFiles(startdir, amask:Str): TStringlist;
1385: Func getTokenCounts : Int
1386: Func GetTotalPageFileMemory : Int
1387: Func GetTotalPhysicalMemory : Int
1388: Func GetTotalVirtualMemory : Int
1389: Func GetUniqueFileName( const APath, APrefix, AExt :Str) :Str
1390: Func GetUseNowForDate :Bool
1391: Func GetUserDomainName( const CurUser :Str) :Str
1392: Func GetUserName :Str
1393: Func GetUserName:Str;
1394: Func GetUserNameAPI( lpBuffer : PChar; var nSize : DWORD):BOOL;
1395: Func GetUserObjectName( hUserObject : THandle) :Str
1396: Func GetValueBitmap( Value : TBitmap) : TBitmap
1397: Func GetValueMSec :Card
1398: Func GetValueStr :Str
1399: Func GetVersion: int;
1400: Func GetVersionString(FileName:Str):Str;
1401: Func getVideoDrivers:Str;
1402: Func GetVisibleNode( Index : LongInt) : TOutlineNode
1403: Func GetVolumeFileSystem( const Drive :Str) :Str

1404: Func GetVolumeName( const Drive :Str) :Str

1405: Func GetVolumeSerialNumber( const Drive :Str) :Str
1406: Func GetWebAppServices : IWebAppServices
1407: Func GetWebRequestHandler : IWebRequestHandler
1408: Func GetWindowCaption( Wnd : HWND) :Str
1409: Func GetWindowDC(hdwnd: HWND): HDC;
1410: Func GetWindowIcon( Wnd : HWND; LargeIcon :Bool) : HICON
1411: Func GetWindowRect(hwnd: HWND; arect: TRect):Bool
1412: Func GetWindowsComputerID :Str
1413: Func GetWindowsDirectory(lpBuffer: PChar; uSize: longword):longword;
1414: Func GetWindowsFolder :Str
1415: Func GetWindowsServicePackVersion : Int
1416: Func GetWindowsServicePackVersionString :Str
1417: Func GetWindowsSystemFolder :Str
1418: Func GetWindowsTempFolder :Str
1419: Func GetWindowsUserID :Str
1420: Func GetWindowsVersion : TWindowsVersion
1421: Func GetWindowsVersionString :Str
1422: Func GmtOffsetStrToDateTime( S :Str) : TDateTime
1423: Func GMTToLocalDateTime( S :Str) : TDateTime
1424: Func GotoKey :Bool
1425: Func GradToCycle( const Grads : Extended) : Extended
1426: Func GradToDeg( const Grads : Extended) : Extended
1427: Func GradToDeg( const Value : Extended) : Extended;
1428: Func GradToDeg1( const Value : Double) : Double;
1429: Func GradToDeg2( const Value : Single) : Single;
1430: Func GradToRad( const Grads : Extended) : Extended
1431: Func GradToRad( const Value : Extended) : Extended;
1432: Func GradToRad1( const Value : Double) : Double;
1433: Func GradToRad2( const Value : Single) : Single;
1434: Func Gray32( const Intensity : Byte; const Alpha : Byte) : TColor32
1435: Func GreenComponent( const Color32 : TColor32) : Int
1436: Func GUIDToString(const GUID: TGUID):Str)
1437: Func HandleAllocated :Bool
1438: Func HandleAllocated:Bool;
1439: Func HandleRequest :Bool
1440: Func HandleRequest( Request : TWebRequest; Response : TWebResponse:Boolean
1441: Func HarmonicMean( const X : TDynFloatArray) : Float
1442: Func HasAsParent( Value : TTreeNode) :Bool
1443: Func HASCHILDDEFS :Bool
1444: Func HasCurValues :Bool
1445: Func HasExtendCharacter( const s : UTF8String) :Bool
1446: Func HasFormat( Format : Word) :Bool
1447: Func HashValue( AStream : TStream) : T5x4LongWordRecord;
1448: Func HashValue(AStream : TStream) : T4x4LongWordRecord
1449: Func HashValue(AStream: TStream): LongWord
1450: Func HashValue(AStream: TStream): Word
1451: Func HashValue1(AStream TStream; const ABeginPos,AEndPos:Int64):T5x4LongWordRecord;
1452: Func HashValue1(AStream : TStream): T4x4LongWordRecord
1453: Func HashValue128(const ASrc:Str): T4x4LongWordRecord;
1454: Func HashValue128Stream(AStream: TStream): T4x4LongWordRecord;
1455: Func HashValue16( const ASrc :Str) : Word;
1456: Func HashValue16stream( AStream : TStream) : Word;
1457: Func HashValue32( const ASrc :Str) : LongWord;
1458: Func HashValue32Stream( AStream : TStream) : LongWord;
1459: Func HasMergeConflicts :Bool
1460: Func hasMoreTokens :Bool
1461: Func HASPARENT :Bool
1462: Func HasParent:Bool
1463: Func HasTransaction( Transaction : TDBXTransaction) :Bool
1464: Func HasUTF8BOM( S : TStream) :Bool;
1465: Func HasUTF8BOM1( S : Ansistr) :Bool;
1466: Func Haversine( X : Float) : Float
1467: Func Head( s :Str; const subs :Str; var tail :Str):str
1468: Func HELPCOMMAND(COMMAND:Int;DATA:LONGINT):BOOLEAN
1469: Func HELPCONTEXT(CONTEXT:THELPCONTEXT):BOOLEAN
1470: Func HELPJUMP(JUMPID:str):BOOLEAN
1471: Func HeronianMean( const a, b : Float) : Float
1472: Func HexStrToStr(Value:Str):Str;
1473: Func HexToBin(Text,Buffer:PChar; BufSize:Int):Int;
1474: Func HexToBin2(HexNum:Str):Str;
1475: Func HexToDouble( const Hex :Str) : Double
1476: Func HexToInt(hexnum:Str): LongInt;
1477: Func HexToStr(Value:Str):Str;
1478: Func HexifyBlock( var Buffer, BufferSize : Int) :Str
1479: Func Hi(vdat: word): byte;
1480: Func HiByte(W: Word): Byte)
1481: Func High: Int64;
1482: Func HighlightCell(DataCol,DataRow:Int;const Value:str;AState:TGridDrawState):Bool
1483: Func HINSTANCE: longword;
1484: Func HiWord(l: DWORD): Word)
1485: Func HMODULE: longword;
1486: Func HourOf( const AValue : TDateTime) : Word
1487: Func HourOfTheDay( const AValue : TDateTime) : Word
1488: Func HourOfTheMonth( const AValue : TDateTime) : Word
1489: Func HourOfTheWeek( const AValue : TDateTime) : Word
1490: Func HourOfTheYear( const AValue : TDateTime) : Word
1491: Func HoursBetween( const ANow, AThen : TDateTime) : Int64
1492: Func HourSpan( const ANow, AThen : TDateTime) : Double

1493: Func HSLToRGB1( const H, S, L : Single) : TColor32;

1494: Func HTMLDecode( const AStr :Str) :Str
1495: Func HTMLEncode( const AStr :Str) :Str
1496: Func HTMLEscape( const Str :Str) :Str
1497: Func HtmlTable(DataSet:TDataSet;DataSetHandler:TDSTableProducer;MaxRows:Int):str
1498: Func HTTPDecode( const AStr :Str) :Str
1499: Func HTTPEncode( const AStr :Str) :Str
1500: Func Hypot( const X, Y : Extended) : Extended
1501: Func IBMax( n1, n2 : Int) : Int
1502: Func IBMin( n1, n2 : Int) : Int
1503: Func IBRandomString( iLength : Int) :Str
1504: Func IBRandomInt( iLow, iHigh : Int) : Int
1505: Func IBStripString( st :Str; CharsToStrip :Str) :Str
1506: Func IBFormatIdentifier( Dialect : Int; Value :Str) :Str
1507: Func IBFormatIdentifierValue( Dialect : Int; Value :Str) :Str
1508: Func IBExtractIdentifier( Dialect : Int; Value :Str) :Str
1509: Func IBQuoteIdentifier( Dialect : Int; Value :Str) :Str
1510: Func IBAddIBParamSQLForDetail(Params:TParams;SQL:str;Native:Boolean;Dialect:Int):str
1511: Proc IBDecomposeDatabaseName(DatabaseName:Str;var ServerName,Protocol,DatabasePath:str)
1512: Func RandomString( iLength : Int) :Str;
1513: Func RandomInt( iLow, iHigh : Int) : Int;
1514: Func StripString( st :Str; CharsToStrip :Str) :Str;
1515: Func Strip(const SubString:Str; MainString:Str):Str;
1516: Func StripTags(const S:Str):Str; //<''> of HTML
1517: Func SizeToString(size : Int64; const unitStr :Str) :Str;
1518: Func NumbertoString(No: Word):Str;
1519: Func FormatIdentifier( Dialect : Int; Value :Str) :Str;
1520: Func FormatIdentifierValue( Dialect : Int; Value :Str) :Str;
1521: Func ExtractIdentifier( Dialect : Int; Value :Str) :Str;
1522: Func QuoteIdentifier( Dialect : Int; Value :Str) :Str;
1523: Func AddIBParamSQLForDetail(Params:TParams;SQL:str;Native:Boolean;Dialect:Int):str;
1524: Proc DecomposeDatabaseName(DatabaseName:str;var ServerName,Protocol,DatabasePath:str;
1525: Func NextSQLToken(var p: PChar; var Token:Str; CurSection: TSQLToken): TSQLToken;
1526: Func IconToBitmap( Ico : HICON) : TBitmap
1527: Func IconToBitmap2( Ico : HICON; Size : Int; TransparentColor : TColor) : TBitmap
1528: Func IconToBitmap3( Ico : HICON; Size : Int; TransparentColor : TColor) : TBitmap
1529: Func IdentToCharset(const Ident:Str; var Charset: Longint):Bool)
1530: Func IdentToColor(const Ident:Str; var Color: Longint):Bool)
1531: Func IdentToCursor(const Ident:Str; var cursor: Longint):Bool;
1532: Func IdGetDefaultCharSet : TIdCharSet
1533: Func IDispatchInvoke(Self:IDispatch;ProperSet:Bool;const Name:Str;Par:array of variant):variant
1534: Func IdPorts2 : TStringList
1535: Func IdToMib( const Id :Str) :Str
1536: Func IdSHA1Hash(apath:Str):Str;
1537: Func IdHashSHA1(apath:Str):Str;
1538: Func IfStr(const bCondition:boolean;const sTrue:str;const sFalse:str):Str
1539: Func IfThen( AValue :Bool; const ATrue :Str; AFalse :Str) :Str;
1540: Func IfThenInt( AValue :Bool; const ATrue : Int; AFalse : Int): Int;;
1541: Func IfThenDouble( AValue :Bool; const ATrue : double; AFalse : double): double;;
1542: Func IfThenBool( AValue :Bool; const ATrue :Bool; AFalse :Bool):Bool;;
1543: Func iif1( ATest :Bool; const ATrue : Int; const AFalse : Int) : Int;
1544: Func iif2( ATest :Bool; const ATrue :Str; const AFalse :Str) :Str;
1545: Func iif3( ATest:Boolean; const ATrue:Bool;const AFalse:Bool):Bool;
1546: Func ImportTest(S1:Str;s2:longint; s3:Byte; s4:word; var s5:str):Str;
1547: Func IncDay( const AValue : TDateTime; const ANumberOfDays : Int) : TDateTime
1548: Func IncHour( const AValue : TDateTime; const ANumberOfHours : Int64) : TDateTime
1549: Func IncLimit( var B : Byte; const Limit : Byte; const Incr : Byte) : Byte;
1550: Func IncLimit1(var B:Shortint;const Limit:Shortint;const Incr:Shortint):Shortint;
1551: Func IncLimit2(var B:Smallint;const Limit:Smallint;const Incr:Smallint):Smallint;
1552: Func IncLimit3( var B : Word; const Limit : Word; const Incr : Word) : Word;
1553: Func IncLimit4( var B : Int; const Limit : Int; const Incr : Int) : Int;
1554: Func IncLimit5(var B:Card;const Limit:Card;const Incr:Card):Card;
1555: Func IncLimit6( var B : Int64; const Limit : Int64; const Incr : Int64) : Int64;
1556: Func IncLimitClamp( var B : Byte; const Limit : Byte; const Incr : Byte) : Byte;
1557: Func IncLimitClamp1(var B: Shortint;const Limit:Shortint;const Incr: Shortint): Shortint;
1558: Func IncLimitClamp2(var B:Smallint;const Limit:Smallint;const Incr: Smallint): Smallint;
1559: Func IncLimitClamp3( var B : Word; const Limit : Word; const Incr : Word) : Word;
1560: Func IncLimitClamp4( var B : Int; const Limit : Int; const Incr : Int) : Int;
1561: Func IncLimitClamp5(var B:Card;const Limit:Card; const Incr:Card):Card;
1562: Func IncLimitClamp6(var B: Int64;const Limit:Int64; const Incr:Int64):Int64;
1563: Func IncludeTrailingBackslash( S :Str) :Str
1564: Func IncludeTrailingBackslash(const S:Str):Str)
1565: Func IncludeTrailingPathDelimiter( const APath :Str) :Str
1566: Func IncludeTrailingPathDelimiter( S :Str) :Str
1567: Func IncludeTrailingPathDelimiter(const S:Str):Str)
1568: Func IncludeTrailingSlash( const APath :Str) :Str
1569: Func IncMilliSecond(const AValue:TDateTime;const ANumberOfMilliSeconds:Int64):TDateTime
1570: Func IncMinute(const AValue:TDateTime;const ANumberOfMinutes:Int64):TDateTime
1571: Func IncMonth( DateTime : TDateTime; NumberOfMonths : Int) : TDateTime
1572: Func IncMonth(const DateTime: TDateTime; NumberOfMonths: Int): TDateTime)
1573: Func IncSecond(const AValue:TDateTime;const ANumberOfSeconds: nt64) : TDateTime
1574: Func IncWeek(const AValue : TDateTime; const ANumberOfWeeks : Int) : TDateTime
1575: Func IncYear(const AValue : TDateTime; const ANumberOfYears : Int) : TDateTime
1576: Func IndexOf(AClass : TClass) : Int
1577: Func IndexOf(AComponent : TComponent) : Int
1578: Func IndexOf(AObject : TObject) : Int
1579: Func INDEXOF(const ANAME :Str) : Int
1580: Func IndexOf(const DisplayName :Str) : Int
1581: Func IndexOf(const Item : TBookmarkStr) : Int

1582: Func IndexOf(const S : WideString) : Int

1583: Func IndexOf(const View : TJclFileMappingView) : Int
1584: Func INDEXOF(FIELD : TFIELD) : Int
1585: Func IndexOf(ID : LCID) : Int
1586: Func INDEXOF(ITEM : TMENUITEM) : Int
1587: Func IndexOf(Value : TListItem) : Int
1588: Func IndexOf(Value : TTreeNode) : Int
1589: Func IndexOf(const S:Str): Int;
1590: Func IndexOfName( const Name : WideString) : Int
1591: Func IndexOfName(Name:Str): Int;
1592: Func IndexOfObject( AObject : TObject) : Int
1593: Func IndexofObject(AObject:tObject):Int
1594: Func IndexOfTabAt( X, Y : Int) : Int
1595: Func IndexStr( const AText :Str; const AValues : array of string) : Int
1596: Func IndexText( const AText :Str; const AValues : array of string): Int
1597: Func IndexOfInt( AList : TStringList; Value : Variant) : Int
1598: Func IndexOfFloat( AList : TStringList; Value : Variant) : Int
1599: Func IndexOfDate( AList : TStringList; Value : Variant) : Int
1600: Func IndexOfString( AList : TStringList; Value : Variant) : Int
1601: Func IndyCompareStr( const A1 :Str; const A2 :Str) : Int
1602: Func IndyGetHostName :Str
1603: Func IndyInterlockedDecrement( var I : Int) : Int
1604: Func IndyInterlockedExchange( var A : Int; B : Int) : Int
1605: Func IndyInterlockedExchangeAdd( var A : Int; B : Int) : Int
1606: Func IndyInterlockedIncrement( var I : Int) : Int
1607: Func IndyLowerCase( const A1 :Str) :Str
1608: Func IndyStrToBool( const AString :Str) :Bool
1609: Func IndyUpperCase( const A1 :Str) :Str
1610: Func InitCommonControl( CC : Int) :Bool
1611: Func InitTempPath :Str
1612: Func InMainThread :Bool
1613: Func inOpArray(W : WideChar; sets:array of WideChar):Bool
1614: Func Input: Text)
1615: Func InputBox( const ACaption, APrompt, ADefault :Str) :Str
1616: Func InputBox(const ACaption:str;const APrompt:str;const ADefault:str):str)
1617: Func InputLn(const AMask:str;AEcho:Boolean;ATabWidth:Int;AMaxLineLength:Int):str
1618: Func InputQuery( const ACaption, APrompt :Str; var Value :Str) :Bool
1619: Func InputQuery(const ACaption:str; const APrompt:str; var Value:Str):Bool)
1620: Func InquireSignal( RtlSigNum : Int) : TSignalState
1621: Func InRangeR( const A, Min, Max : Double) :Bool
1622: Func Insert(Index:Int):TCollectionItem
1623: Func Insert(Index:Int):TComboExItem
1624: Func Insert(Index:Int):THeaderSection
1625: Func Insert(Index:Int):TListItem
1626: Func Insert(Index:Int):TStatusPanel
1627: Func Insert(Index:Int):TWorkArea
1628: Func Insert(Index:LongInt; const Text :Str) : LongInt
1629: Func Insert(Sibling : TTreeNode; const S :Str) : TTreeNode
1630: Func INSERTNEWLINEAFTER( AITEM : TMENUITEM) : Int
1631: Func INSERTNEWLINEBEFORE( AITEM : TMENUITEM) : Int
1632: Func InsertNode( Node, Sibling : TTreeNode; const S :Str; Ptr : Pointer) : TTreeNode
1633: Func InsertObject( Index : LongInt; const Text :Str; const Data : Pointer) : LongInt
1634: Func InsertObject( Sibling : TTreeNode; const S :Str; Ptr : Pointer) : TTreeNode
1635: Func Instance : Longint
1636: Func InstanceSize: Longint
1637: Func Int(e : Extended) : Extended;
1638: Func Int64ToStr(i: Int64):Str;
1639: Func IntToBcd( const AValue : Int) : TBcd
1640: Func Intensity( const Color32 : TColor32) : Int;
1641: Func Intensity( const R, G, B : Single) : Single;
1642: Func InterestPayment(const Rate:Extended;Period,NPeriods:Int;const PresentValue,
FutureValue:Extended;PaymentTime :TPaymentTime):Extended
1643: Func InterestRate(NPeriods:Int;const Payment,PresVal,FutureVal:Extended;PaymentTime:TPaymentTime):Extended
1644: Func InternalDecodeDate(DateTime:TDateTime;var Year,Month,Day,DOW:Word):Boolean
1645: Func InternalRateOfReturn(const Guess:Extended;const CashFlows:array of Double):Extended
1646: Func InternalUpdateRecord( Tree : TUpdateTree) :Bool
1647: Func IntersectRect( out Rect : TRect; const R1, R2 : TRect) :Bool
1648: Func IntersectRect(out Rect: TRect; const R1, R2: TRect):Bool)
1649: Func IntMibToStr( const Value :Str) :Str
1650: Func IntPower( const Base : Extended; const Exponent : Int) : Extended
1651: Func IntToBin( Value :Card) :Str
1652: Func IntToHex( Value : Int; Digits : Int) :Str;
1653: Func IntToHex(a: Int; b: Int):Str;
1654: Func IntToHex64( Value : Int64; Digits : Int) :Str;
1655: Func IntToHex64(Value: Int64; Digits: Int):Str)
1656: Func IntTo3Str( Value : Longint; separator:Str) :Str
1657: Func inttobool( aInt : LongInt) :Bool
1658: Func IntToStr(i: Int64):Str;
1659: Func IntToStr64(Value: Int64):Str)
1660: Func IOResult: Int
1661: Func IPv6AddressToStr(const AValue: TIdIPv6Address):Str
1662: Func IPAddrToHostName(const IP:Str):Str;
1663: Func IsAccel(VK: Word; const Str:Str):Bool
1664: Func IsAddressInNetwork( Address :Str) :Bool
1665: Func IsAdministrator :Bool
1666: Func IsAlias( const Name :Str) :Bool
1667: Func IsApplicationRunning( const AClassName, ApplName:str):Bool
1668: Func IsASCII( const AByte : Byte) :Bool;
1669: Func IsASCIILDH( const AByte : Byte) :Bool;

1670: Func IsAssembly(const FileName:Str):Bool;

1671: Func IsBcdNegative( const Bcd : TBcd) :Bool
1672: Func IsBinary(const AChar : Char) :Bool
1673: Func IsConsole:Bool)
1674: Func IsDelimiter( Delimiters, S :Str; Index : Int) :Bool
1675: Func IsDelimiter(const Delimiters:Str;const S:Str;Index: Int):Boolean)
1676: Func IsDelphiDesignMode :Bool
1677: Func IsDelphiRunning :Bool
1678: Func IsDFAState :Bool
1679: Func IsDirectory( const FileName :Str) :Bool
1680: Func IsDomain( const S :Str) :Bool
1681: Func IsDragObject(Sender: TObject):Bool;
1682: Func IsEditing :Bool
1683: Func ISEMPTY :Bool
1684: Func IsEqual( Value : TParameters) :Bool
1685: Func ISEQUAL( VALUE : TPARAMS) :Bool
1686: Func IsEqualGUID(const guid1, guid2: TGUID):Bool)
1687: Func IsFirstNode :Bool
1688: Func IsFloatZero( const X : Float) :Bool
1689: Func IsFormatRegistered( Extension, AppID :Str) :Bool
1690: Func IsFormOpen(const FormName:Str):Bool;
1691: Func IsFQDN( const S :Str) :Bool
1692: Func IsGrayScale :Bool
1693: Func IsHex( AChar : Char) :Bool;
1694: Func IsHexString(const AString:Str):Bool;
1695: Func IsHostname( const S :Str) :Bool
1696: Func IsInfinite( const AValue : Double) :Bool
1697: Func IsInLeapYear( const AValue : TDateTime) :Bool
1698: Func IsInternet:Bool;
1699: Func IsLeadChar( ACh : Char) :Bool
1700: Func IsLeapYear( Year : Word) :Bool
1701: Func IsLeapYear(Year: Word):Bool)
1702: Func IsLibrary:Bool)
1703: Func ISLINE :Bool
1704: Func IsLinkedTo( DataSet : TDataSet) :Bool
1705: Func ISLINKEDTO( DATASOURCE : TDATASOURCE) :Bool
1706: Func IsLiteralChar( const EditMask :Str; Offset : Int) :Bool
1707: Func IsMatch( const Pattern, Text :Str) :Bool //Grep like RegEx
1708: Func IsMainAppWindow( Wnd : HWND) :Bool
1709: Func IsMediaPresentInDrive( Drive : Char) :Bool
1710: Func IsMemoryManagerSet:Bool)
1711: Func IsMultiTableQuery( const SQL : WideString) :Bool
1712: Func IsMultiThread:Bool)
1713: Func IsNumeric( AChar : Char) :Bool;
1714: Func IsNumeric2( const AString :Str) :Bool;
1715: Func IsNTFS:Bool;
1716: Func IsOctal( AChar : Char) :Bool;
1717: Func IsOctalString(const AString:Str) :Bool;
1718: Func IsPathDelimiter( S :Str; Index : Int) :Bool
1719: Func IsPathDelimiter(const S:Str; Index: Int):Bool)
1720: Func IsPM( const AValue : TDateTime) :Bool
1721: Func IsPositiveFloatArray( const X : TDynFloatArray) :Bool
1722: Func IsPortAvailable( ComNum :Card) :Bool;
1723: Func IsCOMPortReal( ComNum :Card) :Bool;
1724: Func IsCOM( ComNum :Card) :Bool;
1725: Func IsCOMPort:Bool;
1726: Func IsPrimeFactor( const F, N :Card) :Bool
1727: Func IsPrimeRM( N :Card) :Bool //rabin miller
1728: Func IsPrimeTD( N :Card) :Bool //trial division
1729: Func IsPrivilegeEnabled( const Privilege :Str) :Bool
1730: Func ISqrt( const I : Smallint) : Smallint
1731: Func IsReadOnly(const Filename:Str):Bool;
1732: Func IsRectEmpty( const Rect : TRect) :Bool
1733: Func IsRectEmpty(const Rect: TRect):Bool)
1734: Func IsRelativePrime( const X, Y :Card) :Bool
1735: Func ISRIGHTTOLEFT :Bool
1736: Func IsRightToLeft:Bool
1737: Func IsSameDay( const AValue, ABasis : TDateTime) :Bool
1738: Func ISSEQUENCED :Bool
1739: Func IsSystemModule( const Module : HMODULE) :Bool
1740: Func IsSystemResourcesMeterPresent :Bool
1741: Func IsTCPPortOpen(dwPort : Word; ipAddressStr:Str):Bool;
1742: Func IsToday( const AValue : TDateTime) :Bool
1743: Func IsToday(const AValue: TDateTime):Bool;
1744: Func IsTopDomain( const AStr :Str) :Bool
1745: Func IsUTF8LeadByte( Lead : Char) :Bool
1746: Func IsUTF8String( const s : UTF8String) :Bool
1747: Func IsUTF8TrailByte( Lead : Char) :Bool
1748: Func ISVALIDCHAR( INPUTCHAR : CHAR) :Bool
1749: Func IsValidDate( const AYear, AMonth, ADay : Word) :Bool
1750: Func IsValidDateDay( const AYear, ADayOfYear : Word) :Bool
1751: Func IsValidDateMonthWeek(const AYear,AMonth,AWeekOfMonth,ADayOfWeek:Word): Bool
1752: Func IsValidDateTime(const AYear,AMonth,ADay,AHour,AMinute,ASecond,AMilliSecond:Word): Bool
1753: Func IsValidDateWeek( const AYear, AWeekOfYear, ADayOfWeek : Word) :Bool
1754: Func IsValidIdent( Ident :Str) :Bool
1755: Func IsValidIdent1(const Ident:Str; AllowDots:Bool):Bool)
1756: Func IsValidIP( const S :Str) :Bool
1757: Func IsValidTime( const AHour, AMinute, ASecond, AMilliSecond : Word) :Bool
1758: Func IsValidPNG(stream: TStream):Bool;

1759: Func IsValidJPEG(stream: TStream):Bool;

1760: Func IsValidISBN( const ISBN : Ansistr) :Bool
1761: Func IsVariantManagerSet:Bool; //deprecated;
1762: Func IsVirtualPcGuest :Bool;
1763: Func IsVmWareGuest :Bool;
1764: Func IsVCLControl(Handle: HWnd):Bool;
1765: Func IsWhiteString( const AStr :Str) :Bool
1766: Func IsWindowResponding( Wnd : HWND; Timeout : Int) :Bool
1767: Func IsWoW64:Bool;
1768: Func IsWin64:Bool;
1769: Func IsWow64String(var s:Str):Bool;
1770: Func IsWin64String(var s:Str):Bool;
1771: Func IsWindowsVista:Bool;
1772: Func isPowerof2(num: int64):Bool;
1773: Func powerOf2(exponent: Int): int64;
1774: Func IsZero(const A: Extended; Epsilon: Extended):Bool //overload;
1775: Func IsZero1(const A: Double; Epsilon: Double):Bool //overload;
1776: Func IsZero2(const A: Single; Epsilon: Single):Bool //overload;
1777: Func ItemAtPos( Pos : TPoint; IgnoreTabHeight :Bool) : Int
1778: Func ITEMATPOS(POS:TPOINT;EXISTING:BOOLEAN):Int
1779: Func ItemRect( Index : Int) : TRect
1780: Func ITEMRECT(INDEX:Int):TRECT
1781: Func ItemWidth( Index : Int) : Int
1782: Func JavahashCode(val:Str): Int;
1783: Func JosephusG(n,k: Int; var graphout:Str): Int;
1784: Func JulianDateToDateTime( const AValue : Double) : TDateTime
1785: Func JustName(PathName :Str) :Str; //in path and ext
1786: Func JvMessageBox( const Text, Caption :Str; Flags : DWORD) : Int;
1787: Func JvMessageBox1( const Text :Str; Flags : DWORD) : Int;
1788: Func KeepAlive :Bool
1789: Func KeysToShiftState(Keys: Word): TShiftState;
1790: Func KeyDataToShiftState(KeyData: Longint): TShiftState;
1791: Func KeyboardStateToShiftState2(const KeyboardState: TKeyboardState):TShiftState;
1792: Func KeyboardStateToShiftState: TShiftState; overload;
1793: Func Languages : TLanguages
1794: Func Last: TClass
1795: Func Last: TComponent
1796: Func Last: TObject
1797: Func LastDelimiter( Delimiters, S :Str) : Int
1798: Func LastDelimiter(const Delimiters:Str; const S:Str): Int)
1799: Func LastPos( const ASubstr :Str; const AStr :Str) : Int
1800: Func Latitude2WGS84(lat: double): double;
1801: Func LCM(m,n:longint):longint;
1802: Func LCMJ( const X, Y :Card) :Card
1803: Func Ldexp( const X : Extended; const P : Int) : Extended
1804: Func LeftStr( const AText : Ansistr; const ACount : Int) : Ansistr;
1805: Func LeftStr( const AText : WideString; const ACount : Int) : WideString;
1806: Func Length: Int;
1807: Proc LetFileList(FileList: TStringlist; apath:Str);
1808: Func lengthmp3(mp3path:Str):Int;
1809: Func LineInRect( const P1, P2 : TPoint; const Rect : TRect) :Bool;
1810: Func LineInRect1( const P1, P2 : TFloatPoint; const Rect : TFloatRect) :Bool;
1811: Func LinesCount(sfilename:str):extended;
1812: Func TextFileLineCount(const FileName:Str): Int;
1813: Func LineSegmentIntersection(const L1P1:TFloatPoint;L1P2:TFloatPoint;const L2P1:TFloatPoint;
L2P2:TFloatPoint;var P:TFloatPoint):Boolean
1814: Func LineStart(Buffer, BufPos: PChar): PChar
1815: Func LineStart(Buffer, BufPos: PChar): PChar)
1816: Func ListSeparator: char;
1817: Func Ln(x: Extended): Extended;
1818: Func LnXP1( const X : Extended) : Extended
1819: Func Lo(vdat: word): byte;
1820: Func LoadCursor(hInstance: HINST; lpCursorName: PChar): HCURSOR
1821: Func LoadedModulesList(const List:TStrings;ProcessID:DWORD;HandlesOnly:Boolean):Bool
1822: Func LoadFileAsString( const FileName :Str) :Str
1823: Func LoadFromFile( const FileName :Str) : TBitmapLoader
1824: Func LoadFile(const FileName: TFileName):Str;
1825: Func LoadLibraryEx(LibName: PChar; hFile: Longint; Flags: Longint): Longint; stdcall;
1826: Func LoadPackage(const Name:Str): HMODULE
1827: Func LoadResource( ModuleHandle : HMODULE; ResHandle: TResourceHandle):HGLOBAL
1828: Func LoadStr( Ident : Int) :Str
1829: Func LoadString(Instance: Longint; IDent: Int; Buffer: PChar; Size: Int):Int;stdcall;
1830: Func LoadWideStr( Ident : Int) : WideString
1831: Func LOCATE(const KEYFIELDS:str;const KEYVALUES:VARIANT;OPTIONS:TLOCATEOPTIONS):BOOLEAN
1832: Func LockRegion(libOffset:Longint;cb:Largeint;dwLockType:Longint): HResult
1833: Func LockServer( fLock : LongBool) : HResult
1834: Func LockVolume( const Volume :Str; var Handle : THandle) :Bool
1835: Func Log( const X : Extended) : Extended
1836: Func Log10( const X : Extended) : Extended
1837: Func Log2( const X : Extended) : Extended
1838: Func LogBase10(X: Float): Float;
1839: Func LogBase2(X: Float): Float;
1840: Func LogBaseN(Base, X: Float): Float;
1841: Func LogN( const Base, X : Extended) : Extended
1842: Func LogOffOS :Bool
1843: Func LoginDialog( const ADatabaseName :Str; var AUserName, APassword :Str):Bool
1844: Func LoginDialogEx(const ADbName:str;var AUserName,APassword:str;NameReadOnly:Bool):Bool;
1845: Func LongDateFormat:Str;
1846: Func LongTimeFormat:Str;

1847: Func LongWordToFourChar( ACardinal : LongWord) :Str

1848: Func LOOKUP(const KEYFIELDS:Str;const KEYVALUES:VARIANT;const RESULTFIELDS:str):VARIANT
1849: Func LookupName( const name :Str) : TInAddr
1850: Func LookupService( const service :Str) : Int
1851: Func Low: Int64;
1852: Func LowerCase( S :Str) :Str
1853: Func Lowercase(s : AnyString) : AnyString;
1854: Func LRot( const Value : Byte; const Count : TBitRange) : Byte;
1855: Func LRot1( const Value : Word; const Count : TBitRange) : Word;
1856: Func LRot2( const Value : Int; const Count : TBitRange) : Int;
1857: Func MainInstance: longword
1858: Func MainThreadID: longword
1859: Func Map(x, in_min, in_max, out_min, out_max: Int): Int; //arduino
1860: Func mapMax(ax, in_min, in_max, out_min, out_max: Int): Int;
1861: Func MakeCanonicalIPv4Address( const AAddr :Str) :Str
1862: Func MakeCanonicalIPv6Address( const AAddr :Str) :Str
1863: Func MakeDIB( out Bitmap : PBitmapInfo) : Int
1864: Func MakeDWordIntoIPv4Address( const ADWord :Card) :Str
1865: Func MakeFile(const FileName:Str): Int);
1866: Func MakeLong(A, B: Word): Longint)
1867: Func MakeTempFilename( const APath :Str) :Str
1868: Func MakeValidFileName( const Str :Str) :Str
1869: Func MakeValueMap( Enumeration :Str; ToCds :Bool) :Str
1870: Func MakeWord(A, B: Byte): Word)
1871: Func MakeYear4Digit( Year, Pivot : Int) : Int
1872: Func MapDateTime(const DateFormatType:str;DateFormat:str;Value:str;ToCds:Bool):str
1873: Func MapValues( Mapping :Str; Value :Str) :Str
1874: Func MaskDoFormatText(const EditMask:str;const Value:str;Blank:Char):str
1875: Func MaskGetCharType( const EditMask :Str; MaskOffset : Int) : TMaskCharType
1876: Func MaskGetCurrentDirectives( const EditMask :Str; MaskOffset:Int):TMaskDirectives
1877: Func MaskGetFldSeparator( const EditMask :Str) : Int
1878: Func MaskGetMaskBlank( const EditMask :Str) : Char
1879: Func MaskGetMaskSave( const EditMask :Str) :Bool
1880: Func MaskIntlLiteralToChar( IChar : Char) : Char
1881: Func MaskOffsetToOffset( const EditMask :Str; MaskOffset : Int) : Int
1882: Func MaskOffsetToWideOffset( const EditMask :Str; MaskOffset : Int) : Int
1883: Func MaskString( Mask, Value :Str) :Str
1884: Func Match( const sString :Str) : TniRegularExpressionMatchResul
1885: Func Match1( const sString:Str;iStart:Int):TniRegularExpressionMatchResult
1886: Func Matches( const Filename :Str) :Bool
1887: Func MatchesMask( const Filename, Mask :Str) :Bool
1888: Func MatchStr( const AText :Str; const AValues : array of string):Bool
1889: Func MatchText( const AText :Str; const AValues : array of string):Bool
1890: Func Max( AValueOne, AValueTwo : Int) : Int
1891: Func Max(const x,y: Int): Int;
1892: Func Max1(const B1, B2 : Shortint) : Shortint;
1893: Func Max2(const B1, B2 : Smallint) : Smallint;
1894: Func Max3(const B1, B2 : Word) : Word;
1895: Func Max3(const x,y,z: Int): Int;
1896: Func Max4(const B1, B2 : Int) : Int;
1897: Func Max5(const B1, B2 :Card) :Card;
1898: Func Max6(const B1, B2 : Int64) : Int64;
1899: Func Max64(const AValueOne, AValueTwo : Int64) : Int64
1900: Func MaxFloat(const X, Y : Float) : Float
1901: Func MaxFloatArray(const B : TDynFloatArray) : Float
1902: Func MaxFloatArrayIndex( const B : TDynFloatArray) : Int
1903: Func MaxIntValue(const Data: array of Int):Int)
1904: Func MaxJ( const B1, B2 : Byte) : Byte;
1905: Func MaxPath:Str;
1906: Func MaxValue(const Data: array of Double): Double)
1907: Func MaxCalc( const Formula :Str) : Extended //math expression parser
1908: Proc MaxCalcF( const Formula :Str); //out to console memo2
1909: Func MaxCalcS( const Formula :Str):Str;
1910: Func MD5(const fileName:Str):Str;
1911: Func Mean( const Data : array of Double) : Extended
1912: Func Median( const X : TDynFloatArray) : Float
1913: Func Memory : Pointer
1914: Func MemoryPos( const ASubStr :Str; MemBuff : PChar; MemorySize: Int): Int
1915: Func MessageBox(hndl:Card; text, caption:Str; utype:Card): Int;
1916: Func MESSAGEBOX(TEXT,CAPTION:PCHAR;FLAGS:WORD):Int
1917: Func MessageDlg(const Msg:str;DlgType:TMsgDlgType;Buttons:TMsgDlgButtons;HelpCtx:Longint):Int;
1918: Func MessageDlg1(const
Msg:str;DlgType:TMsgDlgType;Buttons:TMsgDlgButtons;HelpCtx:Longint;DefaultButton:TMsgDlgBtn):Int;
1919: Func MessageDlgPos(const Msg:str;DlgType:TMsgDlgType;Buttons:TMsgDlgButtons;HelpCtx:Longint;X,Y:Int):Int;
1920: Func MessageDlgPos1(const Msg:str; DlgType:TMsgDlgType; Buttons:TMsgDlgButtons;HelpCtx:Longint;X,Y:
Int;DefaultButton:TMsgDlgBtn):Int;
1921: Func MessageDlgPosHelp(const Msg:str;DlgType:TMsgDlgType;Buttons:TMsgDlgButtons;HelpCtx:Longint;X,Y:
Int;const HelpFileName:str):Int;
1922: Func MessageDlgPosHelp1(const Msg:str;DlgType:TMsgDlgType;Buttons:TMsgDlgButtons;HelpCtx:Longint;X,Y :
Int;const HelpFileName:str; DefaultButton:TMsgDlgBtn):Int;
1923: Func MibToId( Mib :Str) :Str
1924: Func MidStr( const AText : Ansistr; const AStart, ACount : Int) : Ansistr;
1925: Func MidStr( const AText : WideString; const AStart, ACount : Int) : WideString;
1926: Func microsecondsToCentimeters(mseconds:longint):longint;//340m/s speed of sound
1927: Func Micros(const Timer:THPTimer;const TimerRunning:Boolean):Int64//TypeS('THPTimer', 'Int64
1928: Func MIDIOut( DeviceID :Card) : IJclMIDIOut
1929: Proc GetMidiOutputs( const List : TStrings)
1930: // GetGEOMAPX('html',ExePath+'cologne2mapX.html','cathedral cologne
1931: Proc GetGEOMap(C_form,apath:str; const Data:Str);//c_form:[html/json/xml]

1932: Func MIDISingleNoteTuningData( Key : TMIDINote; Frequency : Single) : TSingleNoteTuningData

1933: Func MIDINoteToStr( Note : TMIDINote) :Str
1934: Func WinMidiOut( DeviceID :Card) : IJclWinMidiOut
1935: Proc GetMidiOutputs( const List : TStrings)
1936: Proc MidiOutCheck( Code : MMResult)
1937: Proc MidiInCheck( Code : MMResult)
1938: Func MilliSecondOf( const AValue : TDateTime) : Word
1939: Func MilliSecondOfTheDay( const AValue : TDateTime): LongWord
1940: Func MilliSecondOfTheHour( const AValue : TDateTime): LongWord
1941: Func MilliSecondOfTheMinute( const AValue : TDateTime): LongWord
1942: Func MilliSecondOfTheMonth( const AValue : TDateTime): LongWord
1943: Func MilliSecondOfTheSecond( const AValue : TDateTime): Word
1944: Func MilliSecondOfTheWeek( const AValue : TDateTime): LongWord
1945: Func MilliSecondOfTheYear( const AValue : TDateTime): Int64
1946: Func MilliSecondsBetween( const ANow, AThen : TDateTime): Int64
1947: Func MilliSecondSpan( const ANow, AThen : TDateTime): Double
1948: Func milliToDateTime( MilliSecond : LongInt) : TDateTime;
1949: Func Micros( const Timer : THPTimer; const TimerRunning:Boolean):Int64
1950: Func millis: int64;
1951: Func Min( AValueOne, AValueTwo : Int) : Int
1952: Func Min1(const B1,B2: Shortint) : Shortint;
1953: Func Min2(const B1,B2: Smallint) : Smallint;
1954: Func Min3(const B1,B2: Word) : Word;
1955: Func Min4(const B1,B2: Int) : Int;
1956: Func Min5(const B1,B2:Card) :Card;
1957: Func Min6(const B1,B2: Int64) : Int64;
1958: Func Min64( const AValueOne, AValueTwo : Int64) : Int64
1959: Func MinClientRect : TRect;
1960: Func MinClientRect1( IncludeScroller :Bool) : TRect;
1961: Func MinClientRect2( TabCount : Int; IncludeScroller :Bool) : TRect;
1962: Func MinFloat( const X, Y : Float) : Float
1963: Func MinFloatArray( const B : TDynFloatArray) : Float
1964: Func MinFloatArrayIndex( const B : TDynFloatArray) : Int
1965: Func MinimizeName(const Filename:str;Canvas : TCanvas; MaxLen:Int):Str
1966: Func MinimizeName(const Filename:TFileName;Canvas:TCanvas; MaxLen:Int):FileName
1967: Func MinimizeName(const Filename:Str; Canvas: TCanvas;MaxLen: Int):TFileName
1968: Func MinIntValue( const Data : array of Int) : Int
1969: Func MinIntValue(const Data: array of Int):Int)
1970: Func MinJ( const B1, B2 : Byte) : Byte;
1971: Func MinuteOf( const AValue : TDateTime) : Word
1972: Func MinuteOfTheDay( const AValue : TDateTime) : Word
1973: Func MinuteOfTheHour( const AValue : TDateTime) : Word
1974: Func MinuteOfTheMonth( const AValue : TDateTime) : Word
1975: Func MinuteOfTheWeek( const AValue : TDateTime) : Word
1976: Func MinuteOfTheYear( const AValue : TDateTime) : LongWord
1977: Func MinutesBetween( const ANow, AThen : TDateTime) : Int64
1978: Func MinuteSpan( const ANow, AThen : TDateTime) : Double
1979: Func MinValue( const Data : array of Double) : Double
1980: Func MinValue(const Data: array of Double): Double)
1981: Func MixerLeftRightToArray( Left, Right :Card) : TDynCardinalArray
1982: Func MMCheck( const MciError : MCIERROR; const Msg :Str) : MCIERROR
1983: Func ModFloat( const X, Y : Float) : Float
1984: Func ModifiedJulianDateToDateTime( const AValue : Double) : TDateTime
1985: Func Modify( const Key :Str; Value : Int) :Bool
1986: Func ModuleCacheID :Card
1987: Func ModuleFromAddr( const Addr : Pointer) : HMODULE
1988: Func MonitorFromPoint(const Point:TPoint;MonitorDefault:TMonitorDefaultTo): TMonitor
1989: Func MonitorFromRect(const Rect:TRect;MonitorDefault:TMonitorDefaultTo):TMonitor
1990: Func MonitorFromWindow(const Handle:THandle; MonitorDefault:TMonitorDefaultTo): TMonitor
1991: Func MonthOf( const AValue : TDateTime) : Word
1992: Func MonthOfTheYear( const AValue : TDateTime) : Word
1993: Func MonthsBetween( const ANow, AThen : TDateTime) : Int
1994: Func MonthSpan( const ANow, AThen : TDateTime) : Double
1995: Func MonthStr( DateTime : TDateTime) :Str
1996: Func MouseCoord( X, Y : Int) : TGridCoord
1997: Func MOVEBY( DISTANCE : Int) : Int
1998: Func MoveFile( Source, Dest :Str; Flags : FILEOP_FLAGS) :Bool
1999: Func MoveNext :Bool
2000: Func MSecsToTimeStamp( MSecs : Comp) : TTimeStamp
2001: Func MSecsToTimeStamp(MSecs: Comp): TTimeStamp)
2002: Func Name :Str
2003: Func NetPresentValue(const Rate:Extended;const CashFlows:array of Double;PaymentTime:TPaymentTime):Extended
2004: Func NetworkVolume(DriveChar: Char):Str
2005: Func NEWBOTTOMLINE : Int
2006: Func NewCompareNode(Field: TField;Operator:TCANOperator; const Value:Variant) : PExprNode
2007: Func NEWITEM(const ACAPTION:str;ASHORTCUT:TSHORTCUT;ACHECKED,AENABLED:BOOL;AONCLICK:
TNOTIFYEVENT;HCTX:WORD;const ANAME:str):TMENUITEM
2008: Func NEWLINE : TMENUITEM
2009: Func NEWMENU( OWNER : TCOMPONENT;const ANAME:str;ITEMS: array of TMenuItem): TMAINMENU
2010: Func NewNode(Kind: TExprNodeKind;Operator:TCANOperator;const Data:Variant;Left,Right:PExprNode):PExprNode
2011: Func NEWPOPUPMENU(OWNER:TCOMPONENT;const ANAME:str; ALIGNMENT:TPOPUPALIGNMENT;AUTOPOPUP:BOOLEAN; const
ITEMS : array of TCMENUITEM) : TPOPUPMENU
2012: Func NewState( eType : TniRegularExpressionStateType) : TniRegularExpressionState
2013: Func NEWSUBMENU(const ACAPT:str;HCTX:WORD;const ANAME:str;ITEMS:array of TMenuItem;AENABLED:BOOL):
TMENUITEM
2014: Func NEWTOPLINE : Int
2015: Func Next : TIdAuthWhatsNext
2016: Func NextCharIndex( S :Str; Index : Int) : Int
2017: Func NextRecordSet : TCustomSQLDataSet

2018: Func NextRecordset( var RecordsAffected : Int) : _Recordset

2019: Func NextSQLToken1(var p: WideChar;out Token:WideString;CurSection:TSQLToken):TSQLToken;
2020: Func NextToken : Char
2021: Func nextToken : WideString
2022: Func NextToken:Char
2023: Func Norm( const Data : array of Double) : Extended
2024: Func NormalizeAngle( const Angle : Extended) : Extended
2025: Func NormalizeBcd(const InBcd TBcd;var OutBcd:TBcd;const Prec,Scale Word):Bool
2026: Func NormalizeRect( const Rect : TRect) : TRect
2027: Func NormalizeRect(const Rect: TRect): TRect;
2028: Func Now :TDateTime
2029: Func Now2:tDateTime
2030: Func NumProcessThreads:Int
2031: Func NumThreadCount : Int
2032: Func NthDayOfWeek( const AValue : TDateTime) : Word
2033: Func NtProductType : TNtProductType
2034: Func NtProductTypeString :Str
2035: Func Null: Variant;
2036: Func NullPoint : TPoint
2037: Func NullRect : TRect
2038: Func Null2Blank(aString:str):str;
2039: Func NumberOfPeriods(const Rate:Extended;Payment:Extended;const PresentValue,
FutureValue:Extended;PaymentTime:TPaymentTime):Extended
2040: Func NumIP:Int
2041: Func Odd(x: Longint):Bool;
2042: Func OffsetFromUTC : TDateTime
2043: Func OffsetPoint( const P, Offset : TPoint) : TPoint
2044: Func OffsetRect( var Rect : TRect; DX : Int; DY : Int) :Bool
2045: Func OffsetRect(var Rect: TRect; DX:Int; DY:Int):Bool)
2046: Func OffsetToMaskOffset( const EditMask :Str; Offset : Int) : Int
2047: Func OkToChangeFieldAlignment( AField : TField; Alignment : TAlignment):Bool
2048: Func OldBCDToCurr( const BCD : TBcd; var Curr : Currency) :Bool
2049: Func OldCurrToBCD(const Curr:Currency;var BCD:TBcd;Precision:Int;Decimals:Int):Bool
2050: Func OpenBit:Int
2051: Func OpenDatabase : TDatabase
2052: Func OpenDatabase( const DatabaseName:str):TDatabase
2053: Proc OpenDir(adir:Str);
2054: Func OpenGLColorToWinColor( const Red, Green, Blue:Float):TColor
2055: Func OpenMap(const Data:Str):Bool;
2056: Func OpenMapX(const Data:Str):Bool;
2057: Func OpenObject( Value : PChar) :Bool;
2058: Func OpenObject1( Value :Str) :Bool;
2059: Proc Openweb('http://snippets.delphidabbler.com/#')
2060: Proc OpenURL( const AText : TKkString);
2061: Proc OpenWeb( const AText : TKkString);
2062: Proc OpenBrowser( const AText : TKkString);
2063: Func OpenSession( const SessionName :Str) : TSession
2064: Func OpenVolume( const Drive : Char) : THandle
2065: Func OrdFourByteToCardinal(AByte1, AByte2, AByte3, AByte4 : Byte):Card
2066: Func OrdFourByteToLongWord( AByte1, AByte2, AByte3, AByte4 : Byte): LongWord
2067: Func OrdToBinary( const Value: Byte) :Str;
2068: Func OrdToBinary1(const Value: Shortint) :Str;
2069: Func OrdToBinary2(const Value: Smallint) :Str;
2070: Func OrdToBinary3(const Value: Word) :Str;
2071: Func OrdToBinary4(const Value: Int) :Str;
2072: Func OrdToBinary5(const Value:Card) :Str;
2073: Func OrdToBinary6(const Value: Int64) :Str;
2074: Func OSCheck( RetVal :Bool) :Bool
2075: Func OSFileTypeToString( const OSFileType:DWORD;const OSFileSubType:DWORD):str
2076: Func OSIdentToString( const OSIdent : DWORD) :Str
2077: Func Output: Text)
2078: Func Overlay( ImageIndex : Int; Overlay : TOverlay):Boolean
2079: Func Owner : TCustomListView
2080: Func Owner : TPersistent
2081: Func PadInputLiterals(const EditMask:str;const Value:str;Blank:Char):str
2082: Func PadL( pStr :Str; pLth : Int) :Str
2083: Func Padl(s : AnyString;I : longInt) : AnyString;
2084: Func PadLCh( pStr :Str; pLth : Int; pChr : char) :Str
2085: Func PadR( pStr :Str; pLth : Int) :Str
2086: Func Padr(s : AnyString;I : longInt) : AnyString;
2087: Func PadRCh( pStr :Str; pLth : Int; pChr : char) :Str
2088: Func PadString(const AString:Str;const ALen:Int; const AChar:Char):str
2089: Func Padz(s : AnyString;I : longInt) : AnyString;
2090: Func PaethPredictor( a, b, c : Byte) : Byte
2091: Func PARAMBYNAME( const VALUE :Str) : TPARAM
2092: Func ParamByName( const Value : WideString): TParameter
2093: Func ParamCount: Int
2094: Func ParamsEncode( const ASrc :Str):Str
2095: Func ParamStr(Index: Int):Str)
2096: Func ParseDate( const DateStr :Str): TDateTime
2097: Func PARSESQL( SQL :Str; DOCREATE :Bool) :Str
2098: Func ParseSQL( SQL : WideString; DoCreate :Bool): WideString
2099: Func PathAddExtension( const Path, Extension :Str):str
2100: Func PathAddSeparator( const Path :Str) :Str
2101: Func PathAppend( const Path, Append :Str) :Str
2102: Func PathBuildRoot( const Drive : Byte) :Str
2103: Func PathCanonicalize( const Path :Str) :Str
2104: Func PathCommonPrefix( const Path1, Path2 :Str) : Int
2105: Func PathCompactPath(const DC:HDC;const Path:str;const Width:Int;CmpFmt:TCompactPath):str;

2106: Func PathCompactPath1(const Canv:TCanvas;const Path:str;const Width:Int;CmpFmt:TCompactPath):str;

2107: Func PathEncode( const ASrc :Str) :Str
2108: Func PathExtractFileDirFixed( const S : Ansistr): Ansistr
2109: Func PathExtractFileNameNoExt( const Path :Str):Str
2110: Func PathExtractPathDepth( const Path :Str; Depth: Int):str
2111: Func PathGetDepth( const Path :Str): Int
2112: Func PathGetLongName( const Path :Str):Str
2113: Func PathGetLongName2( Path :Str):Str
2114: Func PathGetShortName( const Path :Str):Str
2115: Func PathIsAbsolute( const Path :Str): Bool
2116: Func PathIsChild( const Path, Base : Ansistr): Bool
2117: Func PathIsDiskDevice( const Path :Str): Bool
2118: Func PathIsUNC( const Path :Str) : Bool
2119: Func PathRemoveExtension( const Path:Str):Str
2120: Func PathRemoveSeparator( const Path:Str):Str
2121: Func Payment(Rate:Extended;NPeriods:Int;const PresentVal,
FutureVal:Extended;PaymentTime:TPaymentTime):Extended
2122: Func Peek: Pointer
2123: Func Peek: TObject
2124: Func PERFORM(MSG:Card;WPARAM,LPARAM:LONGINT):LONGINT
2125: Func PeriodPayment(const Rate:Extended;Period,NPeriods:Int; const PresentValue,FutureValue:
Extended;PaymentTime:TPaymentTime):Extended
2126: Func Permutation(npr, k: Int): extended;
2127: Func PermutationInt(npr, k: Int): Int64;
2128: Func PermutationJ( N, R :Card) : Float
2129: Func Pi : Extended;
2130: Func PiE : Extended;
2131: Func PixelsToDialogsX( const Pixels : Word) : Word
2132: Func PixelsToDialogsY( const Pixels : Word) : Word
2133: Func PlaySound(s: pchar; flag,syncflag: Int):Bool;
2134: Func Point( X, Y : Int) : TPoint
2135: Func Point(X, Y: Int): TPoint)
2136: Func PointAssign( const X, Y : Int) : TPoint
2137: Func PointDist( const P1, P2 : TPoint) : Double;
2138: Func PointDist(const P1,P2: TFloatPoint): Double;
2139: Func PointDist1( const P1, P2 : TFloatPoint) : Double;
2140: Func PointDist2(const P1,P2: TPoint): Double;
2141: Func PointEqual( const P1, P2 : TPoint) :Bool
2142: Func PointIsNull( const P : TPoint) :Bool
2143: Func PointToLineSegmentDist( const Point, LineP1, LineP2 : TFloatPoint): Double
2144: Func Poly( const X : Extended; const Coefficients : array of Double): Extended
2145: Func PortTCPIsOpen(dwPort : Word; ipAddressStr:Str):bool;
2146: Func IsTCPPortOpen(dwPort : Word; ipAddressStr:Str):bool;
2147: Func Pop : Pointer
2148: Func Pop : TObject
2149: Func PopnStdDev( const Data : array of Double) : Extended
2150: Func PopnVariance( const Data : array of Double) : Extended
2151: Func PopulationVariance( const X : TDynFloatArray) : Float
2152: Func Pos(SubStr, S: AnyString): Longint;
2153: Func PosEqual( const Rect : TRect) :Bool
2154: Func PosEx( const SubStr, S :Str; Offset : Int) : Int
2155: Func PosInSmallIntArray(const ASearchInt:SmallInt;AArray:array of SmallInt):Int
2156: Func PosInStrArray(const SearchStr:str;Contents:array of str;const CaseSensitive:Bool):Int
2157: Func Post1( AURL:str; const ASource : TStrings) :Str;
2158: Func Post2( AURL:str; const ASource : TStream) :Str;
2159: Func Post3( AURL:str; const ASource : TIdMultiPartFormDataStream) :Str;
2160: Func PostData( const UserData : WideString; const CheckSum : DWORD) :Bool
2161: Func PostData( const UserData : WideString; const CheckSum : Int):Bool
2162: Func PostMessage(hWnd:HWND;Msg:longword;wParam: ongint;lParam:longint):Bool;
2163: Func Power( const Base, Exponent : Extended) : Extended
2164: Func PowerBig(aval, n:Int):Str;
2165: Func PowerIntJ( const X : Float; N : Int) : Float;
2166: Func PowerJ( const Base, Exponent : Float) : Float;
2167: Func PowerOffOS :Bool
2168: Func PreformatDateString( Ps :Str) :Str
2169: Func PresentValue(const Rate:Extend;NPeriods:Int;const Payment,
FutureVal:Extend;PaymentTime:TPaymentTime):Extended
2170: Func PrimeFactors( N :Card) : TDynCardinalArray
2171: Func Printer : TPrinter
2172: Func ProcessPath2(const ABasePath:str;const APath:str;const APathDelim:str):str
2173: Func ProcessResponse : TIdHTTPWhatsNext
2174: Func ProduceContent :Str
2175: Func ProduceContentFromStream( Stream : TStream) :Str
2176: Func ProduceContentFromString( const S :Str) :Str
2177: Func ProgIDToClassID(const ProgID:Str): TGUID;
2178: Func PromptDataLinkFile(ParentHandle:THandle;InitialFile:WideString):WideString
2179: Func PromptDataSource(ParentHandle:THandle;InitialString:WideString):WideString
2180: Func PromptForFileName(var AFileName:str;const AFilter:str;const ADefaultExt:str;const ATitle:str;const
AInitialDir:str;SaveDialog:Bool):Bool
2181: Func PromptForFileName(var AFileName:str;const AFilter:str;const ADefaultExt:str;const ATitle:str;const
AInitialDir:Str;SaveDialog:Bool):Bool)
2182: Func PSScriptNeedFile(Sender:TObject;const OrginFileName:Str;var FileName,Output:Str):Bool
2183: Func PtInRect( const Rect : TRect; const P : TPoint) :Bool
2184: Func PtInRect(const Rect: TRect; const P: TPoint):Bool)
2185: Func Push( AItem : Pointer) : Pointer
2186: Func Push( AObject : TObject) : TObject
2187: Func Put1( AURL :Str; const ASource : TStream) :Str;
2188: Func Pythagoras( const X, Y : Extended) : Extended
2189: Func queryDLLInterface( var queryList : TStringList) : TStringList

2190: Func queryDLLInterfaceTwo( var queryList : TStringList) : TStringList

2191: Func QueryInterface(const IID: TGUID; out Obj): HResult, CdStdCall
2192: Func queryPerformanceCounter2(mse: int64): int64;
2193: //Func QueryPerformanceCounter(var lpPerformanceCount: Int64): LongBool; stdcall;
2194: //Func QueryPerformanceFrequency(mse: int64):Bool;
2195: Func QueryPerformanceCounter(var lcount: Int64):Bool; stdcall;
2196: Func QueryPerformanceFrequency(var lfreq: int64):Bool; stdcall;
2197: Proc QueryPerformanceCounter1(var aC: Int64);
2198: Func QueryPerformanceFrequency1(var freq: int64):Bool;
2199: Func Quote( const ACommand :Str) : SmallInt
2200: Func QuotedStr( S :Str) :Str
2201: Func RadToCycle( const Radians : Extended) : Extended
2202: Func RadToDeg( const Radians : Extended) : Extended
2203: Func RadToDeg( const Value : Extended) : Extended;
2204: Func RadToDeg1(const Value : Double) : Double;
2205: Func RadToDeg2(const Value : Single) : Single;
2206: Func RadToGrad(const Radians : Extended) : Extended
2207: Func RadToGrad(const Value : Extended) : Extended;
2208: Func RadToGrad1( const Value : Double) : Double;
2209: Func RadToGrad2( const Value : Single) : Single;
2210: Func RandG( Mean, StdDev : Extended) : Extended
2211: Func Random(const ARange: Int): Int;
2212: Func random2(a: Int): double
2213: Func RandomE: Extended;
2214: Func RandomF: Extended;
2215: Func RandomFrom( const AValues : array of string):Str;
2216: Func RandomRange( const AFrom, ATo : Int) : Int
2217: Func randSeed: longint
2218: Proc setRandseed; //no params!
2219: Func RawToDataColumn( ACol : Int) : Int
2220: Func Read : Char
2221: Func Read( pv : Pointer; cb : Longint; pcbRead : PLongint) : HResult
2222: Func Read(Buffer:str;Count:LongInt):LongInt
2223: Func ReadBinaryStream( const Section, Name :Str; Value : TStream) : Int
2224: Func ReadBool( const Section, Ident :Str; Default :Bool) :Bool
2225: Func ReadCardinal( const AConvert :Bool) :Card
2226: Func ReadChar : Char
2227: Func ReadClient( var Buffer, Count : Int) : Int
2228: Func ReadDate( const Section, Name :Str; Default : TDateTime) : TDateTime
2229: Func ReadDateTime( const Section, Name :Str; Default : TDateTime) : TDateTime
2230: Func ReadFloat( const Section, Name :Str; Default : Double) : Double
2231: Func ReadFromStack(const ARaiseExceptfDiscon:Bool;ATimeout:Int;const ARaiseExceptTimeout:Bool):Int
2232: Func ReadInt( const AConvert :Bool) : Int
2233: Func ReadInt( const Section, Ident :Str; Default : Longint) : Longint
2234: Func ReadLn :Str
2235: Func ReadLn(ATerminator:Str;const ATimeout:Int;AMaxLineLength:Int):str
2236: Func Readln(question:Str):Str;
2237: Func readm:Str; //read last line in memo2 - console!
2238: Func ReadLnWait( AFailCount : Int) :Str
2239: Func ReadReg(Base: HKEY; KeyName, ValueName:Str):Str;
2240: Func ReadRegistry(Base: HKEY; KeyName, ValueName:Str):Str;
2241: Func ReadSmallInt( const AConvert :Bool) : SmallInt
2242: Func ReadString( const ABytes : Int) :Str
2243: Func ReadString( const Section, Ident, Default :Str) :Str
2244: Func ReadString( Count : Int) :Str
2245: Func ReadTime( const Section, Name :Str; Default : TDateTime) : TDateTime
2246: Func ReadTimeStampCounter : Int64
2247: Func RebootOS :Bool
2248: Func Receive( ATimeOut : Int) : TReplyStatus
2249: Func ReceiveBuf( var Buf, Count : Int) : Int
2250: Func ReceiveLength : Int
2251: Func ReceiveText :Str
2252: Func ReceiveSerialData(var Data: TByteArray; DataSize:Card):Card
2253: Func ReceiveSerialText:Str
2254: Func RecodeDate(const AValue:TDateTime;const AYear,AMonth,ADay:Word):TDateTime
2255: Func RecodeDateTime(const AValue:TDateTime;const AYear,AMonth,ADay,AHr,AMin,ASec,AMilliSec:Word):TDateTime
2256: Func RecodeDay( const AValue : TDateTime; const ADay : Word) : TDateTime
2257: Func RecodeHour( const AValue : TDateTime; const AHour : Word) : TDateTime
2258: Func RecodeMilliSecond(const AValue:TDateTime;const AMilliSecond:Word):TDateTime
2259: Func RecodeMinute( const AValue : TDateTime; const AMinute : Word) : TDateTime
2260: Func RecodeMonth( const AValue : TDateTime; const AMonth : Word) : TDateTime
2261: Func RecodeSecond( const AValue : TDateTime; const ASecond : Word) : TDateTime
2262: Func RecodeTime(const AValue:TDateTime;const AHour,AMinute,ASecd,AMilliSec:Word):TDateTime
2263: Func RecodeYear( const AValue : TDateTime; const AYear : Word) : TDateTime
2264: Func Reconcile( const Results : OleVariant) :Bool
2265: Func Rect( Left, Top, Right, Bottom : Int) : TRect
2266: Func Rect(ALeft: Int; ATop: Int; ARight: Int; ABottom: Int): TRect)
2267: Func Rect2( const ATopLeft, ABottomRight : TPoint) : TRect;
2268: Func RectAssign( const Left, Top, Right, Bottom : Int) : TRect
2269: Func RectAssignPoints( const TopLeft, BottomRight : TPoint) : TRect
2270: Func RectBounds( const Left, Top, Width, Height : Int) : TRect
2271: Func RectCenter( const R : TRect) : TPoint
2272: Func RectEqual( const R1, R2 : TRect) :Bool
2273: Func RectHeight( const R : TRect) : Int
2274: Func RectIncludesPoint( const R : TRect; const Pt : TPoint) :Bool
2275: Func RectIncludesRect( const R1, R2 : TRect) :Bool
2276: Func RectIntersection( const R1, R2 : TRect) : TRect
2277: Func RectIntersectRect( const R1, R2 : TRect) :Bool
2278: Func RectIsEmpty( const R : TRect) :Bool

2279: Func RectIsNull( const R : TRect) :Bool

2280: Func RectIsSquare( const R : TRect) :Bool
2281: Func RectIsValid( const R : TRect) :Bool
2282: Func RectsAreValid( R : array of TRect) :Bool
2283: Func RectUnion( const R1, R2 : TRect) : TRect
2284: Func RectWidth( const R : TRect) : Int
2285: Func RedComponent( const Color32 : TColor32) : Int
2286: Func Refresh :Bool
2287: Func RefStringListCopy(aRefArray:TStringlist):TStringList;
2288: Func RegisterConversionFamily( const ADescription :Str) : TConvFamily
2289: Func RegisterConversionType(AConvTypeInfo: TConvTypeInfo; out AType : TConvType) :Bool;
2290: Func RegisterConversionType(const AFam:TConvFamil;const ADescr:str;const AFact:Double):TConvType
2291: Func RegistryRead(keyHandle: Longint; keyPath, myField:Str):Str;
2292: Func ReleaseDC(hdwnd: HWND; hdc: HDC): Int;
2293: Func ReleaseHandle : HBITMAP
2294: Func ReleaseHandle : HENHMETAFILE
2295: Func ReleaseHandle : HICON
2296: Func ReleasePalette : HPALETTE
2297: Func RemainderFloat( const X, Y : Float) : Float
2298: Func Remove(AClass : TClass) : Int
2299: Func Remove(AComponent : TComponent) : Int
2300: Func Remove(AItem : Int) : Int
2301: Func Remove(AItem : Pointer) : Pointer
2302: Func Remove(AItem : TObject) : TObject
2303: Func Remove(AObject : TObject) : Int
2304: Func RemoveBackslash( const PathName :Str) :Str
2305: Func RemoveDF( aString :Str) :Str //removes thousand separator
2306: Func RemoveDir( Dir :Str) :Bool
2307: Func RemoveDir(const Dir:Str):Bool)
2308: Func RemoveDirectory(PathName: PChar): WordBool; stdcall;
2309: Func RemoveFileExt( const FileName :Str) :Str
2310: Func RemoveHeaderEntry( AHeader, AEntry :Str) :Str
2311: Func RenameFile( OldName, NewName :Str) :Bool
2312: Func RenameFile(const OldName:Str; const NewName:Str):Bool)
2313: Func ReplaceStr( const AText, AFromText, AToText :Str) :Str
2314: Func ReplaceText( const AText, AFromText, AToText :Str):Str
2315: Func Replicate(c : char;I : longInt) :Str;
2316: Func Request : TWebRequest
2317: Func ResemblesText( const AText, AOther :Str):Bool
2318: Func Reset :Bool
2319: Func Reset2(mypath:Str): TStringlist //string;
2320: Func ResInstLoad(Instance:THandle;ResType:TResType;const Name:str;MaskColor:TColor):Bool
2321: Func ResourceLoad(ResType:TResType;const Name string;MaskColor:TColor):oolean
2322: Func Response : TWebResponse
2323: Func ResumeSupported :Bool
2324: Func RETHINKHOTKEYS :Bool
2325: Func RETHINKLINES :Bool
2326: Func Retrieve( const MsgNum : Int; AMsg : TIdMessage) :Bool
2327: Func RetrieveCurrentDir :Str
2328: Func RetrieveDeltas( const cdsArray : array of TClientDataset): Variant
2329: Func RetrieveHeader( const MsgNum : Int; AMsg : TIdMessage):Bool
2330: Func RetrieveMailBoxSize : Int
2331: Func RetrieveMsgSize( const MsgNum : Int) : Int
2332: Func RetrieveProviders( const cdsArray : array of TClientDataset): Variant
2333: Func RetrieveRaw( const MsgNum : Int; const Dest: TStrings):bool
2334: Func ReturnMIMEType( var MediaType, EncType :Str):Bool
2335: Func ReverseBits( Value:Byte) : Byte;
2336: Func ReverseBits1(Value:Shortint) : Shortint;
2337: Func ReverseBits2(Value:Smallint) : Smallint;
2338: Func ReverseBits3(Value:Word) : Word;
2339: Func ReverseBits4(Value:Card) :Card;
2340: Func ReverseBits4(Value:Int) : Int;
2341: Func ReverseBits5(Value:Int64) : Int64;
2342: Func ReverseBytes(Value:Word) : Word;
2343: Func ReverseBytes1(Value:Smallint):Smallint;
2344: Func ReverseBytes2(Value:Int): Int;
2345: Func ReverseBytes3(Value:Card):Card;
2346: Func ReverseBytes4(Value:Int64): Int64;
2347: Func ReverseString(const AText :Str) :Str
2348: Func ReverseDNSLookup(const IPAddrs:Str;DNSServer:Str;Timeout,Retries:Int;var HName:Str):Bool;
2349: Func Revert : HResult
2350: Func RGB(R,G,B: Byte): TColor;
2351: Func RGB2BGR( const Color : TColor) : TColor
2352: Func RGB2TColor( R, G, B : Byte) : TColor
2353: Func RGBToWebColorName( RGB : Int) :Str
2354: Func RGBToWebColorStr( RGB : Int) :Str
2355: Func RgbToHtml( Value : TColor) :Str
2356: Func HtmlToRgb(const Value:Str): TColor;
2357: Func RightStr(const AStr :Str; Len : Int) :Str
2358: Func RightStr(const AText : Ansistr; const ACount : Int): Ansistr;
2359: Func RightStr(const AText : WideString; const ACount : Int): WideString;
2360: Func ROL( AVal: LongWord; AShift : Byte): LongWord
2361: Func ROR( AVal: LongWord; AShift : Byte): LongWord
2362: Func RotatePoint(Point:TFloatPoint;const Center:TFloatPoint;const Angle:Float):TFloatPoint
2363: Func RotatePoint(Point:TFloatPoint;const Center:TFloatPoint;const Angle:Double):TFloatPoint;
2364: Func Round(e : Extended) : Longint;
2365: Func Round64(e: extended): Int64;
2366: Func RoundAt( const Value :Str; Position : SmallInt) :Str
2367: type TRoundToRange = -37..37; TRoundToEXRangeExtended = -20..20;

2368: Func RoundTo(const AValue:Extende;const ADigit:TRoundToEXRangeExtended):Extended;;

2369: Func SimpleRoundTo(const AValue:Extended;const ADigit: TRoundToRange): Extended;;
2370: Func RoundFrequency( const Frequency : Int) : Int
2371: Func RoundInt( Value : Int; StepSize : Int) : Int
2372: Func RoundPoint( const X, Y : Double) : TPoint
2373: Func RoundRect( const ALeft, ATop, ARight,ABottom :Double):TRect
2374: Func RowCount : Int
2375: Func RowRequest(const Row:OleVariant;RequestType:Int;var OwnerData:OleVariant):OleVariant
2376: Func RowRequest( Row : OleVariant; Options : TFetchOptions) : OleVariant
2377: Func RPos( const ASub, AIn :Str; AStart : Int) : Int
2378: Func RRot( const Value : Byte; const Count : TBitRange) : Byte;
2379: Func RRot1( const Value : Word; const Count : TBitRange) : Word;
2380: Func RRot2( const Value : Int; const Count : TBitRange) : Int;
2381: Func RunDLL32(const ModuleNa,FuncName,CmdLine:str;WaitForCompletion:Bool;CmdShow:Int):Bool
2382: Func RunningProcessesList( const List : TStrings; FullPath :Bool) :Bool
2383: Func RunByteCode(Bytecode: Ansistr; out RuntimeErrors: Ansistr):Bool;;
2384: Func RunCompiledScript2(Bytecode: Ansistr;out RuntimeErrors:Ansistr): Bool;
2385: Func S_AddBackSlash( const ADirName :Str) :Str
2386: Func S_AllTrim( const cStr :Str) :Str
2387: Func S_AtRepl( const cAT, cStr, cRepl :Str) :Str
2388: Func S_Cut( const cStr :Str; const iLen : Int) :Str
2389: Func S_DecryptCRC32( const crc :Str; StartKey, MultKey, AddKey : Int): Int
2390: Func S_DirExists( const ADir :Str) :Bool
2391: Func S_Empty( const cStr :Str) :Bool
2392: Func S_EncryptCRC32(const crc:LongWORD;StartKey,MultKey,AddKey:Int):str
2393: Func S_LargeFontsActive :Bool
2394: Func S_LimitDigits( AValue : Extended; ANumDigits : Int) : Extended
2395: Func S_LTrim( const cStr :Str) :Str
2396: Func S_ReadNextTextLineFromStream( stream : TStream) :Str
2397: Func S_RepeatChar( const iLen : Int; const AChar : Char) :Str
2398: Func S_ReplFirst( const cAT, cStr, cRepl :Str) :Str
2399: Func S_RoundDecimal( AValue : Extended; APlaces : Int) : Extended
2400: Func S_RTrim( const cStr :Str) :Str
2401: Func S_RTrimCopy( const cStr :Str; iPos, iLen : Int) :Str
2402: //Type TS_ShellExecuteCmd = (seCmdOpen,seCmdPrint,seCmdExplore);
2403: Func S_ShellExecute(aFilename:str;aParameters:str;aCommand:TS_ShellExecuteCmd):str
2404: Func S_Space( const iLen : Int) :Str
2405: Func S_StrBlanks( const cStr :Str; const iLen : Int) :Str
2406: Func S_StrBlanksCuttooLong( const cStr :Str; const iLen : Int) :Str
2407: Func S_StrCRC32( const Text :Str) : LongWORD
2408: Func S_StrDecrypt96(const InString:Str;StartKey,MultKey,AddKey:Int):str
2409: Func S_StrEncrypt96(const InString:Str;StartKey,MultKey,AddKey:int):Str
2410: Func S_StringtoUTF_8( const AString :Str) :Str
2411: Func S_StrLBlanks( const cStr :Str; const iLen : Int) :Str
2412: Func S_StrToReal(const cStr:Str; var R: Double):Bool
2413: Func S_TokenEnd( cBuffer : PChar; lEmptyToken :Bool) :Bool
2414: Func S_TokenNext( cBuffer : PChar; lEmptyToken :Bool):Str
2415: Func S_UTF_8ToString( const AString :Str) :Str
2416: Func S_WBox( const AText :Str) : Int
2417: Func SameDate( const A, B : TDateTime) :Bool
2418: Func SameDate(const A, B: TDateTime):Bool;
2419: Func SameDateTime( const A, B : TDateTime) :Bool
2420: Func SameDateTime(const A, B: TDateTime):Bool;
2421: Func SameFileName( S1, S2 :Str) :Bool
2422: Func SameText( S1, S2 :Str) :Bool
2423: Func SameText(const S1:Str; const S2:Str):Bool)
2424: Func SameTime( const A, B : TDateTime) :Bool
2425: Func SameTime(const A, B: TDateTime):Bool;
2426: Func SameValue(const A, B: Extended; Epsilon: Extended):Bool //overload;
2427: Func SameValue1(const A, B: Double; Epsilon: Double):Bool //overload;
2428: Func SameValue2(const A, B: Single; Epsilon: Single):Bool //overload;
2429: Func SampleVariance( const X : TDynFloatArray) : Float
2430: Func Sar( const Value : Shortint; const Count : TBitRange) : Shortint;
2431: Func Sar1( const Value : Smallint; const Count : TBitRange) : Smallint;
2432: Func Sar2( const Value : Int; const Count : TBitRange) : Int;
2433: Func SaveToFile( const AFileName : TFileName) :Bool
2434: Func SaveAsExcelFile(AGrid:TStringGrid;ASheetName,AFileName:str;open:bool):Bool;
2435: Func SaveAsExcel(aGrid:TStringGrid;aSheetName,aFileName:str;openexcel:boolean):Bool;
2436: Func ScanF(const aformat:Str; const args: array of const):Str;
2437: Func SCREENTOCLIENT(POINT:TPOINT):TPOINT
2438: Func SearchBuf(Buf:PChar;BufLen:Int;SelStart,
SelLength:Int;SearchString:str;Options:TStringSearchOptions):PChar
2439: Func SearchBuf2(Buf:str;SelStart,SelLength:Int;SearchString:str;Options:TStringSearchOptions):Int;
2440: Func SearchRecattr: Int;
2441: Func SearchRecExcludeAttr: Int;
2442: Func SearchRecFileSize64( const SearchRec: TSearchRec):Int64
2443: Func SearchRecname:Str;
2444: Func SearchRecsize: Int;
2445: Func SearchRecTime: Int;
2446: Func Sec( const X : Extended) : Extended
2447: Func Secant( const X : Extended) : Extended
2448: Func SecH( const X : Extended) : Extended
2449: Func SecondOf( const AValue : TDateTime) : Word
2450: Func SecondOfTheDay( const AValue : TDateTime) : LongWord
2451: Func SecondOfTheHour( const AValue : TDateTime) : Word
2452: Func SecondOfTheMinute( const AValue : TDateTime) : Word
2453: Func SecondOfTheMonth( const AValue : TDateTime) : LongWord
2454: Func SecondOfTheWeek( const AValue : TDateTime) : LongWord
2455: Func SecondOfTheYear( const AValue : TDateTime) : LongWord

2456: Func SecondsBetween( const ANow, AThen : TDateTime) : Int64

2457: Func SecondSpan( const ANow, AThen : TDateTime) : Double
2458: Func SectionExists( const Section :Str) :Bool
2459: Func Seek( const KeyValues : Variant; SeekOption : TSeekOption) :Bool
2460: Func Seek(dlibMove: Longint; dwOrigin: Longint; out libNewPosition : Largeint):HResult
2461: Func Seek(Offset:LongInt;Origin:Word):LongInt
2462: Func SelectDirectory(var Directory:str; Options:TSelectDirOpts;HelpCtx:Longint):Bool;
2463: Func SelectDirectory1(const Caption:str;const Root:WideString;var Directory:str;
Options:TSelectDirExtOpts;Parent:TWinControl):Bool;
2464: Func SelectImage(var AFileName:str;const Extensions,Filter:str):Boolean
2465: Func SendAppMessage(Msg:Card; WParam, LParam: Longint): Longint
2466: Func SendBuf( var Buf, Count : Int) : Int
2467: Func SendCmd( const AOut :Str; const AResponse : SmallInt) : SmallInt;
2468: Func SendCmd1( const AOut :Str; const AResponse : array of SmallInt) : SmallInt;
2469: Func SendKey( AppName :Str; Key : Char) :Bool
2470: Func SendMessage(hWnd: HWND; Msg: longword; wParam: longint; lParam: longint):Bool;
2471: Func SendStream( AStream : TStream) :Bool
2472: Func SendStreamThenDrop( AStream : TStream) :Bool
2473: Func SendText( const S :Str) : Int
2474: Func SendSerialData(Data: TByteArray; DataSize:Card):Card
2475: Func SendSerialText(Data:Str):Card
2476: Func Sent :Bool
2477: Func ServicesFilePath:Str
2478: Func SetAlpha( const Color32 : TColor32; NewAlpha : Int) : TColor32
2479: Func SetBit( const Value:Byte; const Bit : TBitRange) : Byte;
2480: Func SetBit1(const Value:Shortint; const Bit : TBitRange) : Shortint;
2481: Func SetBit2(const Value:Smallint; const Bit : TBitRange) : Smallint;
2482: Func SetBit3(const Value:Word; const Bit : TBitRange) : Word;
2483: Func SetBit4(const Value:Card; const Bit : TBitRange) Cardinal;
2484: Func SetBit4(const Value:Int; const Bit : TBitRange) : Int;
2485: Func SetBit5(const Value:Int64; const Bit : TBitRange) : Int64;
2486: Func SetClipboard( NewClipboard : TClipboard) : TClipboard
2487: Func SetColorBlue( const Color : TColor; const Blue : Byte) : TColor
2488: Func SetColorFlag( const Color : TColor; const Flag : Byte) : TColor
2489: Func SetColorGreen( const Color : TColor; const Green : Byte) : TColor
2490: Func SetColorRed( const Color : TColor; const Red : Byte) : TColor
2491: Func SetCurrentDir( Dir :Str) :Bool
2492: Func SetCurrentDir(const Dir:Str):Bool)
2493: Func SetCurrentDirectory(PathName: PChar): WordBool; stdcall;
2494: Func SetDirCreation( const DirName :Str; const DateTime : TDateTime):Bool
2495: Func SetDirLastAccess(const DirName:str;const DateTime: TDateTime) : Bool
2496: Func SetDirLastWrite(const DirName:str; const DateTime : TDateTime): Bool
2497: Func SetDisplayResolution( const XRes, YRes : DWORD) : Longint
2498: Func SetEndOfFile(Handle: Int): LongBool; stdcall;
2499: Func SetEnvironmentVar( const Name, Value :Str) :Bool
2500: Func SetErrorProc( ErrorProc : TSocketErrorProc) : TSocketErrorProc
2501: Func SetFileCreation(const FileName:str; const DateTime : TDateTime): Bool
2502: Func SetFileLastAccess( const FileName:str; const DateTime:TDateTime): Bool
2503: Func SetFileLastWrite(const FileName:str;const DateTime:TDateTime):BoolFunc SetFileTimeStamp(const
FileName:str;TimeStamp:Int):Bool
2504: Func SETFOCUSEDCONTROL(CONTROL:TWINCONTROL):BOOLEAN
2505: Func SetLocalTime( Value : TDateTime) :Bool
2506: Func SetPrecisionTolerance( NewTolerance : Float) : Float
2507: Func SetPrinter( NewPrinter : TPrinter) : TPrinter
2508: Func SetPrivilege(privilegeName:Str; enable:Bool):Bool;
2509: Func SetRGBValue( const Red, Green, Blue : Byte) : TColor
2510: Func SetSequence( S, Localizar, Substituir : shortstring): shortstring
2511: Func SetSize( libNewSize : Longint) : HResult
2512: Func SetUserObjectFullAccess( hUserObject : THandle) :Bool
2513: Func Sgn( const X : Extended) : Int
2514: Func SHA1(const fileName:Str):Str;
2515: Func SHA256(astr:Str; amode: char):Str)
2516: Func SHA512(astr:Str; amode: char):Str)
2517: Func ShareMemoryManager :Bool
2518: Func ShellExecute(hWnd:HWND;Operation,FileN,Parameters,Dir:str;ShowCmd:Int):Int;stdcall;
2519: Func Shellexecute2(hwnd: HWND; const FileName:Str):Int; stdcall;
2520: Func ShellExecute3(aFilename:str;aParameters:str;aCommand:TS_ShellExecuteCmd):str;
2521: Func SHORTCUT( KEY : WORD; SHIFT : TSHIFTSTATE): TSHORTCUT
2522: Func SHORTCUTTOTEXT( SHORTCUT : TSHORTCUT):Str
2523: Func ShortDateFormat:str;
2524: Func ShortenString(const DC:HDC;const S:WideString;const Width:Int;const
RTL:Bool;EllipsisWidth:Int):WideString
2525: Func ShortTimeFormat:Str;
2526: Func SHOWMODAL:Int
2527: Func
ShowModalControl(aControl:TControl;BS:TFormBorderStyle;BI:TBorderIcons;WS:TWindowState;aColor:TColor;BW:Int;Title:str;
2528: Func ShowModalPanel(aPnl:TCustomPanel;Titl:str;ShowCloseIcn:Bool;BefShowModal:TNotifyEvent):TModalResult;
2529: Func ShowWindow(C1: HWND; C2: Int):Bool;
2530: Proc ShowMemory //in Dialog
2531: Func ShowMemory2:Str;
2532: Func ShutDownOS :Bool
2533: Func Signe( const X, Y : Extended) : Extended
2534: Func Sign( const X : Extended) : Int
2535: Func Sin(e : Extended) : Extended;
2536: //Assuming trigonometric arguments in degrees //| Use instead
2537: PrintF('in deg: %.18f',[sin(degtorad(60.0))]); //0.866025403784438647
2538: Func sinc( const x : Double) : Double
2539: Func SinJ( X : Float) : Float
2540: Func Size( const AFileName :Str) : Int

2541: Func SizeOf: Longint;

2542: Func SizeofResource( ModuleHandle : HMODULE; ResHandle: TResourceHandle): Int
2543: Func SlashSep(const Path, S:Str):Str
2544: Func SLNDepreciation( const Cost, Salvage : Extended; Life : Int) : Extended
2545: Func SleepEx( dwMilliseconds : DWORD; bAlertable : BOOL) : DWORD
2546: Func SmallPoint(X, Y: Int): TSmallPoint)
2547: Func Soundex( const AText :Str; ALength : TSoundexLength) :Str
2548: Func SoundexCompare( const AText, AOther :Str; ALength : TSoundexLength) : Int
2549: Func SoundexInt( const AText :Str; ALength : TSoundexIntLength) : Int
2550: Func SoundexProc( const AText, AOther :Str) :Bool
2551: Func SoundexSimilar(const AText,AOther:str;ALength:TSoundexLength):Boolean
2552: Func SoundexWord( const AText :Str) : Word
2553: Func SourcePos : Longint
2554: Func SourcePos:LongInt
2555: Func Split0( Str :Str; const substr :Str) : TStringList
2556: Proc SplitNameValue( const Line :Str; var Name, Value :Str)
2557: Func SQLRequiresParams( const SQL : WideString) :Bool
2558: Func Sqr(e : Extended) : Extended;
2559: Func Sqrt(e : Extended) : Extended;
2560: Func StartIP :Str
2561: Func StartPan( WndHandle : THandle; AControl : TControl) :Bool
2562: Func StartOfADay( const AYear, AMonth, ADay : Word) : TDateTime;
2563: Func StartOfADay1( const AYear, ADayOfYear : Word) : TDateTime;
2564: Func StartOfAMonth( const AYear, AMonth : Word) : TDateTime
2565: Func StartOfAWeek( const AYear, AWeekOfYear : Word; const ADayOfWeek:Word):TDateTime
2566: Func StartOfAYear( const AYear : Word) : TDateTime
2567: Func StartOfTheDay( const AValue : TDateTime) : TDateTime
2568: Func StartOfTheMonth( const AValue : TDateTime) : TDateTime
2569: Func StartOfTheWeek( const AValue : TDateTime) : TDateTime
2570: Func StartOfTheYear( const AValue : TDateTime) : TDateTime
2571: Func StartsStr( const ASubText, AText :Str) :Bool
2572: Func StartsText( const ASubText, AText :Str) :Bool
2573: Func StartsWith( const ANSIStr, APattern :Str) :Bool
2574: Func StartsWith( const str :Str; const sub :Str) :Bool
2575: Func StartsWithACE( const ABytes : TIdBytes) :Bool
2576: Func StatusString( StatusCode : Int) :Str
2577: Func StdDev( const Data : array of Double) : Extended
2578: Func Stop : Float
2579: Func StopCount( var Counter : TJclCounter) : Float
2580: Func StoreColumns :Bool
2581: Func StrAfter( const sString :Str; const sDelimiters :Str):Str;
2582: Func StrAfter1(const sString:str; const sDelimiters:str;out cDelimiter:char):str;
2583: Func StrAlloc( Size :Card) : PChar
2584: Func StrAlloc(Size:Card): PChar)
2585: Func StrBefore( const sString :Str; const sDelimiters :Str) :Str;
2586: Func StrBefore1(const sString:str;const sDelimiters:str;out cDelimiter:char):str;
2587: Func StrBufSize( Str : PChar) :Card
2588: Func StrBufSize(const Str: PChar):Card)
2589: Func StrByteType( Str : PChar; Index :Card) : TMbcsByteType
2590: Func StrByteType(Str: PChar; Index:Card): TMbcsByteType)
2591: Func StrCat( Dest : PChar; Source : PChar) : PChar
2592: Func StrCat(Dest: PChar; const Source: PChar): PChar)
2593: Func StrCharLength( Str : PChar) : Int
2594: Func StrComp( Str1, Str2 : PChar) : Int
2595: Func StrComp(const Str1: PChar; const Str2: PChar): Int)
2596: Func StrCopy( Dest : PChar; Source : PChar) : PChar
2597: Func StrCopy(Dest: PChar; const Source: PChar): PChar)
2598: Func Stream_to_Ansistr( Source : TStream) : Ansistr
2599: Func Stream_to_Base64( Source : TStream) : Ansistr
2600: Func Stream_to_decimalbytes( Source : TStream) :Str
2601: Func Stream2WideString( oStream : TStream) : WideString
2602: Func StreamtoAnsistr( Source : TStream) : Ansistr
2603: Func StreamToByte( Source : TStream) :Str
2604: Func StreamToDecimalbytes( Source : TStream) :Str
2605: Func StreamtoOrd( Source : TStream) :Str
2606: Func StreamToString( Source: TStream) :Str
2607: Func StreamToString2(Source: TStream) :Str
2608: Func StreamToString3(Source: TStream) :Str
2609: Func StreamToString4(Source: TStream) :Str
2610: Func StrECopy( Dest : PChar; Source : PChar) : PChar
2611: Func StrEmpty( const sString :Str) :Bool
2612: Func StrEnd( Str : PChar) : PChar
2613: Func StrEnd(const Str: PChar): PChar)
2614: Func StrFilter( const sString :Str; xValidChars : TCharSet) :Str
2615: Func StrFmt(Buffer, Format: PChar; const Args: array of const): PChar)
2616: Func StrGet(var S :Str; I : Int) : Char;
2617: Func StrGet2(S :Str; I : Int) : Char;
2618: Func StrHasPrefix( const sString :Str; const sPrefix :Str) :Bool
2619: Func StrHasSuffix( const sString :Str; const sSuffix :Str) :Bool
2620: Func StrHtmlDecode( const AStr :Str) :Str
2621: Func StrHtmlEncode( const AStr :Str) :Str
2622: Func StrToBytes(const Value:Str): TBytes;
2623: Func StrIComp( Str1, Str2 : PChar) : Int
2624: Func StringOfChar(c : char;I : longInt) :Str;
2625: Func StringOfChar2( ch : WideChar; Count : Int) : WideString;
2626: Func StringPad(InputStr,FillChar:Str; StrLen:Int; StrJustify:Boolean):Str;
2627: Func StringRefCount(const s:Str): Int;
2628: Func StringReplace(S,OldPattern,NewPattern:str;Flags:TReplaceFlags):str
2629: Func JStringReplace(const S,OldPattern, NewPattern:Str; Flags : TReplaceFlags):str

2630: Func StringReplace(const SourceString,OldPattern,NewPattern:str;Flags:TReplaceFlags):str;

2631: Func StringRemove( const S, Pattern :Str; Flags : TReplaceFlags) :Str
2632: Func StringToBoolean( const Ps :Str) :Bool
2633: Func StringToColor(const S:Str): TColor)
2634: Func StringToCursor(const S:Str): TCursor;
2635: Func StringToGUID(const S:Str): TGUID)
2636: Func StringTokenizer( const str :Str; const delim :Str) : IStringTokenizer
2637: Func StringToStringArray( const str :Str; const delim:Str): TStringDynArray
2638: Func StringWidth( S :Str) : Int
2639: Func StrInternetToDateTime( Value :Str) : TDateTime
2640: Func StrIsDateTime( const Ps :Str) :Bool
2641: Func StrIsFloatMoney( const Ps :Str) :Bool
2642: Func StrIsInt( const S :Str) :Bool
2643: Func StrLCat( Dest : PChar; Source : PChar; MaxLen :Card) : PChar
2644: Func StrLComp( Str1, Str2 : PChar; MaxLen :Card) : Int
2645: Func StrLCopy( Dest : PChar; Source : PChar; MaxLen :Card) : PChar
2646: Func StrLen( Str : PChar) :Card
2647: Func StrLen(const Str: PChar):Card)
2648: Func StrLessPrefix( const sString :Str; const sPrefix:Str):Str
2649: Func StrLessSuffix( const sString :Str; const sSuffix:Str):Str
2650: Func StrLIComp( Str1, Str2 : PChar; MaxLen :Card) : Int
2651: Func StrLower( Str : PChar) : PChar
2652: Func StrMove( Dest : PChar; Source : PChar; Count :Card) : PChar
2653: Func StrMove(Dest: PChar; const Source: PChar; Count:Card): PChar)
2654: Func StrNew( Str : PChar) : PChar
2655: Func StrNew(const Str: PChar): PChar)
2656: Func StrNextChar( Str : PChar) : PChar
2657: Func StrPad( const sString:str;const sPad:str;const iLength:Int):Str
2658: Func StrParse( var sString :Str; const sDelimiters :Str) :Str;
2659: Func StrParse1(var sString:str;const sDelimiters:str;out cDelimiter:char) string;
2660: Func StrPas( Str : PChar) :Str
2661: Func StrPas(const Str: PChar):Str)
2662: Func StrPCopy( Dest : PChar; Source :Str) : PChar
2663: Func StrPCopy(Dest: PChar; const Source:Str): PChar)
2664: Func StrPLCopy( Dest : PChar; Source :Str; MaxLen :Card) : PChar
2665: Func StrPos( Str1, Str2 : PChar) : PChar
2666: Func StrScan(const Str: PChar; Chr: Char): PChar)
2667: Func StrRScan(const Str: PChar; Chr: Char): PChar)
2668: Func StrToBcd( const AValue :Str) : TBcd
2669: Func StrToBool( S :Str) :Bool
2670: Func StrToBoolDef( S :Str; Default :Bool) :Bool
2671: Func StrToCard( const AStr :Str) :Card
2672: Func StrToConv( AText :Str; out AType : TConvType) : Double
2673: Func StrToCurr( S :Str) : Currency;
2674: Func StrToCurr(const S:Str): Currency)
2675: Func StrToCurrDef( S :Str; Default : Currency) : Currency;
2676: Func StrToDate( S :Str) : TDateTime;
2677: Func StrToDate(const s:Str): TDateTime;
2678: Func StrToDateDef( S :Str; Default : TDateTime) : TDateTime;
2679: Func StrToDateTime( S :Str) : TDateTime;
2680: Func StrToDateTime(const S:Str): TDateTime)
2681: Func StrToDateTimeDef( S :Str; Default : TDateTime) : TDateTime;
2682: Func StrToDay( const ADay :Str) : Byte
2683: Func StrToFloat( S :Str) : Extended;
2684: Func StrToFloat(s:Str): Extended;
2685: Func StrToFloatDef( S :Str; Default : Extended) : Extended;
2686: Func StrToFloatDef(const S:Str; const Default: Extended): Extended)
2687: Func StrToFloat( S :Str) : Extended;
2688: Func StrToFloat2( S :Str; FormatSettings : TFormatSettings) : Extended;
2689: Func StrToFloatDef( S :Str; Default : Extended) : Extended;
2690: Func StrToFloatDef2(S:str;Default:Extended;FormatSettings:TFormatSettings):Extended;
2691: Func StrToCurr( S :Str) : Currency;
2692: Func StrToCurr2( S :Str; FormatSettings : TFormatSettings) : Currency;
2693: Func StrToCurrDef( S :Str; Default : Currency) : Currency;
2694: Func StrToCurrDef2(S:str; Default:Currency; FormatSettings:TFormatSettings):Currency;
2695: Func StrToTime2( S :Str; FormatSettings : TFormatSettings): TDateTime;
2696: Func StrToTimeDef( S :Str; Default : TDateTime) : TDateTime;
2697: Func StrToTimeDef2(S:str; Default:TDateTime;FormatSettings:TFormatSettings):TDateTime;
2698: Func TryStrToTime( S :Str; Value : TDateTime) :Bool;
2699: Func StrToDateTime( S :Str) : TDateTime;
2700: Func StrToDateTime2( S :Str; FormatSettings : TFormatSettings) : TDateTime;
2701: Func StrToDateTimeDef( S :Str; Default : TDateTime) : TDateTime;
2702: Func StrToFloatRegionalIndependent(aValue:str;aDecimalSymbol:Char;aDigitGroupSymbol:Char):Extended
2703: Func StrToInt( S :Str) : Int
2704: Func StrToInt(s:Str): Longint;
2705: Func StrToInt64( S :Str) : Int64
2706: Func StrToInt64(s:Str): int64;
2707: Func StrToInt64Def( S :Str; Default : Int64) : Int64
2708: Func StrToInt64Def(const S:Str; const Default: Int64):Int64)
2709: Func StrToIntDef( S :Str; Default : Int) : Int
2710: Func StrToIntDef(const S:Str; Default: Int): Int)
2711: Func StrToIntDef(s:Str; def: Longint): Longint;
2712: Func StrToMonth( const AMonth :Str) : Byte
2713: Func StrToTime( S :Str) : TDateTime;
2714: Func StrToTime(const S:Str): TDateTime)
2715: Func StrToTimeDef( S :Str; Default : TDateTime) : TDateTime;
2716: Func StrToWord( const Value :Str) : Word
2717: Func StrToXmlDate( const DateStr :Str; const Format :Str) :Str
2718: Func StrToXmlDateTime( const DateStr :Str; const Format :Str) :Str

2719: Func StrToXmlTime( const TimeStr :Str; const Format :Str) :Str
2720: Func StrUpper( Str : PChar) : PChar
2721: Func StuffString(const AText:str;AStart, ALength:Card;const ASubText:str):str
2722: Func Sum( const Data : array of Double) : Extended
2723: Func SumFloatArray( const B : TDynFloatArray) : Float
2724: Func SumInt( const Data : array of Int) : Int
2725: Func SumOfSquares( const Data : array of Double) : Extended
2726: Func SumPairProductFloatArray( const X, Y : TDynFloatArray) : Float
2727: Func SumSquareDiffFloatArray( const B : TDynFloatArray; Diff : Float) : Float
2728: Func SumSquareFloatArray( const B : TDynFloatArray) : Float
2729: Func Supports( CursorOptions : TCursorOptions) :Bool
2730: Func SupportsClipboardFormat( AFormat : Word) :Bool
2731: Func SwapWord(w : word): word)
2732: Func SwapInt(i : Int): Int)
2733: Func SwapLong(L : longint): longint)
2734: Func Swap(i : Int): Int)
2735: Func SYDDepreciation(const Cost,Salvage:Extended;Life,Period:Int): Extended
2736: Func SyncTime :Bool
2737: Func SysErrorMessage( ErrorCode : Int) :Str
2738: Func SysErrorMessage(ErrorCode: Int):Str)
2739: Func SystemTimeToDateTime( SystemTime : TSystemTime) : TDateTime
2740: Func SystemTimeToDateTime(const SystemTime: TSystemTime): TDateTime;
2741: Func SysStringLen(const S: WideString): Int; stdcall;
2742: Func TabRect( Index : Int) : TRect
2743: Func Tan( const X : Extended) : Extended
2744: Func TaskMessageDlg(const Title,Msg:str;DlgType:TMsgDlgType;Buttons:TMsgDlgButtons;HelpCtx:Longint):Int;
2745: Func TaskMessageDlg1(const Title,Msg:str;DlgType:TMsgDlgType;Buttons:TMsgDlgButtons;
HelpCtx:Longint;DefaultButton:TMsgDlgBtn):Int;
2746: Func TaskMessageDlgPos(const Title,Msg:str;DlgType:TMsgDlgType;Bts:TMsgDlgButtons;HelpCtx:Longint;X,
Y:Int):Int;
2747: Func TaskMessageDlgPos1(const Title,Msg:str;DlgType:TMsgDlgType;Buttons:TMsgDlgButtons;HelpCtx:Longint;X,
Y:Int;DefaultButton:TMsgDlgBtn):Int;
2748: Func TaskMessageDlgPosHelp(const Title,Msg:str;DlgType:TMsgDlgType;Buttons:
TMsgDlgButtons;HelpCtx:Longint;X,Y:Int;const HelpFileName:str): Int;
2749: Func TaskMessageDlgPosHelp1(const Title, Msg:str;DlgType: TMsgDlgType; Buttons :
TMsgDlgButtons;HelpCtx:Longint;X,Y:Int;const HelpFileName:str;DefaultButton:TMsgDlgBtn):Int;
2750: Func TenToY( const Y : Float) : Float
2751: Func TerminateApp( ProcessID : DWORD; Timeout : Int) : TJclTerminateAppResult
2752: Func TerminateTask( Wnd : HWND; Timeout : Int) : TJclTerminateAppResult
2753: Func TestBit( const Value:Byte; const Bit : TBitRange) : Bool;
2754: Func TestBit2(const Value:Shortint; const Bit : TBitRange): Bool;
2755: Func TestBit3(const Value:Smallint; const Bit : TBitRange): Bool;
2756: Func TestBit4(const Value:Word; const Bit : TBitRange):Bool;
2757: Func TestBit5(const Value:Card; const Bit : TBitRange): Bool;
2758: Func TestBit6(const Value:Int; const Bit : TBitRange): Bool;
2759: Func TestBit7(const Value:Int64; const Bit : TBitRange): Bool;
2760: Func TestBits(const Value, Mask:Byte) :Bool;
2761: Func TestBits1(const Value,Mask:Shortint) :Bool;
2762: Func TestBits2(const Value,Mask:Smallint) :Bool;
2763: Func TestBits3(const Value,Mask:Word) :Bool;
2764: Func TestBits4(const Value,Mask:Card) :Bool;
2765: Func TestBits5(const Value,Mask:Int) :Bool;
2766: Func TestBits6(const Value,Mask:Int64) :Bool;
2767: Func TestFDIVInstruction :Bool
2768: Func TestStreamFormat(Stream: TStream): TStreamOriginalFormat
2769: Func TextExtent( const Text :Str) : TSize
2770: Func TextHeight(Text:Str): Int;
2771: Func TextIsSame( const A1 :Str; const A2 :Str) :Bool
2772: Func TextStartsWith( const S, SubS :Str) :Bool
2773: Func TextToFloat(Buffer: PChar; var Value: Extended; ValueType: TFloatValue):Boolean)
2774: Func ConvInt(i : Int):str;
2775: Func IntToText(i : Int):str;
2776: Func TEXTTOSHORTCUT( TEXT :Str) : TSHORTCUT
2777: Func TextWidth(Text:Str): Int;
2778: Func ThreadCount : Int
2779: Func ThousandSeparator: char;
2780: Func Ticks :Card
2781: Func Time : TDateTime
2782: Func Time: TDateTime;
2783: Func TimeGetTime: int64;
2784: Func TimeOf( const AValue:TDateTime):TDateTime
2785: Func TimeSeparator: char;
2786: Func TimeStampToDateTime(const TimeStamp: TTimeStamp): TDateTime
2787: Func TimeStampToMSecs( TimeStamp : TTimeStamp) : Comp
2788: Func TimeStampToMSecs(const TimeStamp: TTimeStamp): Comp)
2789: Func TimeToStr( DateTime : TDateTime) :Str;
2790: Func TimeToStr(const DateTime: TDateTime):Str;
2791: Func TimeZoneBias : TDateTime
2792: Func ToCommon( const AValue : Double) : Double
2793: Func ToCommon(const AValue: Double): Double;
2794: Func Today : TDateTime
2795: Func ToggleBit( const Value:Byte; const Bit : TBitRange) : Byte;
2796: Func ToggleBit1(const Value:Shortint; const Bit : TBitRange): Shortint;
2797: Func ToggleBit2(const Value:Smallint; const Bit : TBitRange): Smallint;
2798: Func ToggleBit3(const Value:Word; const Bit : TBitRange) : Word;
2799: Func ToggleBit4(const Value:Card; const Bit : TBitRange):Card;
2800: Func ToggleBit5(const Value:Int; const Bit : TBitRange) : Int;
2801: Func ToggleBit6(const Value:Int64; const Bit : TBitRange) : Int64;
2802: Func TokenComponentIdent:str

2803: Func TokenFloat : Extended

2804: Func TokenFloat:Extended
2805: Func TokenInt : Longint
2806: Func TokenInt:LongInt
2807: Func TokenString :Str
2808: Func TokenString:str
2809: Func TokenSymbolIs( const S :Str) :Bool
2810: Func TokenSymbolIs(S:str):Boolean
2811: Func Tomorrow : TDateTime
2812: Func ToRightOf( const pc : TControl; piSpace : Int) : Int
2813: Func ToString :Str
2814: Func TotalVariance( const Data : array of Double) : Extended
2815: Func Trace2( AURL :Str) :Str;
2816: Func TrackMenu( Button : TToolButton) :Bool
2817: Func TRANSLATE( SRC, DEST : PCHAR; TOOEM :Bool) : Int
2818: Func TranslateURI( const URI :Str) :Str
2819: Func TranslationMatchesLanguages( Exact :Bool) :Bool
2820: Func TransparentStretchBlt(DstDC:HDC;DstX,DstY,DstW,DstH:Int;SrcDC:HDC;SrcX,SrcY,SrcW,
SrcH:Int;MaskDC:HDC;MaskX, MaskY:Int):Bool
2821: Func Trim( S :Str) :Str;
2822: Func Blank( S :Str) :Str; //alias to Trim
2823: Func Trim( S : WideString) : WideString;
2824: Func Trim(s : AnyString) : AnyString;
2825: Func TrimAllOf( ATrim, AText :Str):str
2826: Func TrimLeft( S :Str) :Str;
2827: Func TrimLeft( S : WideString) : WideString;
2828: Func TrimLeft(const S:Str):Str)
2829: Func TrimRight( S:Str) :Str;
2830: Func TrimRight( S: WideString) : WideString;
2831: Func TrimRight(const S:Str):Str)
2832: Func TrueBoolStrs: array of string
2833: Func Trunc(e : Extended) : Longint;
2834: Func Trunc64(e: extended): Int64;
2835: Func TruncPower( const Base, Exponent : Float) : Float
2836: Func TryConvTypeToFamily(const AFrom,ATo:TConvType; out AFamily:TConvFamily):Bool;
2837: Func TryConvTypeToFamily1(const AType:TConvType;out AFamily:TConvFamily):Bool;
2838: Func TryEncodeDate(Year, Month, Day: Word; var Date: TDateTime):Bool;
2839: Func TryEncodeDateDay(const AYear,ADayOfYear:Word out AValue:TDateTime): Bool
2840: Func TryEncodeDateMonthWeek(const AY,AMonth,AWeekOfMonth,ADayOfWeek:Word;var AValue:TDateTime):Bool
2841: Func TryEncodeDateTime(const AYear,AMonth,ADay,AHour,AMin,ASec,AMilliSecond:Word;out AValue:TDateTime):Bool
2842: Func TryEncodeDateWeek(const AY,AWeekOfYear:Word;out AValue:TDateTime;const ADayOfWeek:Word):Bool
2843: Func TryEncodeDayOfWeekInMonth(const AYear,AMonth,ANthDayOfWeek,ADayOfWeek:Word;out AVal:TDateTime):Bool
2844: Func TryEncodeTime(Hour, Min, Sec, MSec: Word; var Time: TDateTime):Bool;
2845: Func TryFloatToDateTime( Value : Extended; AResult : TDateTime) :Bool
2846: Func TryJulianDateToDateTime( const AValue : Double; out ADateTime : TDateTime) :Bool
2847: Func TryLock :Bool
2848: Func TryModifiedJulianDateToDateTime(const AValue:Double;out ADateTime:TDateTime):Boolean
2849: Func TryRecodeDateTime(const AValue:TDateTime;const AYear,AMonth,ADay,AHour,AMinute,ASecond,
AMilliSecond:Word; out AResult:TDateTime):Boolean
2850: Func TryStrToBcd( const AValue :Str; var Bcd : TBcd) :Bool
2851: Func TryStrToConv( AText :Str; out AValue : Double; out AType : TConvType) :Bool
2852: Func TryStrToDate( S :Str; Value : TDateTime) :Bool;
2853: Func TryStrToDateTime( S :Str; Value : TDateTime) :Bool;
2854: Func TryStrToTime( S :Str; Value : TDateTime) :Bool;
2855: Func TryStrToInt(const S: Ansistr; var I: Int):Bool;
2856: Func TryStrToInt64(const S: Ansistr; var I: Int64):Bool;
2857: Func TryStrToBool(const S:Str; out Value:Bool):Bool;
2858: Func TwoByteToWord( AByte1, AByte2 : Byte) : Word
2859: Func TwoCharToWord( AChar1, AChar2 : Char) : Word
2860: Func TwoToY( const Y : Float) : Float
2861: Func UCS4StringToWideString( const S : UCS4String) : WideString
2862: Func UIDL( const ADest : TStrings; const AMsgNum : Int) :Bool
2863: Func Unassigned: Variant;
2864: Func UndoLastChange( FollowChange :Bool) :Bool
2865: Func UniCodeToStr(Value:Str):Str;
2866: Func UnionRect( out Rect : TRect; const R1, R2 : TRect) :Bool
2867: Func UnionRect(out Rect: TRect; const R1, R2: TRect):Bool)
2868: Func UnixDateTimeToDelphiDateTime( UnixDateTime :Card) : TDateTime
2869: Func UnixPathToDosPath( const Path :Str) :Str
2870: Func UnixToDateTime( const AValue : Int64) : TDateTime
2871: Func UnixToDateTime(U: Int64): TDateTime;
2872: Func UnlockRegion(libOffset Longint;cb: Largeint;dwLockType:Longint):HResult
2873: Func UnlockResource( ResData : HGLOBAL) : LongBool
2874: Func UnlockVolume( var Handle : THandle) :Bool
2875: Func UnMaskString( Mask, Value :Str) :Str
2876: Func UpCase(ch : Char ) : Char;
2877: Func UpCaseFirst( const AStr :Str) :Str
2878: Func UpCaseFirstWord( const AStr :Str) :Str
2879: Func UpdateAction( Action : TBasicAction) :Bool
2880: Func UpdateKind : TUpdateKind
2881: Func UPDATESTATUS : TUPDATESTATUS
2882: Func UpperCase( S :Str) :Str
2883: Func Uppercase(s : AnyString) : AnyString;
2884: Func URLDecode( ASrc :Str) :Str
2885: Func URLEncode( const ASrc :Str) :Str
2886: Func UseRightToLeftAlignment :Bool
2887: Func UseRightToLeftAlignmentForField(const AField:TField;Alignment:TAlignment):Bool
2888: Func UseRightToLeftReading :Bool
2889: Func UTF8CharLength( Lead : Char) : Int

2890: Func UTF8CharSize( Lead : Char) : Int

2891: Func UTF8Decode( const S : UTF8String) : WideString
2892: Func UTF8Encode( const WS : WideString) : UTF8String
2893: Func UTF8LowerCase( const S : UTF8string) : UTF8string
2894: Func Utf8ToAnsi( const S : UTF8String) :Str
2895: Func Utf8ToAnsiEx( const S : UTF8String; const cp : Int) :Str
2896: Func UTF8UpperCase( const S : UTF8string) : UTF8string
2897: Func ValidFieldIndex( FieldIndex : Int) :Bool
2898: Func ValidParentForm(control: TControl): TForm
2899: Func Value : Variant
2900: Func ValueExists( const Section, Ident :Str) :Bool
2901: Func ValueOf( const Key :Str) : Int
2902: Func ValueInSet(AValue: Variant; ASet: Variant):Bool;
2903: Func VALUEOFKEY( const AKEY : VARIANT) : VARIANT
2904: Func VarArrayFromStrings( Strings : TStrings) : Variant
2905: Func VarArrayFromWideStrings( Strings : TWideStrings) : Variant
2906: Func VarArrayGet(var S : Variant; I : Int) : Variant;
2907: Func VarFMTBcd : TVarType
2908: Func VarFMTBcdCreate1 : Variant;
2909: Func VarFMTBcdCreate2(const AValue :Str; Precision, Scale : Word) : Variant;
2910: Func VarFMTBcdCreate3(const AValue: Double;Precision: Word; Scale: Word):Variant;
2911: Func VarFMTBcdCreate4(const ABcd : TBcd) : Variant;
2912: Func Variance(const Data : array of Double) : Extended
2913: Func VariantAdd2( const V1 : Variant; const V2 : Variant):Variant
2914: Func VariantAnd2( const V1 : Variant; const V2 : Variant):Variant
2915: Func VariantDiv2( const V1 : Variant; const V2 : Variant):Variant
2916: Func VariantGetElement( const V : Variant; i1 : Int) : Variant;
2917: Func VariantGetElement1( const V : Variant; i1, i2 : Int) : Variant;
2918: Func VariantGetElement2( const V : Variant; i1, i2, i3 : Int) : Variant;
2919: Func VariantGetElement3( const V : Variant; i1, i2, i3, i4 : Int):Variant;
2920: Func VariantGetElement4( const V : Variant; i1, i2, i3, i4, i5: Int):Variant;
2921: Func VariantMod2( const V1 : Variant; const V2 : Variant) : Variant
2922: Func VariantMul2( const V1 : Variant; const V2 : Variant) : Variant
2923: Func VariantNeg(const V1: Variant) : Variant
2924: Func VariantNot(const V1: Variant) : Variant
2925: Func VariantOr2(const V1: Variant; const V2 : Variant) :Variant
2926: Func VariantShl2(const V1: Variant; const V2 : Variant):Variant
2927: Func VariantShr2(const V1: Variant; const V2 : Variant):Variant
2928: Func VariantSub2(const V1: Variant; const V2 : Variant):Variant
2929: Func VariantXor2(const V1: Variant; const V2 : Variant):Variant
2930: Func VarIsEmpty(const V: Variant):Bool;
2931: Func VarIsFMTBcd( const AValue : Variant) :Bool;
2932: Func VarIsNull(const V: Variant):Bool;
2933: Func VarToBcd( const AValue : Variant) : TBcd
2934: Func VarType(const V: Variant): TVarType;
2935: Func VarType( const V : Variant) : TVarType
2936: Func VarAsType( const V : Variant; AVarType : TVarType): Variant
2937: Func VarIsType( const V : Variant; AVarType : TVarType):Bool;
2938: Func VarIsType1(const V: Variant;const AVarTypes: array of TVarType):Bool;
2939: Func VarIsByRef( const V : Variant) : Bool
2940: Func VarIsEmpty( const V : Variant) : Bool
2941: Proc VarCheckEmpty( const V : Variant)
2942: Func VarIsNull( const V : Variant) : Bool
2943: Func VarIsClear( const V : Variant) : Bool
2944: Func VarIsCustom( const V : Variant) : Bool
2945: Func VarIsOrdinal( const V : Variant) : Bool
2946: Func VarIsFloat( const V : Variant) : Bool
2947: Func VarIsNumeric( const V : Variant) : Bool
2948: Func VarIsStr( const V : Variant) :Bool
2949: Func VarToStr( const V : Variant) :Str
2950: Func VarToStrDef( const V : Variant; const ADefault :Str) :Str
2951: Func VarToWideStr( const V : Variant) : WideString
2952: Func VarToWideStrDef( const V : Variant; const ADefault : WideString):WideString
2953: Func VarToDateTime( const V : Variant) : TDateTime
2954: Func VarFromDateTime( const DateTime : TDateTime) : Variant
2955: Func VarInRange( const AValue, AMin, AMax : Variant) :Bool
2956: Func VarEnsureRange( const AValue, AMin, AMax : Variant) : Variant
2957: TVariantRelationship', '( vrEqual, vrLessThan, vrGreaterThan, vrNotEqual)
2958: Func VarSameValue( const A, B : Variant) :Bool
2959: Func VarCompareValue( const A, B : Variant) : TVariantRelationship
2960: Func VarIsEmptyParam( const V : Variant) :Bool
2961: Func VarIsError( const V : Variant; out AResult : HRESULT):Boolean;
2962: Func VarIsError1( const V : Variant) :Bool;
2963: Func VarAsError( AResult : HRESULT) : Variant
2964: Proc VarCopyNoInd( var Dest : Variant; const Source : Variant)
2965: Func VarIsArray( const A : Variant) :Bool;
2966: Func VarIsArray1( const A : Variant; AResolveByRef :Bool) :Bool;
2967: Func VarArrayCreate( const Bounds : array of Int; AVarType : TVarType):Variant
2968: Func VarArrayOf( const Values : array of Variant) : Variant
2969: Func VarArrayRef( const A : Variant) : Variant
2970: Func VarTypeIsValidArrayType( const AVarType : TVarType):Bool
2971: Func VarTypeIsValidElementType( const AVarType : TVarType):Boolean
2972: Func VarArrayDimCount( const A : Variant) : Int
2973: Func VarArrayLowBound( const A : Variant; Dim : Int) : Int
2974: Func VarArrayHighBound( const A : Variant; Dim : Int) : Int
2975: Func VarArrayLock( const A : Variant) : ___Pointer
2976: Proc VarArrayUnlock( const A : Variant)
2977: Func VarArrayGet( const A : Variant; const Indices : array of Int) : Variant
2978: Proc VarArrayPut(var A:Variant;const Value:Variant;const Indices: array of Int)

2979: Proc DynArrayToVariant(var V: Variant;const DynArray: _Pointer;TypeInfo: _Pointer)

2980: Proc DynArrayFromVariant(var DynArray:___Pointer;const V: Variant;TypeInfo:___Pointer)
2981: Func Unassigned : Variant
2982: Func Null : Variant
2983: Func VectorAdd( const V1, V2 : TFloatPoint) : TFloatPoint
2984: Func VectorAdd(const V1,V2: TFloatPoint): TFloatPoint;
2985: Func VectorDot( const V1, V2 : TFloatPoint) : Double
2986: Func VectorDot(const V1,V2: TFloatPoint): Double;
2987: Func VectorLengthSqr( const V : TFloatPoint) : Double
2988: Func VectorLengthSqr(const V: TFloatPoint): Double;
2989: Func VectorMult( const V : TFloatPoint; const s : Double) : TFloatPoint
2990: Func VectorMult(const V: TFloatPoint; const s: Double): TFloatPoint;
2991: Func VectorSubtract( const V1, V2 : TFloatPoint) : TFloatPoint
2992: Func VectorSubtract(const V1,V2: TFloatPoint): TFloatPoint;
2993: Func Verify( AUserName :Str) :Str
2994: Func Versine( X : Float) : Float
2995: Func VersionCheck:Bool;
2996: Func VersionCheckAct:Str;
2997: Func VersionLanguageId( const LangIdRec : TLangIdRec) :Str
2998: Func VersionLanguageName( const LangId : Word) :Str
2999: Func VersionResourceAvailable( const FileName :Str):Boolean
3000: Func Visible :Bool
3001: Func VolumeID(DriveChar: Char):Str
3002: Func WaitFor( const AString :Str) :Str
3003: Func WaitFor( const TimeOut :Card): TJclWaitResult
3004: Func WaitFor1 : TWaitResult;
3005: Func WaitForData( Timeout : Longint) :Bool
3006: Func WebColorNameToColor( WebColorName :Str) : TColor
3007: Func WebColorStrToColor( WebColor :Str) : TColor
3008: Func WebColorToRGB( WebColor : Int) : Int
3009: Func wGet(aURL, afile:Str):Bool;'
3010: Func wGet2(aURL, afile:Str):Bool;' //without file open
3011: Func wGetX(aURL, afile:Str):Bool;
3012: Func wGetX2(aURL, afile:Str):Bool;' //without file open
3013: Func WebGet(aURL, afile:Str):Bool;'
3014: Func WebExists:Bool; //alias to isinternet
3015: Func WeekOf( const AValue : TDateTime) : Word
3016: Func WeekOfTheMonth( const AValue : TDateTime) : Word;
3017: Func WeekOfTheMonth1( const AValue : TDateTime; var AYear, AMonth : Word) : Word;
3018: Func WeekOfTheYear( const AValue : TDateTime) : Word;
3019: Func WeekOfTheYear1( const AValue : TDateTime; var AYear : Word) : Word;
3020: Func WeeksBetween( const ANow, AThen : TDateTime) : Int
3021: Func WeeksInAYear( const AYear : Word) : Word
3022: Func WeeksInYear( const AValue : TDateTime) : Word
3023: Func WeekSpan( const ANow, AThen : TDateTime): Double
3024: Func WideAdjustLineBreaks( const S : WideString; Style:TTextLineBreakStyle):WideString
3025: Func WideCat( const x, y : WideString) : WideString
3026: Func WideCompareStr( S1, S2 : WideString) : Int
3027: Func WideCompareStr(const S1: WideString; const S2: WideString): Int)
3028: Func WideCompareText( S1, S2 : WideString) : Int
3029: Func WideCompareText(const S1: WideString; const S2: WideString): Int)
3030: Func WideCopy( const src : WideString; index, count : Int) : WideString
3031: Func WideDequotedStr( const S : WideString; AQuote : WideChar) : WideString
3032: Func WideEqual( const x, y : WideString) :Bool
3033: Func WideFormat(const Format: WideString; const Args: array of const):WideString)
3034: Func WideGreater( const x, y : WideString) :Bool
3035: Func WideLength( const src : WideString) : Int
3036: Func WideLess( const x, y : WideString) :Bool
3037: Func WideLowerCase( S : WideString) : WideString
3038: Func WideLowerCase(const S: WideString): WideString)
3039: Func WidePos( const src, sub : WideString) : Int
3040: Func WideQuotedStr( const S : WideString; Quote : WideChar) : WideString
3041: Func WideReplaceStr( const AText, AFromText, AToText : WideString) : WideString
3042: Func WideReplaceText( const AText, AFromText, AToText : WideString) : WideString
3043: Func WideSameStr( S1, S2 : WideString) :Bool
3044: Func WideSameStr(const S1: WideString; const S2: WideString):Bool)
3045: Func WideSameText( S1, S2 : WideString) :Bool
3046: Func WideSameText(const S1: WideString; const S2: WideString):Bool)
3047: Func WideStringReplace(const S,OldPattern,NewPattern:Widestr;Flags:TReplaceFlags):Widestr
3048: Func WideStringToUCS4String( const S : WideString) : UCS4String
3049: Func WideUpperCase( S : WideString) : WideString
3050: Func Win32BackupFile( const FileName :Str; Move :Bool) :Bool
3051: Func Win32Check(RetVal:Bool):Bool)
3052: Func Win32DeleteFile(const FileName:str; MoveToRecycleBin:Boolean):Bool
3053: Func Win32RestoreFile( const FileName :Str) :Bool
3054: Func Win32Type : TIdWin32Type
3055: Func WinColor( const Color32 : TColor32) : TColor
3056: Func winexec(FileName: pchar; showCmd: Int): Int;
3057: Func WinExec32( const Cmd :Str; const CmdShow : Int) :Bool
3058: Func WinExec32AndWait( const Cmd :Str; const CmdShow : Int) :Card
3059: Func WithinPastDays( const ANow, AThen : TDateTime; const ADays : Int) : Bool
3060: Func WithinPastHours(const ANow, AThen:TDateTime; const AHours : Int64): Bool
3061: Func WithinPastMilliSeconds(const ANow,AThen:TDateTime;const AMilliSeconds:Int64):Bool
3062: Func WithinPastMinutes(const ANow,AThen:TDateTime;const AMinutes:Int64):Bool
3063: Func WithinPastMonths(const ANow, AThen:TDateTime; const AMonths:Int): Bool
3064: Func WithinPastSeconds(const ANow,AThen: DateTime;const ASeconds:Int64): Bool
3065: Func WithinPastWeeks( const ANow, AThen : TDateTime; const AWeeks : Int): Bool
3066: Func WithinPastYears( const ANow, AThen : TDateTime; const AYears : Int): Bool
3067: Func WNetAddConnection( lpRemoteName, lpPassword, lpLocalName : PChar): DWORD

3068: Func WordToStr( const Value : Word) :Str

3069: Func WordGridFormatIdentToInt(const Ident:Str; var Value:Longint): Bool
3070: Func IntToWordGridFormatIdent( Value : Longint; var Ident :Str): Bool
3071: Proc GetWordGridFormatValues( Proc : TGetStrProc)
3072: Func WorkArea : Int
3073: Func WrapText( Line :Str; MaxCol : Int) :Str;
3074: Func WrapText2(Line, BreakStr:str;BreakChars:TSysCharSet;MaxCol:Int):str;
3075: Func Write( pv : Pointer; cb : Longint; pcbWritten : PLongint) : HResult
3076: Func Write(Buffer:str;Count:LongInt):LongInt
3077: Func WriteClient( var Buffer, Count : Int) : Int
3078: Func WriteFile(const AFile:str; const AEnableTransferFile:Boolean):Card
3079: Func WriteHeaders(StatusCode: Int; const ReasonString, Headers:Str):Boolean
3080: Func WriteString( const AString :Str): Bool
3081: Func WStrGet(var S : AnyString; I : Int): WideChar;
3082: Func wvsprintf( Output : PChar; Format : PChar; arglist : va_list) : Int
3083: Func wsprintf( Output : PChar; Format : PChar) : Int
3084: Func XmlDateTimeToStr( const XmlDateTime :Str; const Format:Str):str
3085: Func XmlTimeToStr( const XmlTime :Str; const Format :Str):Str
3086: Func XorDecode( const Key, Source :Str) :Str
3087: Func XorEncode( const Key, Source :Str) :Str
3088: Func XorString( const Key, Src : ShortString): ShortString
3089: Func Yield : Bool
3090: Func YearOf( const AValue : TDateTime) : Word
3091: Func YearsBetween( const ANow, AThen : TDateTime) : Int
3092: Func YearSpan( const ANow, AThen : TDateTime) : Double
3093: Func Yesterday : TDateTime
3094: Func YesNoDialog(const ACaption, AMsg:Str):Bool;
3095: Function(const Name :Str; Proc : TUserFunction)
3096: Func using Special_Scholz from V 3.8.5.0
3097: Func TimeToFloat(value:Extended):Extended; // Normalstunden --> Industriestunden
3098: Func FloatToTime(value:Extended):Extended; // Industriestunden --> Normalstunden
3099: Func FloatToTime2Dec(value:Extended):Extended;
3100: Func MinToStd(value:Extended):Extended;
3101: Func MinToStdAsString(value:Extended):str;
3102: Func RoundFloatToStr(zahl:Extended; decimals:Int):str;
3103: Func RoundFloat(zahl:Extended; decimals:Int):Extended;
3104: Func Round2Dec (zahl:Extended):Extended;
3105: Func GetAngle(x,y:Extended):Double;
3106: Func AddAngle(a1,a2:Double):Double;
3107:
3108: *********************************************************************
3109: unit uPSI_StText;
3110: *********************************************************************
3111: Func TextSeek( var F : TextFile; Target : LongInt) :Bool
3112: Func TextFileSize( var F : TextFile) : LongInt
3113: Func TextPos( var F : TextFile) : LongInt
3114: Func TextFlush( var F : TextFile) :Bool
3115:
3116: *********************************************************************
3117: from JvVCLUtils;
3118: *********************************************************************
3119: { Windows resources (bitmaps and icons) VCL-oriented routines }
3120: Proc DrawBitmapTransparent(Dest:TCanvas;DstX,DstY:Int;Bitmap:TBitmap;TransparentColor:TColor);
3121: Proc DrawBitmapRectTransparent(Dest: TCanvas;DstX,
DstY:Int;SrcRect:TRect;Bitmap:TBitmap;TransparColor:TColor);
3122: Proc StretchBitmapRectTransparent(Dest: TCanvas; DstX, DstY, DstW,DstH: Int; SrcRect: TRect; Bitmap:
TBitmap; TransparentColor:TColor);
3123: Func MakeBitmap(ResID: PChar): TBitmap;
3124: Func MakeBitmapID(ResID: Word): TBitmap;
3125: Func MakeModuleBitmap(Module: THandle; ResID: PChar): TBitmap;
3126: Func CreateTwoColorsBrushPattern(Color1, Color2: TColor): TBitmap;
3127: Func CreateDisabledBitmap_NewStyle(FOriginal: TBitmap; BackColor: TColor): TBitmap;
3128: Func CreateDisabledBitmapEx(FOriginal: TBitmap; OutlineColor, BackColor,
3129: HighlightColor, ShadowColor: TColor; DrawHighlight:Bool): TBitmap;
3130: Func CreateDisabledBitmap(FOriginal: TBitmap; OutlineColor: TColor): TBitmap;
3131: Func ChangeBitmapColor(Bitmap: TBitmap; Color, NewColor: TColor): TBitmap;
3132: Proc AssignBitmapCell(Source: TGraphic; Dest: TBitmap; Cols, Rows,Index: Int);
3133: {$IFDEF WIN32}
3134: Proc ImageListDrawDisabled(Images: TImageList; Canvas: TCanvas;
3135: X, Y, Index: Int; HighlightColor, GrayColor: TColor; DrawHighlight:Bool);
3136: {$ENDIF}
3137: Func MakeIcon(ResID: PChar): TIcon;
3138: Func MakeIconID(ResID: Word): TIcon;
3139: Func MakeModuleIcon(Module: THandle; ResID: PChar): TIcon;
3140: Func CreateBitmapFromIcon(Icon: TIcon; BackColor: TColor): TBitmap;
3141: {$IFDEF WIN32}
3142: Func CreateIconFromBitmap(Bitmap: TBitmap; TransparentColor: TColor): TIcon;
3143: {$ENDIF}
3144: { Service routines }
3145: Proc NotImplemented;
3146: Proc ResourceNotFound(ResID: PChar);
3147: Func PointInRect(const P: TPoint; const R: TRect):Bool;
3148: Func PointInPolyRgn(const P: TPoint; const Points: array of TPoint):Bool;
3149: Func PaletteColor(Color: TColor): Longint;
3150: Func WidthOf(R: TRect): Int;
3151: Func HeightOf(R: TRect): Int;
3152: Proc PaintInverseRect(const RectOrg, RectEnd: TPoint);
3153: Proc DrawInvertFrame(ScreenRect: TRect; Width: Int);
3154: Proc CopyParentImage(Control: TControl; Dest: TCanvas);

3155: Proc Delay(MSecs: Longint);

3156: Proc DeleteLine(StrList: TStringList; SearchPattern:Str);
3157: Proc CenterControl(Control: TControl);
3158: Func PaletteEntries( Palette : HPALETTE) : Int
3159: Func WindowClassName( Wnd : HWND) :Str
3160: Func ScreenWorkArea : TRect
3161: Proc MoveWindowOrg( DC : HDC; DX, DY : Int)
3162: Proc SwitchToWindow( Wnd : HWND; Restore :Bool)
3163: Proc ActivateWindow( Wnd : HWND)
3164: Proc ShowWinNoAnimate( Handle : HWND; CmdShow : Int)
3165: Proc CenterWindow( Wnd : HWND)
3166: Proc ShadeRect( DC : HDC; const Rect : TRect)
3167: Proc KillMessage( Wnd : HWND; Msg :Card)
3168: Func DialogsToPixelsX(Dlgs:Word):Word
3169: Func DialogsToPixelsY(Dlgs:Word):Word
3170: Func PixelsToDialogsX(Pixs:Word):Word
3171: Func PixelsToDialogsY(Pixs:Word):Word
3172: {$IFDEF WIN32}
3173: Proc ShowMDIClientEdge(ClientHandle: THandle; ShowEdge:Bool);
3174: Func MakeVariant(const Values: array of Variant): Variant;
3175: {$ENDIF}
3176: Func CreateRotatedFont(Font: TFont; Angle: Int): HFONT;
3177: Func MsgBox(const Caption, Text:Str; Flags: Int): Int;
3178: Func MsgDlg(const Msg:str;AType:TMsgDlgType;AButtons:TMsgDlgButtons;HelpCtx:Longint):Word;
3179: {$IFDEF CBUILDER}
3180: Func FindPrevInstance(const MainFormClass: ShortString; const ATitle:Str): HWND;
3181: Func ActivatePrevInstance(const MainFormClass: ShortString; const ATitle:Str):Boolean;
3182: {$ELSE}
3183: Func FindPrevInstance(const MainFormClass, ATitle:Str): HWND;
3184: Func ActivatePrevInstance(const MainFormClass, ATitle:Str):Bool;
3185: {$ENDIF CBUILDER}
3186: Func IsForegroundTask:Bool;
3187: Proc MergeForm(AControl: TWinControl; AForm: TForm; Align: TAlign; Show:Bool);
3188: Func GetAveCharSize(Canvas: TCanvas): TPoint;
3189: Func MinimizeText(const Text:Str; Canvas: TCanvas; MaxWidth: Int):Str;
3190: Proc FreeUnusedOle;
3191: Proc Beep;
3192: Func GetWindowsVersionJ:Str;
3193: Func LoadDLL(const LibName:Str): THandle;
3194: Func RegisterServer(const ModuleName:Str):Bool;
3195: {$IFNDEF WIN32}
3196: Func IsLibrary:Bool;
3197: {$ENDIF}
3198: { Gradient filling routine }
3199: type TFillDirection = (fdTopToBottom, fdBottomToTop, fdLeftToRight, fdRightToLeft);
3200: Proc GradientFillRect(Canvas:TCanvas; ARect:TRect;StartColor,
EndColor:TColor;Direction:TFillDirection;Colors: Byte);
3201: { String routines }
3202: Func GetEnvVar(const VarName:Str):Str;
3203: Func AnsiUpperFirstChar(const S:Str):Str;
3204: Func StringToPChar(var S:Str): PChar;
3205: Func StrPAlloc(const S:Str): PChar;
3206: Proc SplitCommandLine(const CmdLine:Str; var ExeName,Params:str);
3207: Func DropT(const S:Str):Str;
3208: { Memory routines }
3209: Func AllocMemo(Size: Longint): Pointer;
3210: Func ReallocMemo(fpBlock: Pointer; Size: Longint): Pointer;
3211: Proc FreeMemo(var fpBlock: Pointer);
3212: Func GetMemoSize(fpBlock: Pointer): Longint;
3213: Func CompareMem(fpBlock1, fpBlock2: Pointer; Size:Card):Bool;
3214: {$IFNDEF COMPILER5_UP}
3215: Proc FreeAndNil(var Obj);
3216: {$ENDIF}
3217: // from PNGLoader
3218: Func OptimizeForPNG(Image:TLinearBitmap;QuantizationSteps:Int;TransparentColor:TColor):Int
3219: Proc TransformRGB2LOCO( Image : TLinearBitmap)
3220: Proc TransformLOCO2RGB( Image : TLinearBitmap)
3221: Proc SortPalette( const Pal : TPalette; var ColorMap : TColorMap)
3222: Func DrawButtonFace(Canvas:TCanvas;const Client:TRect;BevelWidth:Int;Style:TButtonStyle; IsRounded,IsDown,
IsFocused:Boolean):TRect //TButtons
3223: Func IsAnAllResult( const AModalResult : TModalResult) :Bool
3224: Func InitWndProc( HWindow : HWnd; Message, WParam : Longint; LParam: Longint):Longint
3225: AddConstantN('CTL3D_ALL','LongWord').SetUInt( $FFFF);
3226: //Proc ChangeBiDiModeAlignment( var Alignment : TAlignment)
3227: //Func SendAppMessage( Msg :Card; WParam, LParam : Longint) : Longint
3228: //Proc MoveWindowOrg( DC : HDC; DX, DY : Int)
3229: Proc SetImeMode( hWnd : HWND; Mode : TImeMode)
3230: Proc SetImeName( Name : TImeName)
3231: Func Win32NLSEnableIME( hWnd : HWND; Enable :Bool) :Bool
3232: Func Imm32GetContext( hWnd : HWND) : HIMC
3233: Func Imm32ReleaseContext( hWnd: HWND; hImc : HIMC) :Bool
3234: Func Imm32GetConversionStatus(hImc : HIMC; var Conversion, Sentence : longword):Bool
3235: Func Imm32SetConversionStatus(hImc : HIMC; Conversion, Sentence : longword):Bool
3236: Func Imm32SetOpenStatus( hImc : HIMC; fOpen :Bool) :Bool
3237: // Func Imm32SetCompositionWindow( hImc : HIMC; lpCompForm : PCOMPOSITIONFORM):Bool
3238: //Func Imm32SetCompositionFont( hImc : HIMC; lpLogfont : PLOGFONTA) :Bool
3239: Func Imm32GetCompositionString(hImc:HIMC;dWord1:longword;lpBuf:str;dwBufLen:longint):Longint
3240: Func Imm32IsIME( hKl : longword) :Bool
3241: Func Imm32NotifyIME( hImc : HIMC; dwAction, dwIndex, dwValue:longword):Boolean

3242: Proc DragDone( Drop :Bool)

3243:
3244:
3245: //****************************************add from jvjvclutils
3246: Func CanvasMaxTextHeight(Canvas: TCanvas): Int;
3247: Func ReplaceComponentReference(This,NewReference:TComponent;var VarReference:TComponent):Bool;
3248: Proc DrawLine(Canvas: TCanvas; X, Y, X2, Y2: Int);
3249: Func IsPositiveResult(Value: TModalResult):Bool;
3250: Func IsNegativeResult(Value: TModalResult):Bool;
3251: Func IsAbortResult(const Value: TModalResult):Bool;
3252: Func StripAllFromResult(const Value: TModalResult): TModalResult;
3253: // returns either BrightColor or DarkColor depending on the luminance of AColor
3254: // This Func gives the same result (AFAIK) as the Func used in Windows to
3255: // calculate the desktop icon text color based on the desktop background color
3256: Func SelectColorByLuminance(AColor, DarkColor, BrightColor: TColor): TColor;
3257: type TJvHTMLCalcType = (htmlShow, htmlCalcWidth, htmlCalcHeight, htmlHyperLink);
3258: Proc HTMLDrawTextEx(Canvas: TCanvas; Rect: TRect;
3259: const State: TOwnerDrawState; const Text:Str; var Width: Int;
3260: CalcType: TJvHTMLCalcType; MouseX, MouseY: Int; var MouseOnLink:Bool;
3261: var LinkName:Str; Scale: Int = 100); overload;
3262: Proc HTMLDrawTextEx(Canvas: TCanvas; Rect: TRect;
3263: const State: TOwnerDrawState; const Text:Str; var Width, Height: Int;
3264: CalcType: TJvHTMLCalcType; MouseX, MouseY: Int; var MouseOnLink:Bool;
3265: var LinkName:Str; Scale: Int = 100); overload;
3266: Func HTMLDrawText(Canvas: TCanvas; Rect: TRect;
3267: const State: TOwnerDrawState; const Text:Str; Scale: Int = 100):Str;
3268: Func HTMLDrawTextHL(Canvas: TCanvas; Rect: TRect;
3269: const State: TOwnerDrawState; const Text:Str; MouseX, MouseY: Int;
3270: Scale: Int = 100):Str;
3271: Func HTMLPlainText(const Text:Str):Str;
3272: Func HTMLTextExtent(Canvas: TCanvas; Rect: TRect;
3273: const State: TOwnerDrawState; const Text:Str; Scale: Int = 100): TSize;
3274: Func HTMLTextWidth(Canvas: TCanvas; Rect: TRect;
3275: const State: TOwnerDrawState; const Text:Str; Scale: Int = 100): Int;
3276: Func HTMLTextHeight(Canvas: TCanvas; const Text:str;Scale:Int = 100):Int;
3277: Func HTMLPrepareText(const Text:Str):Str;
3278:
3279: ****************************************** uPSI_JvAppUtils;
3280: Func GetDefaultSection( Component : TComponent) :Str
3281: Proc GetDefaultIniData(Control:TControl;var IniFileName,Section:str;UseRegistry:Bool)
3282: Proc GetDefaultIniData( Control : TControl; var IniFileName, Section :Str)
3283: Func GetDefaultIniName :Str
3284: //'OnGetDefaultIniName','TOnGetDefaultIniName);
3285: Func GetDefaultIniRegKey :Str
3286: Func FindForm( FormClass : TFormClass) : TForm
3287: Func FindShowForm( FormClass : TFormClass; const Caption :Str) : TForm
3288: Func ShowDialog( FormClass : TFormClass) :Bool
3289: //Func InstantiateForm( FormClass : TFormClass; var Reference) : TForm
3290: Proc SaveFormPlacement( Form : TForm; const IniFileName :Str; UseRegistry :Bool)
3291: Proc RestoreFormPlacement(Form : TForm; const IniFileName :Str; UseRegistry :Bool)
3292: Proc SaveMDIChildrenReg( MainForm : TForm; IniFile : TRegIniFile)
3293: Proc SaveFormPlacement( Form : TForm; const IniFileName :Str)
3294: Proc RestoreFormPlacement( Form : TForm; const IniFileName :Str)
3295: Func GetUniqueFileNameInDir( const Path, FileNameMask :Str) :Str
3296: Func StrToIniStr( const Str :Str) :Str
3297: Func IniStrToStr( const Str :Str) :Str
3298: Func IniReadString( IniFile : TObject; const Section, Ident, Default:Str):Str
3299: Proc IniWriteString( IniFile : TObject; const Section, Ident, Value:Str)
3300: Func IniReadInt(IniFile:TObject;const Section, Ident :Str; Default:Longint): Longint
3301: Proc IniWriteInt( IniFile : TObject; const Section, Ident :Str; Value : Longint)
3302: Func IniReadBool(IniFile:TObject; const Section,Ident:str; Default:Boolean):Bool
3303: Proc IniWriteBool( IniFile : TObject; const Section, Ident :Str; Value :Bool)
3304: Proc IniReadSections( IniFile : TObject; Strings : TStrings)
3305: Proc IniEraseSection( IniFile : TObject; const Section :Str)
3306: Proc IniDeleteKey( IniFile : TObject; const Section, Ident :Str)
3307: Proc AppBroadcast( Msg, wParam : Longint; lParam : Longint)
3308: Proc AppBroadcast( Msg, wParam : Word; lParam : Longint)
3309: Proc AppTaskbarIcons( AppOnly :Bool)
3310: Proc InternalSaveGridLayout(Grid : TCustomGrid; IniFile : TObject; const Section:str)
3311: Proc InternalRestoreGridLayout(Grid:TCustomGrid;IniFile : TObject; const Section:str)
3312: Proc InternalSaveMDIChildren( MainForm : TForm; IniFile : TObject)
3313: Proc InternalRestoreMDIChildren( MainForm : TForm; IniFile : TObject)
3314: ******************************************* uPSI_JvDBUtils;
3315: Func CreateLocate( DataSet : TDataSet) : TJvLocateObject
3316: Func IsDataSetEmpty( DataSet : TDataSet) :Bool
3317: Proc RefreshQuery( Query : TDataSet)
3318: Func DataSetSortedSearch(DataSet:TDataSet;const Value,FieldName:str;CaseInsensitive:Bool):Bool
3319: Func DataSetSectionName( DataSet : TDataSet) :Str
3320: Proc InternalSaveFields( DataSet : TDataSet; IniFile : TObject; const Section :Str)
3321: Proc InternalRestoreFields(DataSet:TDataSet;IniFile:TObject;const Section:str;RestoreVisible:Bool)
3322: Func DataSetLocateThrough(DataSet:TDataSet;const KeyFields:str;const
KeyValues:Variant;Options:TLocateOptions):Bool
3323: Proc SaveFields( DataSet : TDataSet; IniFile : TIniFile)
3324: Proc RestoreFields( DataSet : TDataSet; IniFile : TIniFile; RestoreVisible :Bool)
3325: Proc AssignRecord( Source, Dest : TDataSet; ByName :Bool)
3326: Func ConfirmDelete :Bool
3327: Proc ConfirmDataSetCancel( DataSet : TDataSet)
3328: Proc CheckRequiredField( Field : TField)
3329: Proc CheckRequiredFields( const Fields : array of TField)

3330: Func DateToSQL( Value : TDateTime) :Str

3331: Func FormatSQLDateRange( Date1, Date2 : TDateTime; const FieldName :Str) :Str
3332: Func FormatSQLDateRangeEx( Date1, Date2 : TDateTime; const FieldName :Str) :Str
3333: Func FormatSQLNumericRange(const FieldName:str;LowVal,HighVal,LowEmpty,HighEmpty:Double;Inclusive:Bool):str
3334: Func StrMaskSQL( const Value :Str) :Str
3335: Func FormatSQLCondition(const FieldName,Operator,Val:str;FieldType:TFieldType;Exact:Bool):str
3336: Func FormatAnsiSQLCondition(const FieldName,Operator,Val:str;FieldType:TFieldType;Exact:Bool):str
3337: Proc _DBError( const Msg :Str)
3338: Const('TrueExpr','String '0=0
3339: Const('sdfStandard16','String '''"''mm''/''dd''/''yyyy''"''
3340: Const('sdfStandard32','String '''''''dd/mm/yyyy''''''
3341: Const('sdfOracle','String '"TO_DATE(''"dd/mm/yyyy"'', ''DD/MM/YYYY'')"
3342: Const('sdfInterbase','String '"CAST(''"mm"/"dd"/"yyyy"'' AS DATE)"
3343: Const('sdfMSSQL','String '"CONVERT(datetime, ''"mm"/"dd"/"yyyy"'', 103)"
3344: AddTypeS('Largeint', 'Longint
3345: TIFException', '(ErNoError, erCannotImport, erInvalidType, ErInternalError, '+
3346: erInvalidHeader, erInvalidOpcode, erInvalidOpcodeParameter, erNoMainProc, erOutOfGlobalVarsRange, '+
3347: erOutOfProcRange, ErOutOfRange, erOutOfStackRange, ErTypeMismatch, erUnexpectedEof, '+
3348: erVersionError, ErDivideByZero, ErMathError,erCouldNotCallProc, erOutofRecordRange, '+
3349: 'erOutOfMemory,erException,erNullPointerException,erNullVariantErrorerInterfaceNotSupportederError);
3350: (*----------------------------------------------------------------------------*)
3351: Proc SIRegister_JclIniFiles(CL: TPSPascalCompiler);
3352: begin
3353: Func JIniReadBool( const FileName, Section, Line :Str) :Bool
3354: Func JIniReadInt( const FileName, Section, Line :Str) : Int
3355: Func JIniReadString( const FileName, Section, Line :Str) :Str
3356: Proc JIniWriteBool( const FileName, Section, Line :Str; Value :Bool)
3357: Proc JIniWriteInt( const FileName, Section, Line :Str; Value : Int)
3358: Proc JIniWriteString( const FileName, Section, Line, Value :Str)
3359: Proc JIniReadStrings(IniFile:TCustomIniFile; const Section :Str; Strings TStrings)
3360: Proc JIniWriteStrings(IniFile: TCustomIniFile; const Section:str; Strings:TStrings)
3361: end;
3362:
3363: (* === compile-time registration functions === *)
3364: (*----------------------------------------------------------------------------*)
3365: Proc SIRegister_JclDateTime(CL: TPSPascalCompiler);
3366: begin
3367: 'UnixTimeStart','LongInt'( 25569);
3368: Func JEncodeDate( const Year : Int; Month, Day : Word) : TDateTime
3369: Proc JDecodeDate( Date : TDateTime; var Year, Month, Day : Word);
3370: Proc DecodeDate1( Date : TDateTime; var Year : Int; var Month, Day : Word);
3371: Proc DecodeDate2( Date : TDateTime; var Year, Month, Day : Int);
3372: Func CenturyOfDate( const DateTime : TDateTime) : Int
3373: Func CenturyBaseYear( const DateTime : TDateTime) : Int
3374: Func DayOfDate( const DateTime : TDateTime) : Int
3375: Func MonthOfDate( const DateTime : TDateTime) : Int
3376: Func YearOfDate( const DateTime : TDateTime) : Int
3377: Func JDayOfTheYear( const DateTime : TDateTime; var Year : Int) : Int;
3378: Func DayOfTheYear1( const DateTime : TDateTime) : Int;
3379: Func DayOfTheYearToDateTime( const Year, Day : Int) : TDateTime
3380: Func HourOfTime( const DateTime : TDateTime) : Int
3381: Func MinuteOfTime( const DateTime : TDateTime) : Int
3382: Func SecondOfTime( const DateTime : TDateTime) : Int
3383: Func GetISOYearNumberOfDays( const Year : Word) : Word
3384: Func IsISOLongYear( const Year : Word) :Bool;
3385: Func IsISOLongYear1( const DateTime : TDateTime) :Bool;
3386: Func ISODayOfWeek( const DateTime : TDateTime) : Word
3387: Func JISOWeekNumber(DateTime:TDateTime; var YearOfWeekNumber,WeekDay: Int) : Int;
3388: Func ISOWeekNumber1( DateTime : TDateTime; var YearOfWeekNumber : Int) : Int;
3389: Func ISOWeekNumber2( DateTime : TDateTime) : Int;
3390: Func ISOWeekToDateTime( const Year, Week, Day : Int) : TDateTime
3391: Func JIsLeapYear( const Year : Int) :Bool;
3392: Func IsLeapYear1( const DateTime : TDateTime) :Bool;
3393: Func JDaysInMonth( const DateTime : TDateTime) : Int
3394: Func Make4DigitYear( Year, Pivot : Int) : Int
3395: Func JMakeYear4Digit( Year, WindowsillYear : Int) : Int
3396: Func JEasterSunday( const Year : Int) : TDateTime // TDosDateTime', 'Int
3397: Func JFormatDateTime( Form :Str; DateTime : TDateTime) :Str
3398: Func FATDatesEqual( const FileTime1, FileTime2 : Int64) :Bool;
3399: Func FATDatesEqual1( const FileTime1, FileTime2 : TFileTime) :Bool;
3400: Func HoursToMSecs( Hours : Int) : Int
3401: Func MinutesToMSecs( Minutes : Int) : Int
3402: Func SecondsToMSecs( Seconds : Int) : Int
3403: Func TimeOfDateTimeToSeconds( DateTime : TDateTime) : Int
3404: Func TimeOfDateTimeToMSecs( DateTime : TDateTime) : Int
3405: Func DateTimeToLocalDateTime( DateTime : TDateTime) : TDateTime
3406: Func LocalDateTimeToDateTime( DateTime : TDateTime) : TDateTime
3407: Func DateTimeToDosDateTime( const DateTime : TDateTime) : TDosDateTime
3408: Func JDateTimeToFileTime( DateTime : TDateTime) : TFileTime
3409: Func JDateTimeToSystemTime( DateTime : TDateTime) : TSystemTime;
3410: Proc DateTimeToSystemTime1( DateTime : TDateTime; var SysTime:TSystemTime);
3411: Func LocalDateTimeToFileTime( DateTime : TDateTime) : FileTime
3412: Func DosDateTimeToDateTime( const DosTime : TDosDateTime) : TDateTime
3413: Func JDosDateTimeToFileTime( DosTime : TDosDateTime) : TFileTime;
3414: Proc DosDateTimeToFileTime1( DTH, DTL : Word; FT : TFileTime);
3415: Func DosDateTimeToSystemTime( const DosTime : TDosDateTime) : TSystemTime
3416: Func DosDateTimeToStr( DateTime : Int) :Str
3417: Func JFileTimeToDateTime( const FileTime : TFileTime) : TDateTime
3418: Func FileTimeToLocalDateTime( const FileTime : TFileTime) : TDateTime

3419: Func JFileTimeToDosDateTime( const FileTime : TFileTime) : TDosDateTime;

3420: Proc FileTimeToDosDateTime1( const FileTime : TFileTime; var Date, Time: Word);
3421: Func JFileTimeToSystemTime( const FileTime : TFileTime) : TSystemTime;
3422: Proc FileTimeToSystemTime1( const FileTime : TFileTime; var ST : TSystemTime);
3423: Func FileTimeToStr( const FileTime : TFileTime) :Str
3424: Func SystemTimeToDosDateTime( const SystemTime : TSystemTime) : TDosDateTime
3425: Func JSystemTimeToFileTime( const SystemTime : TSystemTime) : TFileTime;
3426: Proc SystemTimeToFileTime1( const SystemTime : TSystemTime; FTime : TFileTime);
3427: Func SystemTimeToStr( const SystemTime : TSystemTime) :Str
3428: Func CreationDateTimeOfFile( const Sr : TSearchRec) : TDateTime
3429: Func LastAccessDateTimeOfFile( const Sr : TSearchRec) : TDateTime
3430: Func LastWriteDateTimeOfFile( const Sr : TSearchRec) : TDateTime
3431: TJclUnixTime32', 'Longword
3432: Func JDateTimeToUnixTime( DateTime : TDateTime) : TJclUnixTime32
3433: Func JUnixTimeToDateTime( const UnixTime : TJclUnixTime32) : TDateTime
3434: Func FileTimeToUnixTime( const AValue : TFileTime) : TJclUnixTime32
3435: Func UnixTimeToFileTime( const AValue : TJclUnixTime32) : TFileTime
3436: Func JNullStamp : TTimeStamp
3437: Func JCompareTimeStamps( const Stamp1, Stamp2 : TTimeStamp): Int64
3438: Func JEqualTimeStamps( const Stamp1, Stamp2 : TTimeStamp) :Bool
3439: Func JIsNullTimeStamp( const Stamp : TTimeStamp) :Bool
3440: Func TimeStampDOW( const Stamp : TTimeStamp) : Int
3441: Func FirstWeekDay( const Year, Month : Int; var DOW : Int): Int;
3442: Func FirstWeekDay1( const Year, Month : Int) : Int;
3443: Func LastWeekDay( const Year, Month : Int; var DOW : Int): Int;
3444: Func LastWeekDay1( const Year, Month : Int) : Int;
3445: Func IndexedWeekDay( const Year, Month : Int; Index : Int): Int
3446: Func FirstWeekendDay( const Year, Month : Int; var DOW : Int): Int;
3447: Func FirstWeekendDay1( const Year, Month : Int) : Int;
3448: Func LastWeekendDay( const Year, Month : Int; var DOW : Int): Int;
3449: Func LastWeekendDay1( const Year, Month : Int) : Int;
3450: Func IndexedWeekendDay( const Year, Month : Int; Index : Int): Int
3451: Func FirstDayOfWeek( const Year, Month, DayOfWeek : Int) : Int
3452: Func LastDayOfWeek( const Year, Month, DayOfWeek : Int) : Int
3453: Func IndexedDayOfWeek( const Year, Month, DayOfWeek, Index:Int):Int
3454: FindClass('TOBJECT'),'EJclDateTimeError
3455: end;
3456:
3457: Proc SIRegister_JclMiscel2(CL: TPSPascalCompiler);
3458: begin
3459: Func SetDisplayResolution( const XRes, YRes : DWORD) : Longint
3460: Func CreateDOSProcessRedirected(const CommandLine, InputFile,OutputFile:str):Bool
3461: Func CreateDOSProcessRedirected2(const CommandLine, InputFile,OutputFile:str):Bool
3462: Func CreateDOSProcessRedirected3(const CommandLine, InputFile, OutputFile, ErrMsg:Str):Bool;
3463: Func WinExec32( const Cmd :Str; const CmdShow : Int) :Bool
3464: Func WinExec32AndWait( const Cmd :Str; const CmdShow : Int) :Card
3465: Func WinExec32AndRedirectOutput(const Cmd:str;var Output:str;RawOutput:Bool):Card
3466: TJclKillLevel', '( klNormal, klNoSignal, klTimeOut )
3467: Func ExitWindows( ExitCode :Card) :Bool
3468: Func LogOffOS( KillLevel : TJclKillLevel) :Bool
3469: Func PowerOffOS( KillLevel : TJclKillLevel) :Bool
3470: Func ShutDownOS( KillLevel : TJclKillLevel) :Bool
3471: Func RebootOS( KillLevel : TJclKillLevel) :Bool
3472: Func HibernateOS( Force, DisableWakeEvents :Bool) :Bool
3473: Func SuspendOS( Force, DisableWakeEvents :Bool) :Bool
3474: Func ShutDownDialog(const DialogMessage:str;TimeOut:DWORD;Force,Reboot:Bool):Bool;
3475: Func ShutDownDialog1(const MachineName,DialogMessage:str;TimeOut:DWORD;Force,Reboot:Bool):Bool;
3476: Func AbortShutDown :Bool;
3477: Func AbortShutDown1( const MachineName :Str) :Bool;
3478: TJclAllowedPowerOperation', '( apoHibernate, apoShutdown, apoSuspend )
3479: TJclAllowedPowerOperations', 'set of TJclAllowedPowerOperation
3480: Func GetAllowedPowerOperations : TJclAllowedPowerOperations
3481: FindClass('TOBJECT'),'EJclCreateProcessError
3482: Proc CreateProcAsUser( const UserDomain, UserName, PassWord, CommandLine :Str)
3483: Proc CreateProcAsUserEx(const UserDomain,UserName,Password,CommandLine:str;const Environment:PChar);
3484: // with Add(EJclCreateProcessError) do
3485: end;
3486:
3487: Proc SIRegister_JclAnsistrs(CL: TPSPascalCompiler);
3488: begin
3489: //'AnsiSigns','Set').SetSet(['-', '+']);
3490: 'C1_UPPER','LongWord( $0001);
3491: 'C1_LOWER','LongWord( $0002);
3492: 'C1_DIGIT','LongWord').SetUInt( $0004);
3493: 'C1_SPACE','LongWord').SetUInt( $0008);
3494: 'C1_PUNCT','LongWord').SetUInt( $0010);
3495: 'C1_CNTRL','LongWord').SetUInt( $0020);
3496: 'C1_BLANK','LongWord').SetUInt( $0040);
3497: 'C1_XDIGIT','LongWord').SetUInt( $0080);
3498: 'C1_ALPHA','LongWord').SetUInt( $0100);
3499: AnsiChar', 'Char
3500: Func StrIsAlpha( const S : Ansistr) :Bool
3501: Func StrIsAlphaNum( const S : Ansistr) :Bool
3502: Func StrIsAlphaNumUnderscore( const S : Ansistr) :Bool
3503: Func StrContainsChars(const S:Ansistr;Chars:TSysCharSet; CheckAll:Boolean):Bool
3504: Func StrConsistsOfNumberChars( const S : Ansistr) :Bool
3505: Func StrIsDigit( const S : Ansistr) :Bool
3506: Func StrIsSubset( const S : Ansistr; const ValidChars : TSysCharSet): Bool
3507: Func StrSame( const S1, S2 : Ansistr) :Bool

3508: //Func StrCenter( const S : Ansistr; L : Int; C : AnsiChar) : Ansistr

3509: Func StrCharPosLower( const S : Ansistr; CharPos : Int) : Ansistr
3510: Func StrCharPosUpper( const S : Ansistr; CharPos : Int) : Ansistr
3511: Func StrDoubleQuote( const S : Ansistr) : Ansistr
3512: Func StrEnsureNoPrefix( const Prefix, Text : Ansistr) : Ansistr
3513: Func StrEnsureNoSuffix( const Suffix, Text : Ansistr) : Ansistr
3514: Func StrEnsurePrefix( const Prefix, Text : Ansistr) : Ansistr
3515: Func StrEnsureSuffix( const Suffix, Text : Ansistr) : Ansistr
3516: Func StrEscapedToString( const S : Ansistr) : Ansistr
3517: Func JStrLower( const S : Ansistr) : Ansistr
3518: Proc StrLowerInPlace( var S : Ansistr)
3519: ///Proc StrLowerBuff( S : PAnsiChar)
3520: Proc JStrMove( var Dest:AnsiStr;const Source:AnsiStr;const ToIndex,FromIndex,Count:Int;
3521: Func StrPadLeft( const S : Ansistr; Len : Int; C : AnsiChar) : Ansistr
3522: Func StrPadRight( const S : Ansistr; Len : Int; C : AnsiChar) : Ansistr
3523: Func StrProper( const S : Ansistr) : Ansistr
3524: //Proc StrProperBuff( S : PAnsiChar)
3525: Func StrQuote( const S : Ansistr; C : AnsiChar) : Ansistr
3526: Func StrRemoveChars( const S : Ansistr; const Chars : TSysCharSet) : Ansistr
3527: Func StrKeepChars( const S : Ansistr; const Chars : TSysCharSet) : Ansistr
3528: Proc JStrReplace(var S:Ansistr;const Search,Replace:Ansistr;Flags: TReplaceFlags)
3529: Func StrReplaceChar( const S : Ansistr; const Source, Replace : AnsiChar) : Ansistr
3530: Func StrReplaceChars(const S:AnsiStr;const Chars:TSysCharSet;Replace:AnsiChar):Ansistr
3531: Func StrReplaceButChars(const S:AnsiStr;const Chars:TSysCharSet;Replace:AnsiChar):AnsiStr;
3532: Func StrRepeat( const S : Ansistr; Count : Int) : Ansistr
3533: Func StrRepeatLength( const S : Ansistr; const L : Int) : Ansistr
3534: Func StrReverse( const S : Ansistr) : Ansistr
3535: Proc StrReverseInPlace( var S : Ansistr)
3536: Func StrSingleQuote( const S : Ansistr) : Ansistr
3537: Func StrSmartCase( const S : Ansistr; Delimiters : TSysCharSet) : Ansistr
3538: Func StrStringToEscaped( const S : Ansistr) : Ansistr
3539: Func StrStripNonNumberChars( const S : Ansistr) : Ansistr
3540: Func StrToHex( const Source : Ansistr) : Ansistr
3541: Func StrTrimCharLeft( const S : Ansistr; C : AnsiChar) : Ansistr
3542: Func StrTrimCharsLeft( const S : Ansistr; const Chars : TSysCharSet) : Ansistr
3543: Func StrTrimCharRight( const S : Ansistr; C : AnsiChar) : Ansistr
3544: Func StrTrimCharsRight( const S : Ansistr; const Chars : TSysCharSet) : Ansistr
3545: Func StrTrimQuotes( const S : Ansistr) : Ansistr
3546: Func JStrUpper( const S : Ansistr) : Ansistr
3547: Proc StrUpperInPlace( var S : Ansistr)
3548: //Proc StrUpperBuff( S : PAnsiChar)
3549: Func StrOemToAnsi( const S : Ansistr) : Ansistr
3550: Func StrAnsiToOem( const S : Ansistr) : Ansistr
3551: Proc StrAddRef( var S : Ansistr)
3552: Func StrAllocSize( const S : Ansistr) : Longint
3553: Proc StrDecRef( var S : Ansistr)
3554: //Func StrLen( S : PAnsiChar) : Int
3555: Func StrLength( const S : Ansistr) : Longint
3556: Func StrRefCount( const S : Ansistr) : Longint
3557: Proc StrResetLength( var S : Ansistr)
3558: Func StrCharCount( const S : Ansistr; C : AnsiChar) : Int
3559: Func StrCharsCount( const S : Ansistr; Chars : TSysCharSet) : Int
3560: Func StrStrCount( const S, SubS : Ansistr) : Int
3561: Func StrCompare( const S1, S2 : Ansistr) : Int
3562: Func StrCompareRange( const S1, S2 : Ansistr; const Index, Count:Int) : Int
3563: //Func StrFillChar( const C : AnsiChar; Count : Int) : Ansistr;
3564: Func StrFillChar1( const C : Char; Count : Int) : Ansistr;
3565: Func StrFillChar(const C: Char; Count: Int):Str);
3566: Func IntFillChar(const I: Int; Count: Int):Str);
3567: Func ByteFillChar(const B: Byte; Count: Int):Str);
3568: Func ArrFillChar(const AC: Char; Count: Int): TCharArray;;
3569: Func ArrByteFillChar(const AB: Char; Count: Int): TByteArray;
3570: Func StrFind( const Substr, S : Ansistr; const Index : Int) : Int
3571: //Func StrHasPrefix( const S : Ansistr; const Prefixes : array of Ansistr) :Bool
3572: Func StrIndex( const S : Ansistr; const List : array of Ansistr) : Int
3573: Func StrILastPos( const SubStr, S : Ansistr) : Int
3574: Func StrIPos( const SubStr, S : Ansistr) : Int
3575: Func StrIsOneOf( const S : Ansistr; const List : array of Ansistr) :Bool
3576: Func StrLastPos( const SubStr, S : Ansistr) : Int
3577: Func StrMatch( const Substr, S : Ansistr; const Index : Int) : Int
3578: Func StrMatches( const Substr, S : Ansistr; const Index : Int) :Bool
3579: Func StrNIPos( const S, SubStr : Ansistr; N : Int) : Int
3580: Func StrNPos( const S, SubStr : Ansistr; N : Int) : Int
3581: Func StrPrefixIndex( const S : Ansistr; const Prefixes : array of Ansistr) : Int
3582: Func StrSearch( const Substr, S : Ansistr; const Index : Int) : Int
3583: //Func StrAfter( const SubStr, S : Ansistr) : Ansistr
3584: //Func StrBefore( const SubStr, S : Ansistr) : Ansistr
3585: Func StrBetween( const S : Ansistr; const Start, Stop : AnsiChar) : Ansistr
3586: Func StrChopRight( const S : Ansistr; N : Int) : Ansistr
3587: Func StrLeft( const S : Ansistr; Count : Int) : Ansistr
3588: Func StrMid( const S : Ansistr; Start, Count : Int) : Ansistr
3589: Func StrRestOf( const S : Ansistr; N : Int) : Ansistr
3590: Func StrRight( const S : Ansistr; Count : Int) : Ansistr
3591: Func CharEqualNoCase( const C1, C2 : AnsiChar) :Bool
3592: Func CharIsAlpha( const C : AnsiChar) :Bool
3593: Func CharIsAlphaNum( const C : AnsiChar) :Bool
3594: Func CharIsBlank( const C : AnsiChar) :Bool
3595: Func CharIsControl( const C : AnsiChar) :Bool
3596: Func CharIsDelete( const C : AnsiChar) :Bool

3597: Func CharIsDigit( const C : AnsiChar) :Bool

3598: Func CharIsLower( const C : AnsiChar) :Bool
3599: Func CharIsNumberChar( const C : AnsiChar) :Bool
3600: Func CharIsPrintable( const C : AnsiChar) :Bool
3601: Func CharIsPunctuation( const C : AnsiChar) :Bool
3602: Func CharIsReturn( const C : AnsiChar) :Bool
3603: Func CharIsSpace( const C : AnsiChar) :Bool
3604: Func CharIsUpper( const C : AnsiChar) :Bool
3605: Func CharIsWhiteSpace( const C : AnsiChar) :Bool
3606: Func CharType( const C : AnsiChar) : Word
3607: Func CharHex( const C : AnsiChar) : Byte
3608: Func CharLower( const C : AnsiChar) : AnsiChar
3609: Func CharUpper( const C : AnsiChar) : AnsiChar
3610: Func CharToggleCase( const C : AnsiChar) : AnsiChar
3611: Func CharPos( const S : Ansistr; const C : AnsiChar; const Index : Int) : Int
3612: Func CharLastPos( const S : Ansistr; const C : AnsiChar; const Index : Int) : Int
3613: Func CharIPos( const S : Ansistr; C : AnsiChar; const Index : Int) : Int
3614: Func CharReplace( var S : Ansistr; const Search, Replace : AnsiChar) : Int
3615: Proc StrIToStrings(S,Sep:Ansistr; const List:TStrings;const AllowEmptyString :Bool)
3616: Proc StrToStrings(S,Sep: Ansistr; const List:TStrings;const AllowEmptyString :Bool)
3617: Func StringsToStr(const List:TStrings;const Sep:AnsiStr;const AllowEmptyString:Bool):AnsiStr;
3618: Proc TrimStrings( const List : TStrings; DeleteIfEmpty :Bool)
3619: Proc TrimStringsRight( const List : TStrings; DeleteIfEmpty :Bool)
3620: Proc TrimStringsLeft( const List : TStrings; DeleteIfEmpty :Bool)
3621: Func AddStringToStrings(const S:Ansistr;Strings:TStrings; const Unique:Boolean):Bool
3622: Func BooleanToStr( B :Bool) : Ansistr
3623: Func FileToString( const FileName : Ansistr) : Ansistr
3624: Proc StringToFile( const FileName, Contents: Ansistr; Append:Bool) //binary save!
3625: Proc StringToFile2( const S, FileName :Str);
3626: Func StrToken( var S : Ansistr; Separator : AnsiChar) : Ansistr
3627: Proc StrTokens( const S : Ansistr; const List : TStrings)
3628: Proc StrTokenToStrings( S : Ansistr; Separator : AnsiChar; const List : TStrings)
3629: //Func StrWord( var S : PAnsiChar; out Word : Ansistr) :Bool
3630: Func StrToFloatSafe( const S : Ansistr) : Float
3631: Func StrToIntSafe( const S : Ansistr) : Int
3632: Proc StrNormIndex( const StrLen : Int; var Index : Int; var Count : Int);
3633: Func ArrayOf( List : TStrings) : TDynStringArray;
3634: EJclStringError', 'EJclError
3635: Func IsClass(Address: TObject):Bool;
3636: Func IsObject(Address: TObject):Bool;
3637: // Console Utilities
3638: //Func ReadKey: Char;
3639: Func IntToStrZeroPad(Value, Count: Int): Ansistr;
3640: Func JclGUIDToString(const GUID: TGUID):Str;
3641: Func JclStringToGUID(const S:Str): TGUID;
3642: end;
3643:
3644: ********************************************** uPSI_JvDBUtil;
3645: Proc ExecuteSQLScript(Base:TDataBase;const Script:str; const Commit:TCommit;OnProgress:TOnProgress; const
UserData : Int)
3646: Func GetQueryResult( const DatabaseName, SQL :Str) : Variant
3647: Func GetStoredProcResult(const ADatabaseName,AStoredProcName:str; AParams: array of Variant;const
AResultName:str):Variant
3648: //Func StrFieldDesc( Field : FLDDesc) :Str
3649: Func Var2Type( V : Variant; const VarType : Int) : Variant
3650: Proc CopyRecord( DataSet : TDataSet)
3651: //Proc AddReference( Tbl : TTable; RefName:Str; RefField: Word; MasterTable :Str; MasterField : Word;
ModOp, DelOp : RINTQual)
3652: Proc AddMasterPassword( Table : TTable; pswd :Str)
3653: Proc PackTable( Table : TTable)
3654: Proc PackEncryptedTable( Table : TTable; pswd :Str)
3655: Func EncodeQuotes( const S :Str) :Str
3656: Func Cmp( const S1, S2 :Str) :Bool
3657: Func SubStr( const S :Str; const Index : Int; const Separator :Str) :Str
3658: Func SubStrEnd( const S :Str; const Index : Int; const Separator :Str):Str
3659: Func ReplaceString( S :Str; const OldPattern, NewPattern :Str) :Str
3660: Proc GetXYByPos( const S :Str; const Pos : Int; var X, Y : Int)
3661: **********************************************uPSI_JvJvBDEUtils;***************
3662: //JvBDEUtils
3663: Func CreateDbLocate : TJvLocateObject
3664: //Func CheckOpen( Status : DBIResult) :Bool
3665: Proc FetchAllRecords( DataSet : TBDEDataSet)
3666: Func TransActive( Database : TDatabase) :Bool
3667: Func AsyncQrySupported( Database : TDatabase) :Bool
3668: Func GetQuoteChar( Database : TDatabase) :Str
3669: Proc ExecuteQuery( const DbName, QueryText :Str)
3670: Proc ExecuteQueryEx( const SessName, DbName, QueryText :Str)
3671: Func FieldLogicMap( FldType : TFieldType) : Int
3672: Func FieldSubtypeMap( FldType : TFieldType) : Int Value :Str; Buffer : Pointer)
3673: Func GetAliasPath( const AliasName :Str) :Str
3674: Func IsDirectory( const DatabaseName :Str) :Bool
3675: Func GetBdeDirectory :Str
3676: Func LoginToDatabase( Database : TDatabase; OnLogin : TDatabaseLoginEvent) :Bool
3677: Func DataSetFindValue( ADataSet : TBDEDataSet; const Value, FieldName :Str) :Bool
3678: Func DataSetFindLike( ADataSet : TBDEDataSet; const Value, FieldName :Str) :Bool
3679: Func DataSetRecNo( DataSet : TDataSet) : Longint
3680: Func DataSetRecordCount( DataSet : TDataSet) : Longint
3681: Func DataSetPositionStr( DataSet : TDataSet) :Str
3682: Proc DataSetShowDeleted( DataSet : TBDEDataSet; Show :Bool)

3683: Func CurrentRecordDeleted( DataSet : TBDEDataSet) :Bool

3684: Func IsFilterApplicable( DataSet : TDataSet) :Bool
3685: Func IsBookmarkStable( DataSet : TBDEDataSet) :Bool
3686: Proc SetIndex( Table : TTable; const IndexFieldNames :Str)
3687: Proc RestoreIndex( Table : TTable)
3688: Proc DeleteRange(Table: TTable; IndexFields:array of const; FieldValues: array of const)
3689: Proc PackTable( Table : TTable)
3690: Proc ReindexTable( Table : TTable)
3691: Proc BdeFlushBuffers
3692: Func GetNativeHandle( Database : TDatabase; Buffer : Pointer; BufSize : Int) : Pointer
3693: Proc ToggleDebugLayer( Active :Bool; const DebugFile :Str)
3694: Proc DbNotSupported
3695: Proc ExportDataSet(Source:TBDEDataSet;DestTable:TTable;TableType:TTableType;const AsciiCharSe
:str;AsciiDelimited Boolean;MaxRecordCount:Longint)
3696: Proc ExportDataSetEx( Source : TBDEDataSet; DestTable : TTable; TableType : TTableType; const
AsciiCharSet:str;AsciiDelimited:Boolean;AsciiDelimiter,AsciiSeparator:Char;MaxRecordCount:Longint);
3697: Proc
ImportDataSet(Source:TBDEDataSet;DestTable:TTable;MaxRecCount:Longint;Mappings:TStrings;Mode:TBatchMode);
3698: Proc InitRSRUN(Database:TDatabase;const ConName:str;ConType:Int;const ConServer:str);
3699: **********************************************uPSI_JvDateUtil;
3700: Func CurrentYear: Word;
3701: Func IsLeapYear(AYear: Int):Bool;
3702: Func DaysPerMonth(AYear, AMonth: Int): Int;
3703: Func FirstDayOfPrevMonth: TDateTime;
3704: Func LastDayOfPrevMonth: TDateTime;
3705: Func FirstDayOfNextMonth: TDateTime;
3706: Func ExtractDay(ADate: TDateTime): Word;
3707: Func ExtractMonth(ADate: TDateTime): Word;
3708: Func ExtractYear(ADate: TDateTime): Word;
3709: Func IncDate(ADate: TDateTime; Days, Months, Years: Int): TDateTime;
3710: Func IncDay(ADate: TDateTime; Delta: Int): TDateTime;
3711: Func IncMonth(ADate: TDateTime; Delta: Int): TDateTime;
3712: Func IncYear(ADate: TDateTime; Delta: Int): TDateTime;
3713: Func ValidDate(ADate: TDateTime):Bool;
3714: Proc DateDiff(Date1, Date2: TDateTime; var Days, Months, Years: Word);
3715: Func MonthsBetween(Date1, Date2: TDateTime): Double;
3716: Func DaysInPeriod(Date1, Date2: TDateTime): Longint;
3717: { Count days between Date1 and Date2 + 1, so if Date1 = Date2 result = 1 }
3718: Func DaysBetween(Date1, Date2: TDateTime): Longint;
3719: { The same as previous but if Date2 < Date1 result = 0 }
3720: Func IncTime(ATime: TDateTime; Hours, Minutes, Seconds, MSecs: Int): TDateTime;
3721: Func IncHour(ATime: TDateTime; Delta: Int): TDateTime;
3722: Func IncMinute(ATime: TDateTime; Delta: Int): TDateTime;
3723: Func IncSecond(ATime: TDateTime; Delta: Int): TDateTime;
3724: Func IncMSec(ATime: TDateTime; Delta: Int): TDateTime;
3725: Func CutTime(ADate: TDateTime): TDateTime; { Set time to 00:00:00:00 }
3726: { String to date conversions }
3727: Func GetDateOrder(const DateFormat:Str): TDateOrder;
3728: Func MonthFromName(const S:Str; MaxLen: Byte): Byte;
3729: Func StrToDateDef(const S:Str; Default: TDateTime): TDateTime;
3730: Func StrToDateFmt(const DateFormat, S:Str): TDateTime;
3731: Func StrToDateFmtDef(const DateFormat, S:Str; Default: TDateTime): TDateTime;
3732: Func DefDateFormat(FourDigitYear:Bool):Str;
3733: Func DefDateMask(BlanksChar: Char; FourDigitYear:Bool):Str;
3734: ------------------------------------------------------------------------------
3735: ********************************** JvUtils;*******************************
3736: { GetWordOnPos returns Word from string, S, on the cursor position, P}
3737: Func GetWordOnPos(const S:Str; const P: Int):Str;
3738: {GetWordOnPosEx worklike GetWordOnPosfunction,also returns Wordposition in iBeg,iEnd variables}
3739: Func GetWordOnPosEx(const S:Str; const P: Int; var iBeg, iEnd: Int):Str;
3740: { SubStr returns substring from string, S, separated with Separator string}
3741: Func SubStr(const S:Str; const Index: Int; const Separator:Str):Str;
3742: { SubStrEnd same to previous Func but Index numerated from the end of string }
3743: Func SubStrEnd(const S:Str; const Index: Int; const Separator:Str):Str;
3744: { SubWord returns next Word from string, P, and offsets Pointer to the end of Word, P2 }
3745: Func SubWord(P: PChar; var P2: PChar):Str;
3746: { NumberByWord returns the text representation of
3747: the number, N, in normal russian language. Was typed from Monitor magazine }
3748: Func NumberByWord(const N: Longint):Str;
3749: // Func CurrencyByWord(Value : Currency) :Str; GetLineByPos returns Line number, there
3750: //the symbol Pos is pointed. Lines separated with #13 symbol }
3751: Func GetLineByPos(const S:Str; const Pos: Int): Int;
3752: { GetXYByPos is same to previous function, but returns X position in line too}
3753: Proc GetXYByPos(const S:Str; const Pos: Int; var X, Y: Int);
3754: { ReplaceString searches for all substrings,OldPattern,in a string,S, replaces them with NewPattern }
3755: Func ReplaceString(S:Str; const OldPattern, NewPattern:Str):Str;
3756: { ConcatSep concatenate S and S2 strings with Separator. if S = '', separator don't included }
3757: Func ConcatSep(const S, S2, Separator:Str):Str;
3758: { ConcatLeftSep is same to previous function, but strings concatenate right to left }
3759: Func ConcatLeftSep(const S, S2, Separator:Str):Str;
3760: { MinimizeString truncs long string,S,appends '...' symbols,if Length of S is more than MaxLen}
3761: Func MinimizeString(const S:Str; const MaxLen: Int):Str;
3762: { Next 4 Func for russian chars transliterating.
3763: This functions are needed because Oem2Ansi and Ansi2Oem functions sometimes works sucks }
3764: Proc Dos2Win(var S:Str);
3765: Proc Win2Dos(var S:Str);
3766: Func Dos2WinRes(const S:Str):Str;
3767: Func Win2DosRes(const S:Str):Str;
3768: Func Win2Koi(const S:Str):Str;

3769: { Spaces returns string consists on N space chars }

3770: Func Spaces(const N: Int):Str;
3771: { AddSpaces add spaces to string, S, if it Length is smaller than N }
3772: Func AddSpaces(const S:Str; const N: Int):Str;
3773: { Func LastDate for russian users only } { returns date relative to current date: '' }
3774: Func LastDate(const Dat: TDateTime):Str;
3775: { CurrencyToStr format currency, Cur, using ffCurrency float format}
3776: Func CurrencyToStr(const Cur: currency):Str;
3777: { Cmp compares two strings and returns True if they are equal. Case-insensitive.}
3778: Func Cmp(const S1, S2:Str):Bool;
3779: { StringCat add S2 string to S1 and returns this string }
3780: Func StringCat(var S1:Str; S2:Str):Str;
3781: { HasChar returns True, if Char, Ch, contains in string, S }
3782: Func HasChar(const Ch: Char; const S:Str):Bool;
3783: Func HasAnyChar(const Chars:Str; const S:Str):Bool;
3784: Func CharInSet(const Ch: Char; const SetOfChar: TSetOfChar):Bool;
3785: Func CountOfChar(const Ch: Char; const S:Str): Int;
3786: Func DefStr(const S:Str; Default:Str):Str;
3787: {**** files routines}
3788: { GetWinDir returns Windows folder name }
3789: Func GetWinDir: TFileName;
3790: Func GetSysDir:Str;
3791: { GetTempDir returns Windows temporary folder name }
3792: Func GetTempDir:Str;
3793: { GenTempFileName returns temporary file name on drive, there FileName is placed }
3794: Func GenTempFileName(FileName:Str):Str;
3795: { GenTempFileNameExt sameto previous function,but returning filename has given extension, FileExt }
3796: Func GenTempFileNameExt(FileName:Str; const FileExt:Str):Str;
3797: { ClearDir clears folder Dir }
3798: Func ClearDir(const Dir:Str):Bool;
3799: { DeleteDir clears and than delete folder Dir }
3800: Func DeleteDir(const Dir:Str):Bool;
3801: { FileEquMask returns True if file, FileName, is compatible with given dos file mask, Mask }
3802: Func FileEquMask(FileName, Mask: TFileName):Bool;
3803: { FileEquMasks returns True if file, FileName, is compatible with given Masks.
3804: Masks must be separated with comma (';') }
3805: Func FileEquMasks(FileName, Masks: TFileName):Bool;
3806: Proc DeleteFiles(const Folder: TFileName; const Masks:Str);
3807: { LZFileExpand expand file,FileSource into FileDest.File must be compressed,using MS Compress program }
3808: Func LZFileExpand(const FileSource, FileDest:Str):Bool;
3809: { FileGetInfo fills SearchRec record for specified file attributes}
3810: Func FileGetInfo(FileName: TFileName; var SearchRec: TSearchRec):Bool;
3811: { HasSubFolder returns True, if folder APath contains other folders }
3812: Func HasSubFolder(APath: TFileName):Bool;
3813: { IsEmptyFolder returns True, if there are no files or folders in given folder, APath}
3814: Func IsEmptyFolder(APath: TFileName):Bool;
3815: { AddSlash add slash Char to Dir parameter, if needed }
3816: Proc AddSlash(var Dir: TFileName);
3817: { AddSlash returns string with added slash Char to Dir parameter, if needed }
3818: Func AddSlash2(const Dir: TFileName):Str;
3819: { AddPath returns FileName with Path, if FileName not contain any path }
3820: Func AddPath(const FileName, Path: TFileName): TFileName;
3821: Func AddPaths(const PathList, Path:Str):Str;
3822: Func ParentPath(const Path: TFileName): TFileName;
3823: Func FindInPath(const FileName, PathList:Str): TFileName;
3824: Func FindInPaths(const fileName,paths:Str):Str;
3825: {$IFNDEF BCB1}
3826: { BrowseForFolder displays Browse For Folder dialog }
3827: Func BrowseForFolder(const Handle: HWND; const Title:Str; var Folder:Str):Boolean;
3828: {$ENDIF BCB1}
3829: Func BrowseForFolder(const ATitle:Str; AllowCreate :Bool; var ADirectory :str; AHelpContext :
THelpContext) :Bool
3830: Func BrowseForComputer(const ATitle :Str; AllowCreate :Bool; var ADirectory:str; AHelpContext :
THelpContext): Bool
3831: Func BrowseDirectory(var AFolderName:str;const DlgText:str;AHelpContext:THelpContext):Bool
3832: Func BrowseComputer(var AComputerName:str;const DlgText:str;AHelpContext:THelpContext):Bool
3833: { DeleteReadOnlyFile clears R/O file attribute and delete file }
3834: Func DeleteReadOnlyFile(const FileName: TFileName):Bool;
3835: { HasParam returns True, if program running with specified parameter, Param }
3836: Func HasParam(const Param:Str):Bool;
3837: Func HasSwitch(const Param:Str):Bool;
3838: Func Switch(const Param:Str):Str;
3839: { ExePath returns ExtractFilePath(ParamStr(0)) }
3840: Func ExePath: TFileName;
3841: Func CopyDir(const SourceDir, DestDir: TFileName):Bool;
3842: Func FileTimeToDateTime(const FT: TFileTime): TDateTime;
3843: Func MakeValidFileName(const FileName: TFileName; const ReplaceBadChar: Char): TFileName;
3844: {**** Graphic routines }
3845: { TTFontSelected returns True, if True Type font is selected in specified device context }
3846: Func TTFontSelected(const DC: HDC):Bool;
3847: { TrueInflateRect inflates rect in other method, than InflateRect API Func }
3848: Func TrueInflateRect(const R: TRect; const I: Int): TRect;
3849: {**** Windows routines }
3850: { SetWindowTop put window to top without recreating window }
3851: Proc SetWindowTop(const Handle: HWND; const Top:Bool);
3852: {**** other routines }
3853: { KeyPressed returns True, if Key VK is now pressed }
3854: Func KeyPressed(VK: Int):Bool;
3855: Proc SwapInt(var Int1, Int2: Int);

3856: Func IntPower(Base, Exponent: Int): Int;

3857: Func ChangeTopException(E: TObject): TObject;
3858: Func StrToBool(const S:Str):Bool;
3859: {$IFNDEF COMPILER3_UP}
3860: { AnsiStrLIComp compares S1 to S2, without case-sensitivity, up to a maximum
3861: Length of MaxLen bytes. The compare operation is controlled by the
3862: current Windows locale. The return value is the same as for CompareStr. }
3863: Func AnsiStrLIComp(S1, S2: PChar; MaxLen:Card): Int;
3864: Func AnsiStrIComp(S1, S2: PChar): Int;
3865: {$ENDIF}
3866: Func Var2Type(V: Variant; const VarType: Int): Variant;
3867: Func VarToInt(V: Variant): Int;
3868: Func VarToFloat(V: Variant): Double;
3869: {following functions are not documented because they are don't work properly,so don't use them}
3870: Func ReplaceSokr1(S:Str; const Word, Frase:Str):Str;
3871: { ReplaceSokr1 is full equal to ReplaceString Func - only for compatibility - don't use }
3872: { GetSubStr is full equal to SubStr Func - only for compatibility - don't use }
3873: Func GetSubStr(const S:Str; const Index: Int; const Separator: Char):Str;
3874: Func GetParameter:Str;
3875: Func GetLongFileName(FileName:Str):Str;
3876: {* from FileCtrl}
3877: Func DirectoryExists(const Name:Str):Bool;
3878: Proc ForceDirectories(Dir:Str);
3879: {# from FileCtrl}
3880: Func FileNewExt(const FileName, NewExt: TFileName): TFileName;
3881: Func GetComputerID:Str;
3882: Func GetComputerName:Str;
3883: {**** string routines }
3884: { ReplaceAllSokr searches for all substrings, Words,in a string, S, and replaces them with Frases with the
same Index.Also see RAUtilsW.ReplaceSokr1 Func }
3885: Func ReplaceAllSokr(S:Str; Words, Frases: TStrings):Str;
3886: { ReplaceSokr searches the Word in a string, S, on PosBeg position,
3887: in the list, Words, and if founds, replaces this Word with string from another list, Frases, with same
Index, and then update NewSelStart variable }
3888: Func ReplaceSokr(S:str;PosBeg,Len:Int;Words,Frases:TStrings;var NewSelStart:Int):Str;
3889: { CountOfLines calculates linescount in a string,each line separated from another with CrLf sequence }
3890: Func CountOfLines(const S:Str): Int;
3891: { DeleteEmptyLines deletes all empty lines from strings, Ss. Lines contained only spaces also deletes. }
3892: Proc DeleteEmptyLines(Ss: TStrings);
3893: { SQLAddWhere addes or modifies existing where-statement, where, to the strings, SQL.
3894: Note:If strings SQL allready contains where-statement,it must be started on begining of any line}
3895: Proc SQLAddWhere(SQL: TStrings; const Where:Str);
3896: {**** files routines - }
3897: { ResSaveToFile save resource named as Name with Typ type into file FileName.
3898: Resource can be compressed using MS Compress program}
3899: Func ResSaveToFile(const Typ,Name:str;const Compressed:Bool;const FileName:str):Bool;
3900: Func ResSaveToFileEx(Inst:HINST;Typ,Name:PChar;const Compressed:Bool;const FileName:str): Bool
3901: Func ResSaveToString(Instance: HINST; const Typ, Name:Str; var S:Str):Bool;
3902: { Execute executes other program and waiting for it terminating, then return its Exit Code }
3903: Func ExecuteJ(const CommandLine, WorkingDirectory:Str): Int;
3904: { IniReadSection read section, Section, from ini-file,
3905: IniFileName, into strings, Ss.This Func reads ALL strings from specified section.
3906: Note: TIninFile.ReadSection Func reads only strings with '=' symbol.}
3907: Func IniReadSection(const IniFileName:TFileName;const Section:str;Ss:TStrings):Bool;
3908: { LoadTextFile load text file, FileName, into string }
3909: Func LoadTextFile(const FileName: TFileName):Str;
3910: Proc SaveTextFile(const FileName: TFileName; const Source:Str);
3911: { ReadFolder reads files list from disk folder,Folder,that are equal Mask,into strings,FileList}
3912: Func ReadFolder(const Folder, Mask: TFileName; FileList: TStrings): Int;
3913: Func ReadFolders(const Folder: TFileName; FolderList: TStrings): Int;
3914: {$IFDEF COMPILER3_UP}
3915: { TargetFileName - if FileName is ShortCut returns filename ShortCut linked to }
3916: Func TargetFileName(const FileName: TFileName): TFileName;
3917: { return filename ShortCut linked to }
3918: Func ResolveLink(const hWnd: HWND; const LinkFile: TFileName; var FileName: TFileName): HRESULT;
3919: {$ENDIF COMPILER3_UP}
3920: {**** Graphic routines - }
3921: {LoadIcoToImage loads 2 icons from resource named NameRes,into twoimage lists ALarge and ASmall}
3922: Proc LoadIcoToImage(ALarge, ASmall: TImageList; const NameRes:Str);
3923: { RATextOut same with TCanvas.TextOut procedure,but can clipping drawing with rectangle,RClip.}
3924: Proc RATextOut(Canvas: TCanvas; const R, RClip: TRect; const S:Str);
3925: {RATextOutEx same with RATextOut funct, but can calculate needed height for correct output }
3926: Func RATextOutEx(Canvas:TCanvas;const R,RClip:TRect;const S:str;const CalcHeight:Bool):Int;
3927: {RATextCalcHeight calculate needed height to correct output,using RATextOut or RATextOutEx functions}
3928: Func RATextCalcHeight(Canvas: TCanvas; const R: TRect; const S:Str): Int;
3929: { Cinema draws some visual effect }
3930: Proc Cinema(Canvas: TCanvas; rS {Source}, rD {Dest}: TRect);
3931: { Roughed fills rect with special 3D pattern }
3932: Proc Roughed(ACanvas: TCanvas; const ARect: TRect; const AVert:Bool);
3933: { BitmapFromBitmap creates new small bitmap from part of source bitmap, SrcBitmap, with specified width
and height,AWidth,AHeight and placed on specified Index,Index in source bitmap}
3934: Func BitmapFromBitmap(SrcBitmap: TBitmap; const AWidth, AHeight, Index: Int): TBitmap;
3935: { TextWidth calculate text with for writing using standard desktop font }
3936: Func TextWidth(AStr:Str): Int;
3937: { DefineCursor load cursor from resource, and return available cursor number, assigned to it }
3938: Func DefineCursor(Identifer: PChar): TCursor;
3939: {**** other routines - }
3940: { FindFormByClass returns first form specified class, FormClass,owned by Application global variable }
3941: Func FindFormByClass(FormClass: TFormClass): TForm;

3942: Func FindFormByClassName(FormClassName:Str): TForm;

3943: { FindByTag returns the control with specified class, ComponentClass, from WinContol.Controls property,
3944: having Tag property value, equaled to Tag parameter }
3945: Func FindByTag(WinControl:TWinControl;ComponentClass:TComponentClass;const Tag:Int):TComponent;
3946: { ControlAtPos2 equal to TWinControl.ControlAtPos function, but works better }
3947: Func ControlAtPos2(Parent: TWinControl; X, Y: Int): TControl;
3948: { RBTag searches WinControl.Controls for checked RadioButton and returns Tag property value }
3949: Func RBTag(Parent: TWinControl): Int;
3950: { AppMinimized returns True, if Application is minimized }
3951: Func AppMinimized:Bool;
3952: { MessageBox is Application.MessageBox with string (not PChar) parameters.
3953: if Caption parameter = '', it replaced with Application.Title }
3954: Func MessageBoxJ(const Msg:Str; Caption:Str;const Flags: Int): Int;
3955: Func MsgDlg2(const Msg, ACaption:Str; DlgType: TMsgDlgType;
3956: Buttons: TMsgDlgButtons; HelpContext: Int; Control: TWinControl): Int;
3957: Func MsgDlgDef(const Msg, ACaption:Str; DlgType: TMsgDlgType;
3958: Buttons: TMsgDlgButtons; DefButton:TMsgDlgBtn; HelpContext: Int;Control: TWinControl):Int;
3959: { Delay stop program execution to MSec msec }
3960: Proc Delay(MSec: Longword);
3961: Proc CenterHor(Parent: TControl; MinLeft: Int; Controls: array of TControl);
3962: Proc EnableControls(Control: TWinControl; const Enable:Bool);
3963: Proc EnableMenuItems(MenuItem: TMenuItem; const Tag: Int; const Enable:Bool);
3964: Proc ExpandWidth(Parent: TControl; MinWidth: Int; Controls: array of TControl);
3965: Func PanelBorder(Panel: TCustomPanel): Int;
3966: Func Pixels(Control: TControl; APixels: Int): Int;
3967: Proc SetChildPropOrd(Owner: TComponent; PropName:Str; Value: Longint);
3968: Proc Error(const Msg:Str);
3969: Proc ItemHtDrawEx(Canvas:TCanvas;Rect:TRect;const State:TOwnerDrawState;const Text:str;
3970: const HideSelColor:Bool; var PlainItem:Str; var Width: Int; CalcWidth:Bool);
3971: {ex.Text parameter:'Item1bolditalic ITALIC<c:Red>red<c:Green>green<c:blue>blue'}
3972: Func ItemHtDraw(Canvas:TCanvas;Rect:TRect;const State:TOwnerDrawState;const Text:str;
3973: const HideSelColor:Bool):Str;
3974: Func ItemHtWidth(Canvas:TCanvas;Rect:TRect;const State:TOwnerDrawState;const Text:str;
3975: const HideSelColor:Bool): Int;
3976: Func ItemHtPlain(const Text:Str):Str;
3977: { ClearList - clears list of TObject }
3978: Proc ClearList(List: TList);
3979: Proc MemStreamToClipBoard(MemStream: TMemoryStream; const Format: Word);
3980: Proc ClipBoardToMemStream(MemStream: TMemoryStream; const Format: Word);
3981: { RTTI support }
3982: Func GetPropType(Obj: TObject; const PropName:Str): TTypeKind;
3983: Func GetPropStr(Obj: TObject; const PropName:Str):Str;
3984: Func GetPropOrd(Obj: TObject; const PropName:Str): Int;
3985: Func GetPropMethod(Obj: TObject; const PropName:Str): TMethod;
3986: Proc PrepareIniSection(SS: TStrings);
3987: {following functions are not documented because they are don't work properly,so don't use them}
3988: {$IFDEF COMPILER2}
3989: Func CompareMem(P1, P2: Pointer; Length: Int):Bool; assembler;
3990: {$ENDIF}
3991:
3992: Proc SIRegister_JvBoxProcs(CL: TPSPascalCompiler);
3993: begin
3994: Proc BoxMoveSelectedItems( SrcList, DstList : TWinControl)
3995: Proc BoxMoveAllItems( SrcList, DstList : TWinControl)
3996: Proc BoxDragOver(List:TWinControl;Source:TObject;X,Y:Int;State:TDragState;var Accept:Bool;Sorted:Bool;
3997: Proc BoxMoveFocusedItem( List : TWinControl; DstIndex : Int)
3998: Proc BoxMoveSelected( List : TWinControl; Items : TStrings)
3999: Proc BoxSetItem( List : TWinControl; Index : Int)
4000: Func BoxGetFirstSelection( List : TWinControl) : Int
4001: Func BoxCanDropItem( List:TWinControl; X,Y:Int; var DragIndex : Int):Boolean
4002: end;
4003:
4004: Proc SIRegister_JvCsvParse(CL: TPSPascalCompiler);
4005: begin
4006: Const('MaxInitStrNum','LongInt'( 9);
4007: Func JvAnsiStrSplit( const InString : Ansistr; const SplitChar, QuoteChar:AnsiChar; var OutStrings : array
of Ansistr; MaxSplit : Int) : Int
4008: Func JvStrSplit(const InString:str;const SplitChar,QuoteChar:Char;var OutStrings:array of
string;MaxSplit:Int):Int
4009: Func JvAnsiStrSplitStrings(const InStr:Ansistr;const SplitChar,QuoteChar:AnsiChar;OutStrs:TStrings):Int;
4010: Func JvAnsiStrStrip( S : Ansistr) : Ansistr
4011: Func JvStrStrip( S :Str) :Str
4012: Func GetString( var Source : Ansistr; const Separator : Ansistr) : Ansistr
4013: Func PadString( const S : Ansistr; Len : Int; PadChar : AnsiChar) : Ansistr
4014: Func BuildPathName( const PathName, FileName : Ansistr) : Ansistr
4015: Func StrEatWhiteSpace( const S :Str) :Str
4016: Func HexToAscii( const S : Ansistr) : Ansistr
4017: Func AsciiToHex( const S : Ansistr) : Ansistr
4018: Func StripQuotes( const S1 : Ansistr) : Ansistr
4019: Func ValidNumericLiteral( S1 : PAnsiChar) :Bool
4020: Func ValidIntLiteral( S1 : PAnsiChar) :Bool
4021: Func ValidHexLiteral( S1 : PAnsiChar) :Bool
4022: Func HexPCharToInt( S1 : PAnsiChar) : Int
4023: Func ValidStringLiteral( S1 : PAnsiChar) :Bool
4024: Func StripPCharQuotes( S1 : PAnsiChar) : Ansistr
4025: Func JvValidIdentifierAnsi( S1 : PAnsiChar) :Bool
4026: Func JvValidIdentifier( S1 :Str) :Bool
4027: Func JvEndChar( X : AnsiChar) :Bool
4028: Proc JvGetToken( S1, S2 : PAnsiChar)

4029: Func IsExpressionKeyword( S1 : PAnsiChar) :Bool

4030: Func IsKeyword( S1 : PAnsiChar) :Bool
4031: Func JvValidVarReference( S1 : PAnsiChar) :Bool
4032: Func GetParenthesis( S1, S2 : PAnsiChar) :Bool
4033: Proc JvGetVarReference( S1, S2, SIdx : PAnsiChar)
4034: Proc JvEatWhitespaceChars( S1 : PAnsiChar);
4035: Proc JvEatWhitespaceChars1( S1 : PWideChar);
4036: Func GetTokenCount : Int
4037: Proc ResetTokenCount
4038: end;
4039:
4040: Proc SIRegister_JvDBQueryParamsForm(CL: TPSPascalCompiler);
4041: begin
4042: SIRegister_TJvQueryParamsDialog(CL);
4043: Func EditQueryParams(DataSet:TDataSet;List:TParams;AHelpContext:THelpContext):Bool
4044: end;
4045:
4046: ********************************* JvStrUtil / JvStrUtils;*****************************
4047: Func FindNotBlankCharPos(const S:Str): Int;
4048: Func AnsiChangeCase(const S:Str):Str;
4049: Func GetWordOnPos(const S:Str; const P: Int):Str;
4050: Func GetWordOnPosEx(const S:Str; const P: Int; var iBeg, iEnd: Int):Str;
4051: Func Cmp(const S1, S2:Str):Bool;
4052: { Spaces returns string consists on N space chars }
4053: Func Spaces(const N: Int):Str;
4054: { HasChar returns True, if char, Ch, contains in string, S }
4055: Func HasChar(const Ch: Char; const S:Str):Bool;
4056: Func HasAnyChar(const Chars:Str; const S:Str):Bool;
4057: { SubStr returns substring from string, S, separated with Separator string}
4058: Func SubStr(const S:Str; const Index: Int; const Separator:Str):Str;
4059: { SubStrEnd same to previous Func but Index numerated from the end of string }
4060: Func SubStrEnd(const S:Str; const Index: Int; const Separator:Str):Str;
4061: { ReplaceString searches forall substrings,OldPattern,in a string,S,replaces with NewPattern }
4062: Func ReplaceString(S:Str; const OldPattern, NewPattern:Str):Str;
4063: Func CharInSet(const Ch: Char; const SetOfChar: TSetOfChar):Bool;
4064: { GetXYByPos is same to previous function, but returns X position in line too}
4065: Proc GetXYByPos(const S:Str; const Pos: Int; var X, Y: Int);
4066: { AddSlash returns string with added slash char to Dir parameter, if needed }
4067: Func AddSlash2(const Dir: TFileName):Str;
4068: { AddPath returns FileName with Path, if FileName not contain any path }
4069: Func AddPath(const FileName, Path: TFileName): TFileName;
4070: { ExePath returns ExtractFilePath(ParamStr(0)) }
4071: Func ExePath: TFileName;
4072: Func LoadTextFile(const FileName: TFileName):Str;
4073: Proc SaveTextFile(const FileName: TFileName; const Source:Str);
4074: { ConcatSep concatenate S and S2 strings with Separator. if S = '', separator don't included }
4075: Func ConcatSep(const S, S2, Separator:Str):Str;
4076: { FileEquMask returns True if file, FileName, is compatible with given dos file mask, Mask }
4077: Func FileEquMask(FileName, Mask: TFileName):Bool;
4078: { FileEquMasks returns True if file, FileName, is compatible with given Masks.
4079: Masks must be separated with comma (';') }
4080: Func FileEquMasks(FileName, Masks: TFileName):Bool;
4081: Func StringEndsWith(const Str, SubStr:Str):Bool;
4082: Func ExtractFilePath2(const FileName:Str):Str;
4083: Func StrToOem(const AnsiStr:Str):Str;
4084: { StrToOem translates a string from the Windows character set into the OEM character set. }
4085: Func OemToAnsiStr(const OemStr:Str):Str;
4086: { OemToAnsiStr translates a string from the OEM character set into the Windows character set. }
4087: Func IsEmptyStr(const S:Str; const EmptyChars: TCharSet):Bool;
4088: { EmptyStr returns true if the given string contains only character from the EmptyChars. }
4089: Func ReplaceStr(const S, Srch, Replace:Str):Str;
4090: { Returns string with every occurrence of Srch string replaced with Replace string. }
4091: Func DelSpace(const S:Str):Str;
4092: { DelSpace return a string with all white spaces removed. }
4093: Func DelChars(const S:Str; Chr: Char):Str;
4094: { DelChars return a string with all Chr characters removed. }
4095: Func DelBSpace(const S:Str):Str;
4096: { DelBSpace trims leading spaces from the given string. }
4097: Func DelESpace(const S:Str):Str;
4098: { DelESpace trims trailing spaces from the given string. }
4099: Func DelRSpace(const S:Str):Str;
4100: { DelRSpace trims leading and trailing spaces from the given string. }
4101: Func DelSpace1(const S:Str):Str;
4102: { DelSpace1 return a string with all non-single white spaces removed. }
4103: Func Tab2Space(const S:Str; Numb: Byte):Str;
4104: { Tab2Space converts any tabulation chars in given string to the Numb spaces characters. }
4105: Func NPos(const C:Str; S:Str; N: Int): Int;
4106: { NPos searches for a N-th position of substring C in a given string. }
4107: Func MakeStr(C: Char; N: Int):Str;
4108: Func MS(C: Char; N: Int):Str;
4109: { MakeStr return a string of length N filled with character C. }
4110: Func AddChar(C: Char; const S:Str; N: Int):Str;
4111: { AddChar return a string left-padded to length N with characters C. }
4112: Func AddCharR(C: Char; const S:Str; N: Int):Str;
4113: { AddCharR return a string right-padded to length N with characters C. }
4114: Func LeftStr(const S:Str; N: Int):Str;
4115: { LeftStr return a string right-padded to length N with blanks. }
4116: Func RightStr(const S:Str; N: Int):Str;
4117: { RightStr return a string left-padded to length N with blanks. }

4118: Func CenterStr(const S:Str; Len: Int):Str;

4119: { CenterStr centers the characters in the string based upon the Len specified. }
4120: Func CompStr(const S1, S2:Str): Int;
4121: {CompStr compares S1 to S2,case-sensitivity.return val is -1 if S1<S2,0 if S1=S2,or 1 if S1>S2.}
4122: Func CompText(const S1, S2:Str): Int;
4123: {CompText compares S1 to S2,without case-sensitivity. return value is the same as for CompStr.}
4124: Func Copy2Symb(const S:Str; Symb: Char):Str;
4125: { Copy2Symb returns a substring of a string S from begining to first character Symb. }
4126: Func Copy2SymbDel(var S:Str; Symb: Char):Str;
4127: {Copy2SymbDel returns substr of str S from first character Symb and removes substring from S.}
4128: Func Copy2Space(const S:Str):Str;
4129: { Copy2Symb returns a substring of a string S from begining to first white space. }
4130: Func Copy2SpaceDel(var S:Str):Str;
4131: { Copy2SpaceDel returns a substring of a string S from begining to first
4132: white space and removes this substring from S. }
4133: Func AnsiProperCase(const S:Str; const WordDelims: TCharSet):Str;
4134: { Returns string, with the first letter of each word in uppercase,
4135: all other letters in lowercase. Words are delimited by WordDelims. }
4136: Func WordCount(const S:Str; const WordDelims: TCharSet): Int;
4137: { WordCount given a set of word delimiters, returns number of words in S. }
4138: Func WordPosition(const N: Int; const S:Str; const WordDelims: TCharSet): Int;
4139: { Given a set of word delimiters, returns start position of N'th word in S. }
4140: Func ExtractWord(N: Int; const S:Str; const WordDelims: TCharSet):Str;
4141: Func ExtractWordPos(N:Int; const S:str; const WordDelims:TCharSet;var Pos: Int):str;
4142: Func ExtractDelimited(N: Int; const S:Str; const Delims: TCharSet):Str;
4143: { ExtractWord, ExtractWordPos and ExtractDelimited given a set of word
4144: delimiters, return the N'th word in S. }
4145: Func ExtractSubstr(const S:Str; var Pos: Int; const Delims: TCharSet):Str;
4146: { ExtractSubstr given set of word delimiters,returns the substring from S,that started from position Pos.}
4147: Func IsWordPresent(const W, S:Str; const WordDelims: TCharSet):Bool;
4148: { IsWordPresent given set of word delimiters, returns True if word W is present in string S. }
4149: Func QuotedString(const S:Str; Quote: Char):Str;
4150: { QuotedString returns given string as a quoted string, using the provided Quote character. }
4151: Func ExtractQuotedString(const S:Str; Quote: Char):Str;
4152: { ExtractQuotedString removes the Quote characters from beginning and end of a quoted string,
4153: and reduces pairs of Quote characters within the quoted string to a single character. }
4154: Func FindPart(const HelpWilds, InputStr:Str): Int;
4155: {FindPart compares a string with '?' and another,returns position of HelpWilds in InputStr. }
4156: Func IsWild(InputStr, Wilds:Str; IgnoreCase:Bool):Bool;
4157: { IsWild compares InputString with WildCard string and returns True if corresponds. }
4158: Func XorString(const Key, Src: ShortString): ShortString;
4159: Func XorEncode(const Key, Source:Str):Str;
4160: Func XorDecode(const Key, Source:Str):Str;
4161: { ** Command line routines ** }
4162: {$IFNDEF COMPILER4_UP}
4163: Func FindCmdLineSwitch(const Switch:str;SwitchChars TCharSet;IgnoreCase: Bool):Bool;
4164: {$ENDIF}
4165: Func GetCmdLineArg(const Switch:Str; SwitchChars: TCharSet):Str;
4166: { ** Numeric string handling routines ** }
4167: Func Numb2USA(const S:Str):Str;
4168: { Numb2USA converts numeric string S to USA-format. }
4169: Func Dec2Hex(N: Longint; A: Byte):Str;
4170: Func D2H(N: Longint; A: Byte):Str;
4171: { Dec2Hex converts the given value to a hexadecimal string representation
4172: with the minimum number of digits (A) specified. }
4173: Func Hex2Dec(const S:Str): Longint;
4174: Func H2D(const S:Str): Longint;
4175: { Hex2Dec converts the given hexadecimal string to the corresponding Int value. }
4176: Func Dec2Numb(N: Longint; A, B: Byte):Str;
4177: { Dec2Numb converts the given value to a string representation with the
4178: base equal to B and with the minimum number of digits (A) specified. }
4179: Func Numb2Dec(S:Str; B: Byte): Longint;
4180: { Numb2Dec converts given B-based numeric string to the corresponding Int value. }
4181: Func IntToBin(Value: Longint; Digits, Spaces: Int):Str;
4182: {IntToBin converts given value to bin str representation with min number of digits specified.}
4183: Func IntToRoman(Value: Longint):Str;
4184: { IntToRoman converts the given value to a roman numeric string representation. }
4185: Func RomanToInt(const S:Str): Longint;
4186: { RomanToInt converts the given string to an Int value. If the string
4187: doesn't contain a valid roman numeric value, the 0 value is returned. }
4188: Proc I64ToCardinals(I: Int64; var LowPart, HighPart:Card);
4189: Proc CardinalsToI64(var I: Int64; const LowPart, HighPart:Card);
4190: ********************************** JvFileUtil;**********************************
4191: Proc CopyFileJ(const FileName, DestName:Str; ProgressControl: TControl);
4192: Proc CopyFileEx(const FileName,DestName:str;OverwriteReadOnly,ShellDialog:Bool;ProgressControl:TControl);
4193: Proc MoveFile(const FileName, DestName: TFileName);
4194: Proc MoveFileEx(const FileName, DestName: TFileName; ShellDialog:Bool);
4195: {$IFDEF COMPILER4_UP}
4196: Func GetFileSize(const FileName:Str): Int64;
4197: {$ELSE}
4198: Func GetFileSize(const FileName:Str): Longint;
4199: {$ENDIF}
4200: Func FileDateTime(const FileName:Str): TDateTime;
4201: Func HasAttr(const FileName:Str; Attr: Int):Bool;
4202: Func DeleteFiles(const FileMask:Str):Bool;
4203: Func DeleteFilesEx(const FileMasks: array of string):Bool;
4204: Func ClearDir(const Path:Str; Delete:Bool):Bool;
4205: Func NormalDir(const DirName:Str):Str;
4206: Func RemoveBackSlash(const DirName:Str):Str;

4207: Func ValidFileName(const FileName:Str):Bool;

4208: Func DirExists(Name:Str):Bool;
4209: Proc ForceDirectories(Dir:Str);
4210: Func FileLock(Handle: Int; Offset, LockSize: Longint): Int;
4211: {$IFDEF COMPILER4_UP} overload; {$ENDIF}
4212: {$IFDEF COMPILER4_UP}
4213: Func FileLock(Handle:Int; Offset, LockSize: Int64): Int; overload;
4214: {$ENDIF}
4215: Func FileUnlock(Handle:Int; Offset, LockSize: Longint): Int;
4216: {$IFDEF COMPILER4_UP} overload; {$ENDIF}
4217: {$IFDEF COMPILER4_UP}
4218: Func FileUnlock(Handle:Int; Offset, LockSize: Int64): Int; overload;
4219: {$ENDIF}
4220: Func GetTempDir:Str;
4221: Func GetWindowsDir:Str;
4222: Func GetSystemDir:Str;
4223: Func BrowseDirectory(var AFolderName:str; const DlgText:str; AHelpContext:THelpContext):Boolean;
4224: {$IFDEF WIN32}
4225: Func BrowseComputer(var ComputerName:str;const DlgText:str;AHelpContext:THelpContext):Bool;
4226: Func ShortToLongFileName(const ShortName:Str):Str;
4227: Func ShortToLongPath(const ShortName:Str):Str;
4228: Func LongToShortFileName(const LongName:Str):Str;
4229: Func LongToShortPath(const LongName:Str):Str;
4230: Proc CreateFileLink(const FileName, DisplayName:Str; Folder: Int);
4231: Proc DeleteFileLink(const DisplayName:Str; Folder: Int);
4232: {$ENDIF WIN32}
4233: {$IFNDEF COMPILER3_UP}
4234: Func IsPathDelimiter(const S:Str; Index: Int):Bool;
4235: {$ENDIF}
4236: Func CreateCalculatorForm(AOwner:TComponent;AHelpContext:THelpContext):TJvCalculatorForm
4237: Func CreatePopupCalculator( AOwner : TComponent; ABiDiMode : TBiDiMode) : TWinControl
4238: Func CreatePopupCalculator( AOwner : TComponent) : TWinControl
4239: Proc SetupPopupCalculator(PopupCalc:TWinControl;APrecision Byte; ABeepOnError: Bool)
4240:
4241: //***************************Proc SIRegister_VarHlpr(CL: TPSPascalCompiler);
4242: Proc VariantClear( var V : Variant)
4243: Proc VariantArrayRedim( var V : Variant; High : Int)
4244: Proc VariantCast( const src : Variant; var dst : Variant; vt : Int)
4245: Proc VariantCpy(const src:Variant;var dst:Variant)
4246: Proc VariantAdd(const src:Variant;var dst:Variant)
4247: Proc VariantSub(const src:Variant;var dst:Variant)
4248: Proc VariantMul(const src:Variant;var dst:Variant)
4249: Proc VariantDiv(const src:Variant;var dst:Variant)
4250: Proc VariantMod(const src:Variant;var dst:Variant)
4251: Proc VariantAnd(const src:Variant;var dst:Variant)
4252: Proc VariantOr( const src:Variant;var dst:Variant)
4253: Proc VariantXor(const src:Variant;var dst:Variant)
4254: Proc VariantShl(const src:Variant;var dst:Variant)
4255: Proc VariantShr(const src:Variant;var dst:Variant)
4256: Func VariantAdd2(const V1:Variant; const V2:Variant):Variant
4257: Func VariantSub2(const V1:Variant; const V2:Variant):Variant
4258: Func VariantMul2(const V1:Variant; const V2:Variant):Variant
4259: Func VariantDiv2(const V1:Variant; const V2:Variant):Variant
4260: Func VariantMod2(const V1:Variant; const V2:Variant):Variant
4261: Func VariantAnd2(const V1:Variant; const V2:Variant):Variant
4262: Func VariantOr2( const V1:Variant; const V2:Variant):Variant
4263: Func VariantXor2(const V1: Variant; const V2: Variant): Variant
4264: Func VariantShl2(const V1 Variant; const V2: Variant): Variant
4265: Func VariantShr2(const V1: Variant; const V2: Variant): Variant
4266: Func VariantNot(const V1: Variant) : Variant
4267: Func VariantNeg(const V1: Variant) : Variant
4268: Func VariantGetElement( const V : Variant; i1 : Int) : Variant;
4269: Func VariantGetElement1(const V : Variant; i1, i2 : Int) : Variant;
4270: Func VariantGetElement2(const V : Variant; i1, i2, i3 : Int) : Variant;
4271: Func VariantGetElement3(const V : Variant; i1, i2, i3, i4 : Int) : Variant;
4272: Func VariantGetElement4(const V : Variant; i1, i2, i3, i4, i5 : Int) : Variant;
4273: Proc VariantPutElement(var V : Variant; const data : Variant; i1 : Int);
4274: Proc VariantPutElement1(var V : Variant; const data : Variant; i1, i2 : Int);
4275: Proc VariantPutElement2(var V : Variant; const data : Variant; i1, i2, i3 : Int);
4276: Proc VariantPutElement3(var V: Variant; const data : Variant; i1, i2, i3, i4 : Int);
4277: Proc VariantPutElement4(var V: Variant; const data : Variant; i1, i2, i3, i4, i5 : Int);
4278: end;
4279:
4280: ***************************************unit uPSI_JvgUtils;**************************************
4281: Func IsEven(I: Int):Bool;
4282: Func InchesToPixels(DC: HDC; Value: Single; IsHorizontal:Bool): Int;
4283: Func CentimetersToPixels(DC: HDC; Value: Single; IsHorizontal:Bool): Int;
4284: Proc SwapInt(var I1, I2: Int);
4285: Func Spaces(Count: Int):Str;
4286: Func DupStr(const Str:Str; Count: Int):Str;
4287: Func DupChar(C: Char; Count: Int):Str;
4288: Proc Msg(const AMsg:Str);
4289: Func RectW(R: TRect): Int;
4290: Func RectH(R: TRect): Int;
4291: Func IncColor(AColor: Longint; AOffset: Byte): Longint;
4292: Func DecColor(AColor: Longint; AOffset: Byte): Longint;
4293: Func IsItAFilledBitmap(Bmp: TBitmap):Bool;
4294: Proc DrawTextInRectWithAlign(DC: HDC; R: TRect; const Text:Str;
4295: HAlign: TglHorAlign; VAlign: TglVertAlign; Style: TglTextStyle; Fnt: TFont; Flags: UINT);

4296: Proc DrawTextInRect(DC:HDC;R:TRect;const Text:str;Style:TglTextStyle;Fnt:TFont;Flags:UINT);

4297: Proc ExtTextOutExt(DC: HDC; X, Y: Int; R: TRect; const Text:Str;
4298: Style: TglTextStyle; ADelineated, ASupress3D:Bool; FontColor, DelinColor,HighlightColor,ShadowColor:
TColor; Illumination: TJvgIllumination; Gradient: TJvgGradient; Font: TFont);
4299: Proc DrawBox(DC:HDC;var R:TRect;Style:TglBoxStyle;BackgrColor:Longint;ATransparent: Bool);
4300: Func DrawBoxEx(DC: HDC; ARect: TRect; Borders: TglSides;
4301: BevelInner,BevelOuter:TPanelBevel;Bold:Boolean;BackgrColor:Longint;ATransparent:Bool):TRect;
4302: Proc GradientBox(DC: HDC; R: TRect; Gradient: TJvgGradient;PenStyle, PenWidth: Int);
4303: Proc ChangeBitmapColor(Bitmap: TBitmap; FromColor, ToColor: TColor);
4304: Proc DrawBitmapExt(DC: HDC; { DC - background & result}
4305: SourceBitmap: TBitmap; R: TRect; X, Y: Int; //...X,Y _in_ rect!
4306: BitmapOption: TglWallpaperOption; DrawState: TglDrawState;
4307: ATransparent:Bool; TransparentColor: TColor; DisabledMaskColor: TColor);
4308: Proc CreateBitmapExt(DC: HDC; { DC - background & result}
4309: SourceBitmap: TBitmap; R: TRect; X, Y: Int; //...X,Y _in_ rect!
4310: BitmapOption: TglWallpaperOption; DrawState: TglDrawState;
4311: ATransparent:Bool; TransparentColor: TColor; DisabledMaskColor: TColor);
4312: Proc BringParentWindowToTop(Wnd: TWinControl);
4313: Func GetParentForm(Control: TControl): TForm;
4314: Proc GetWindowImageFrom(Control:TWinContrl;X,Y:Int;ADrawSelf,ADrawChildWindows:Bool;DC:HDC)
4315: Proc GetWindowImage(Control: TWinControl; ADrawSelf, ADrawChildWindows:Bool; DC: HDC);
4316: Proc GetParentImageRect(Control: TControl; Rect: TRect; DC: HDC);
4317: Func CreateRotatedFont(F: TFont; Escapement: Int): HFONT;
4318: Func FindMainWindow(const AWndClass, AWndTitle:Str): THandle;
4319: Proc CalcShadowAndHighlightColors(BaseColor: TColor; Colors: TJvgLabelColors);
4320: Func CalcMathString(AExpression:Str): Single;
4321: Func IIF(AExpression:Bool; IfTrue, IfFalse: Variant): Variant; overload;
4322: Func IIF(AExpression:Bool; const IfTrue, IfFalse:Str):Str; overload;
4323: Func GetTransparentColor(Bitmap: TBitmap; AutoTrColor: TglAutoTransparentColor): TColor;
4324: Proc TypeStringOnKeyboard(const S:Str);
4325: Func NextStringGridCell( Grid: TStringGrid ):Bool;
4326: Proc DrawTextExtAligned(Canvas:TCanvas;const Text:str;R:TRect;Alignment:TglAlignment;WordWrap:Bool;
4327: Proc LoadComponentFromTextFile(Component: TComponent; const FileName:Str);
4328: Proc SaveComponentToTextFile(Component: TComponent; const FileName:Str);
4329: Func ComponentToString(Component: TComponent):Str;
4330: Proc StringToComponent(Component: TComponent; const Value:Str);
4331: Func PlayWaveResource(const ResName:Str):Bool;
4332: Func UserName:Str;
4333: Func ComputerName:Str;
4334: Func CreateIniFileName:Str;
4335: Func ExpandString(const Str:Str; Len: Int):Str;
4336: Func Transliterate(const Str:Str; RusToLat:Bool):Str;
4337: Func IsSmallFonts:Bool;
4338: Func SystemColorDepth: Int;
4339: Func GetFileTypeJ(const FileName:Str): TglFileType;
4340: Func GetFileType( hFile : THandle) : DWORD;
4341: Func FindControlAtPt(Control: TWinControl; Pt: TPoint; MinClass: TClass):TControl;
4342: Func StrPosExt(const Str1, Str2: PChar; Str2Len: DWORD): PChar;
4343:
4344: { **************************************Utility routines of unit classes}
4345: Func LineStart(Buffer, BufPos: PChar): PChar
4346: Func ExtractStrings(Separators,WhiteSpace:TSysCharSet;Content:PChar;Strings:TStrings):Int
4347: Func TestStreamFormat( Stream : TStream) : TStreamOriginalFormat
4348: Proc RegisterClass( AClass : TPersistentClass)
4349: Proc RegisterClasses( AClasses : array of TPersistentClass)
4350: Proc RegisterClassAlias( AClass : TPersistentClass; const Alias :Str)
4351: Proc UnRegisterClass( AClass : TPersistentClass)
4352: Proc UnRegisterClasses( AClasses : array of TPersistentClass)
4353: Proc UnRegisterModuleClasses( Module : HMODULE)
4354: Func FindGlobalComponent( const Name :Str) : TComponent
4355: Func IsUniqueGlobalComponentName( const Name :Str) :Bool
4356: Func InitInheritedComponent( Instance : TComponent; RootAncestor : TClass) :Bool
4357: Func InitComponentRes( const ResName :Str; Instance : TComponent) :Bool
4358: Func ReadComponentRes( const ResName :Str; Instance : TComponent) : TComponent
4359: Func ReadComponentResEx( HInstance : THandle; const ResName :Str) : TComponent
4360: Func ReadComponentResFile( const FileName :Str; Instance : TComponent) : TComponent
4361: Proc WriteComponentResFile(const FileName:Str; Instance : TComponent)
4362: Proc GlobalFixupReferences
4363: Proc GetFixupReferenceNames( Root : TComponent; Names : TStrings)
4364: Proc GetFixupInstanceNames(Root:TComponent;const ReferenceRootName string;Names:TStrings)
4365: Proc RedirectFixupReferences( Root : TComponent; const OldRootName, NewRootName :Str)
4366: Proc RemoveFixupReferences( Root : TComponent; const RootName :Str)
4367: Proc RemoveFixups( Instance : TPersistent)
4368: Func FindNestedComponent( Root : TComponent; const NamePath :Str) : TComponent
4369: Proc BeginGlobalLoading
4370: Proc NotifyGlobalLoading
4371: Proc EndGlobalLoading
4372: Func GetUltimateOwner1( ACollection : TCollection) : TPersistent;
4373: Func GetUltimateOwner( APersistent : TPersistent) : TPersistent;
4374: // AddTypeS('TWndMethod', 'Proc (var Message : TMessage)
4375: //Func MakeObjectInstance( Method : TWndMethod) : Pointer
4376: Proc FreeObjectInstance( ObjectInstance : Pointer)
4377: // Func AllocateHWnd( Method : TWndMethod) : HWND
4378: Proc DeallocateHWnd( Wnd : HWND)
4379: Func AncestorIsValid( Ancestor:TPersistent; Root, RootAncestor: TComponent) :Bool
4380: *****************************unit uPSI_SqlTimSt and DB;*************************************
4381: Proc VarSQLTimeStampCreate4( var aDest : Variant; const ASQLTimeStamp : TSQLTimeStamp);
4382: Func VarSQLTimeStampCreate3: Variant;
4383: Func VarSQLTimeStampCreate2( const AValue :Str) : Variant;

4384: Func VarSQLTimeStampCreate1( const AValue : TDateTime) : Variant;

4385: Func VarSQLTimeStampCreate( const ASQLTimeStamp : TSQLTimeStamp) : Variant;
4386: Func VarSQLTimeStamp : TVarType
4387: Func VarIsSQLTimeStamp( const aValue : Variant) :Bool;
4388: Func LocalToUTC( var TZInfo : TTimeZone; var Value : TSQLTimeStamp): TSQLTimeStamp //beta
4389: Func UTCToLocal( var TZInfo : TTimeZone; var Value : TSQLTimeStamp): TSQLTimeStamp //beta
4390: Func VarToSQLTimeStamp( const aValue : Variant) : TSQLTimeStamp
4391: Func SQLTimeStampToStr( const Format :Str; DateTime : TSQLTimeStamp):Str
4392: Func SQLDayOfWeek( const DateTime : TSQLTimeStamp) : Int
4393: Func DateTimeToSQLTimeStamp( const DateTime : TDateTime) : TSQLTimeStamp
4394: Func SQLTimeStampToDateTime( const DateTime : TSQLTimeStamp) : TDateTime
4395: Func TryStrToSQLTimeStamp( const S :Str; var TimeStamp : TSQLTimeStamp): Bool
4396: Func StrToSQLTimeStamp( const S :Str) : TSQLTimeStamp
4397: Proc CheckSqlTimeStamp( const ASQLTimeStamp : TSQLTimeStamp)
4398: Func ExtractFieldName( const Fields :Str; var Pos : Int) :Str;
4399: Func ExtractFieldName( const Fields : WideString; var Pos : Int) : WideString;
4400: //'Proc RegisterFields( const FieldClasses : array of TFieldClass)
4401: Proc DatabaseError( const Message : WideString; Component : TComponent)
4402: Proc DatabaseErrorFmt(const Message:WIdeString;const Args:array of const;Component:TComponent)
4403: Proc DisposeMem( var Buffer, Size : Int)
4404: Func BuffersEqual( Buf1, Buf2 : Pointer; Size : Int) :Bool
4405: Func GetFieldProperty(DataSet:TDataSet;Control:TComponent;const FieldName:WideStr):TField
4406: Func VarTypeToDataType( VarType : Int) : TFieldType
4407: *******************************unit JvStrings;*****************************************
4408: {template functions}
4409: Func ReplaceFirst(const SourceStr, FindStr, ReplaceStr:Str):Str;
4410: Func ReplaceLast(const SourceStr, FindStr, ReplaceStr:Str):Str;
4411: Func InsertLastBlock(var SourceStr:Str; BlockStr:Str):Bool;
4412: Func RemoveMasterBlocks(const SourceStr:Str):Str;
4413: Func RemoveFields(const SourceStr:Str):Str;
4414: {http functions}
4415: Func URLEncode(const Value:Ansistr):Ansistr;// Converts string To A URLEncoded string
4416: Func URLDecode(const Value:Ansistr):Ansistr;// Converts string From A URLEncoded string
4417: {set functions}
4418: Proc SplitSet(AText:Str; AList: TStringList);
4419: Func JoinSet(AList: TStringList):Str;
4420: Func FirstOfSet(const AText:Str):Str;
4421: Func LastOfSet(const AText:Str):Str;
4422: Func CountOfSet(const AText:Str): Int;
4423: Func SetRotateRight(const AText:Str):Str;
4424: Func SetRotateLeft(const AText:Str):Str;
4425: Func SetPick(const AText:Str; AIndex: Int):Str;
4426: Func SetSort(const AText:Str):Str;
4427: Func SetUnion(const Set1, Set2:Str):Str;
4428: Func SetIntersect(const Set1, Set2:Str):Str;
4429: Func SetExclude(const Set1, Set2:Str):Str;
4430: {replace any <,> etc by < >}
4431: Func XMLSafe(const AText:Str):Str;
4432: {simple hash, Result can be used in Encrypt}
4433: Func Hash(const AText:Str): Int;
4434: { Base64 encode and decode a string }
4435: Func B64Encode(const S: Ansistr): Ansistr;
4436: Func B64Decode(const S: Ansistr): Ansistr;
4437: {Basic encryption from a Borland Example}
4438: Func Encrypt(const InString: Ansistr; StartKey, MultKey, AddKey: Int): Ansistr;
4439: Func Decrypt(const InString: Ansistr; StartKey, MultKey, AddKey: Int): Ansistr;
4440: {Using Encrypt and Decrypt in combination with B64Encode and B64Decode}
4441: Func EncryptB64(const InString:Ansistr; StartKey, MultKey, AddKey: Int): Ansistr;
4442: Func DecryptB64(const InString:Ansistr; StartKey, MultKey, AddKey: Int): Ansistr;
4443: Proc CSVToTags(Src, Dst: TStringList);
4444: // converts a csv list to a tagged string list
4445: Proc TagsToCSV(Src, Dst: TStringList);
4446: // converts a tagged string list to a csv list
4447: // only fieldnames from the first record are scanned ib the other records
4448: Proc ListSelect(Src, Dst: TStringList; const AKey, AValue:Str);
4449: {selects akey=avalue from Src and returns recordset in Dst}
4450: Proc ListFilter(Src: TStringList; const AKey, AValue:Str);
4451: {filters Src for akey=avalue}
4452: Proc ListOrderBy(Src: TStringList; const AKey:Str; Numeric: Bool);
4453: {orders a tagged Src list by akey}
4454: Func PosStr(const FindString, SourceString:Str;
4455: StartPos: Int = 1): Int;
4456: { PosStr searches the first occurrence of a substring FindString in a string
4457: given by SourceString with case sensitivity (upper and lower case characters
4458: are differed). This Func returns the index value of the first character
4459: of a specified substring from which it occurs in a given string starting with
4460: StartPos character index. If a specified substring is not found Q_PosStr
4461: returns zero. author of algorithm is Peter Morris (UK) (Faststrings from www.torry.ru). }
4462: Func PosStrLast(const FindString, SourceString:Str): Int;
4463: {finds the last occurance}
4464: Func LastPosChar(const FindChar: Char; SourceString:Str): Int;
4465: Func PosText(const FindString, SourceString:Str; StartPos: Int = 1): Int;
4466: { PosText searches the first occurrence of a substring FindString in a string
4467: given by SourceString without case sensitivity (upper and lower case characters are not differed). This
Func returns index value of first character of a specified substring from which it occurs in a given
string starting with Start
4468: Func PosTextLast(const FindString, SourceString:Str): Int;
4469: {finds last occurance}
4470: Func NameValuesToXML(const AText:Str):Str;

4471: {$IFDEF MSWINDOWS}

4472: Proc LoadResourceFile(AFile:Str; MemStream: TMemoryStream);
4473: {$ENDIF MSWINDOWS}
4474: Proc DirFiles(const ADir, AMask:Str; AFileList: TStringList);
4475: Proc RecurseDirFiles(const ADir:Str; var AFileList: TStringList);
4476: Proc RecurseDirProgs(const ADir:Str; var AFileList: TStringList);
4477: Proc SaveString(const AFile, AText:Str);
4478: Proc SaveStringasFile( const AFile, AText :Str)
4479: Func LoadStringJ(const AFile:Str):Str;
4480: Func LoadStringofFile( const AFile :Str) :Str
4481: Proc SaveStringtoFile( const AFile, AText :Str)
4482: Func LoadStringfromFile( const AFile :Str) :Str
4483: Func HexToColor(const AText:Str): TColor;
4484: Func UppercaseHTMLTags(const AText:Str):Str;
4485: Func LowercaseHTMLTags(const AText:Str):Str;
4486: Proc GetHTMLAnchors(const AFile:Str; AList: TStringList);
4487: Func RelativePath(const ASrc, ADst:Str):Str;
4488: Func GetToken(var Start: Int; const SourceText:Str):Str;
4489: Func PosNonSpace(Start: Int; const SourceText:Str): Int;
4490: Func PosEscaped(Start: Int; const SourceText, FindText:Str; EscapeChar: Char): Int;
4491: Func DeleteEscaped(const SourceText:Str; EscapeChar: Char):Str;
4492: Func BeginOfAttribute(Start: Int; const SourceText:Str): Int;
4493: // parses the beginning of an attribute: space + alpha character
4494: Func ParseAttribute(var Start:Int;const SourceText:str; var AName,AValue:str):Bool;
4495: //parses a name="value" attrib from Start;returns 0 when not found or else position behind attribute
4496: Proc ParseAttributes(const SourceText:Str; Attributes: TStrings);
4497: // parses all name=value attributes to the attributes TStringList
4498: Func HasStrValue(const AText, AName:Str; var AValue:Str):Bool;
4499: // checks if a name="value" pair exists and returns any value
4500: Func GetStrValue(const AText, AName, ADefault:Str):Str;
4501: // retrieves string value from a line like:
4502: // name="jan verhoeven" email="jan1 dott verhoeven att wxs dott nl"
4503: // returns ADefault when not found
4504: Func GetHTMLColorValue(const AText, AName:Str; ADefault: TColor):TColor;
4505: // same for a color
4506: Func GetIntValue(const AText, AName:Str; ADefault: Int): Int;
4507: // same for an Int
4508: Func GetFloatValue(const AText, AName:Str; ADefault: Extended):Extended;
4509: // same for a float
4510: Func GetBoolValue(const AText, AName:Str):Bool;
4511: // same for Boolean but without default
4512: Func GetValue(const AText, AName:Str):Str;
4513: //retrieves string value from a line like:name="jan verhoeven" email="jan1 verhoeven att wxs dott nl"
4514: Proc SetValue(var AText:Str; const AName, AValue:Str);
4515: // sets a string value in a line
4516: Proc DeleteValue(var AText:Str; const AName:Str);
4517: // deletes a AName="value" pair from AText
4518: Proc GetNames(AText:Str; AList: TStringList);
4519: // get a list of names from a string with name="value" pairs
4520: Func GetHTMLColor(AColor: TColor):Str;
4521: // converts a color value to the HTML hex value
4522: Func BackPosStr(Start: Int; const FindString, SourceString:Str): Int;
4523: // finds a string backward case sensitive
4524: Func BackPosText(Start: Int; const FindString, SourceString:Str): Int;
4525: // finds a string backward case insensitive
4526: Func PosRangeStr(Start: Int; const HeadString, TailString, SourceString:Str;
4527: var RangeBegin: Int; var RangeEnd: Int):Bool;
4528: // finds a text range, e.g. <TD>....</TD> case sensitive
4529: Func PosRangeText(Start: Int; const HeadString, TailString, SourceString:Str;
4530: var RangeBegin: Int; var RangeEnd: Int):Bool;
4531: // finds a text range, e.g. <TD>....</td> case insensitive
4532: Func BackPosRangeStr(Start: Int; const HeadString, TailString, SourceString:Str;
4533: var RangeBegin: Int; var RangeEnd: Int):Bool;
4534: // finds a text range backward, e.g. <TD>....</TD> case sensitive
4535: Func BackPosRangeText(Start: Int; const HeadString, TailString, SourceString:str;
4536: var RangeBegin: Int; var RangeEnd: Int):Bool;
4537: // finds a text range backward, e.g. <TD>....</td> case insensitive
4538: Func PosTag(Start: Int; SourceString:Str; var RangeBegin: Int;
4539: var RangeEnd: Int):Bool;
4540: // finds a HTML or XML tag: <....>
4541: Func InnerTag(Start: Int; const HeadString, TailString, SourceString:Str;
4542: var RangeBegin: Int; var RangeEnd: Int):Bool;
4543: // finds the innertext between opening and closing tags
4544: Func Easter(NYear: Int): TDateTime;
4545: // returns the easter date of a year.
4546: Func GetWeekNumber(Today: TDateTime):Str;
4547: //gets a datecode. Returns year and weeknumber in format: YYWW
4548: Func ParseNumber(const S:Str): Int;
4549: // parse number returns the last position, starting from 1
4550: Func ParseDate(const S:Str): Int;
4551: // parse a SQL style data string from positions 1, // starts and ends with #
4552:
4553: **************************unit JvJCLUtils;************************************
4554: PathDelim','String').SetString( '\;
4555: DriveDelim','String').SetString( ':;
4556: PathSep','String').SetString( ';;
4557: AllFilesMask','String').SetString( '*.*;
4558: PathDelim','String').SetString( '/;
4559: AllFilesMask','String').SetString( '*;

4560: NullHandle','LongInt').SetInt( 0);

4561: USDecimalSeparator','String').SetString( '.;
4562: ClassN(CL.FindClass('TOBJECT'),'EJvConvertError;
4563: TypeS('TFileTime', 'Int;
4564: // TypeS('TFormatSettings', 'record DecimalSeparator : Char; end;
4565: Func SendRectMessage(Handle: THandle; Msg : Int; wParam : longint; var R : TRect): Int;
4566: //Func SendStructMessage(Handle:THandle;Msg:Int;wParam:WPARAM;var Data): Int;
4567: Func ReadCharsFromStream(Stream: TStream; var Buf:array of PChar;BufSize:Int):Int;
4568: Func WriteStringToStream(Stream: TStream; const Buf: Ansistr;BufSize:Int): Int;
4569: Func UTF8ToString( const S : UTF8String) :Str;
4570: //ConstantN('DefaultDateOrder','').SetString('doDMY;
4571: ConstantN('CenturyOffset','Byte').SetUInt( 60);
4572:
4573: Func VarIsInt(Value: Variant):Bool;
4574: // VarIsInt returns VarIsOrdinal-[varBoolean]
4575: {PosIdx returns index of first appearance of SubStr in Str.search starts at index "Index".}
4576: Func PosIdx(const SubStr, S:Str; Index: Int = 0): Int;
4577: Func PosIdxW(const SubStr, S: WideString; Index: Int = 0): Int;
4578: Func PosLastCharIdx(Ch: Char; const S:Str; Index: Int = 0): Int;
4579: { GetWordOnPos returns Word from string, S, on the cursor position, P}
4580: Func GetWordOnPos(const S:Str; const P: Int):Str;
4581: Func GetWordOnPosW(const S: WideString; const P: Int): WideString;
4582: Func GetWordOnPos2(const S:Str; P: Int; var iBeg, iEnd: Int):Str;
4583: Func GetWordOnPos2W(const S: WideString; P: Int; var iBeg, iEnd: Int): WideString;
4584: { GetWordOnPosEx working like GetWordOnPos function, but
4585: also returns Word position in iBeg, iEnd variables }
4586: Func GetWordOnPosEx(const S:Str; const P: Int; var iBeg, iEnd: Int):Str;
4587: Func GetWordOnPosExW(const S: WideString; const P: Int; var iBeg, iEnd: Int): WideString;
4588: Func GetNextWordPosEx(const Text:Str; StartIndex: Int; var iBeg, iEnd: Int):Str;
4589: Func GetNextWordPosExW(const Text:WideString;StartIndex:Int; var iBeg,iEnd:Int):WideString;
4590: Proc GetEndPosCaret(const Text:Str; CaretX, CaretY: Int; var X, Y: Int);
4591: { GetEndPosCaret returns the caret position of the last char. For the position
4592: after the last char of Text you must add 1 to the returned X value. }
4593: Proc GetEndPosCaretW(const Text: WideString;CaretX,CaretY:Int;var X,Y:Int);
4594: { GetEndPosCaret returns the caret position of the last char. For the position
4595: after the last char of Text you must add 1 to the returned X value. }
4596: { SubStrBySeparator returns substring from string, S, separated with Separator string}
4597: Func SubStrBySeparator(const S:str;const Index:Int;const Separatr:str;StartIndex:Int=1):str;
4598: Func SubStrBySeparatorW(const S:WideString;const Index:Int;const
Separator:WideString;StartIndex:Int:WideString;
4599: { SubStrEnd same to previous Func but Index numerated from the end of string }
4600: Func SubStrEnd(const S:Str; const Index: Int; const Separator:Str):Str;
4601: { SubWord returns next Word from string, P, and offsets Pointer to the end of Word, P2 }
4602: Func SubWord(P: PChar; var P2: PChar):Str;
4603: Func CurrencyByWord(Value: Currency):Str;
4604: { GetLineByPos returns Line number,there symbol Pos is pointed.Lines separated with #13 symbol}
4605: Func GetLineByPos(const S:Str; const Pos: Int): Int;
4606: { GetXYByPos is same as GetLineByPos, but returns X position in line as well}
4607: Proc GetXYByPos(const S:Str; const Pos: Int; var X, Y: Int);
4608: Proc GetXYByPosW(const S: WideString; const Pos: Int; var X, Y: Int);
4609: { ReplaceString searches for all substrings, OldPattern,
4610: in a string, S, and replaces them with NewPattern }
4611: Func ReplaceString(S:Str;const OldPattern,NewPattern:str;StartIndex:Int= 1):str;
4612: Func ReplaceStringW(S:WideString;const OldPattern,NewPattern:WideString;StartIndex:Int=1):WideString;
4613: { ConcatSep concatenate S1 and S2 strings with Separator. if S ='' then separator not included}
4614: Func ConcatSep(const S1, S2, Separator:Str):Str; {$IFDEF SUPPORTS_INLINE} inline; {$ENDIF SUPPORTS_INLINE}
4615: { ConcatLeftSep is same to previous function, but strings concatenate right to left }
4616: Func ConcatLeftSep(const S1,S2, Separator:str):str;{$IFDEF SUPPORTS_INLINE}inline;{$ENDIF SUPPORTS_INLINE}
4617: { Next 4 Func for russian chars transliterating.
4618: This functions are needed because Oem2Ansi and Ansi2Oem functions sometimes suck }
4619: Proc Dos2Win(var S: Ansistr);
4620: Proc Win2Dos(var S: Ansistr);
4621: Func Dos2WinRes(const S: Ansistr): Ansistr; inline; {$ENDIF SUPPORTS_INLINE}
4622: Func Win2DosRes(const S: Ansistr): Ansistr; inline; {$ENDIF SUPPORTS_INLINE}
4623: Func Win2Koi(const S: Ansistr): Ansistr;
4624: { FillString fills the string Buffer with Count Chars }
4625: Proc FillString(var Buffer:Str; Count: Int; const Value: Char); overload;
4626: Proc FillString1(var Buffer:Str; StartIndex,Count:Int; const Value: Char);overload;
4627: { MoveString copies Count Chars from Source to Dest }
4628: Proc MoveString(const Source:Str; var Dest:Str; Count: Int); {$IFDEF SUPPORTS_INLINE} inline; {$ENDIF
SUPPORTS_INLINE} overload;
4629: Proc MoveString1(const Source:Str; SrcStartIdx: Int; var Dest:Str;
4630: DstStartIdx: Int;Count:Int);{$IFDEF SUPPORTS_INLINE} inline;{$ENDIF SUPPORTS_INLINE}overload;
4631: { FillWideChar fills Buffer with Count WideChars (2 Bytes) }
4632: Proc FillWideChar(var Buffer; Count: Int; const Value: WideChar);
4633: { MoveWideChar copies Count WideChars from Source to Dest }
4634: Proc MoveWideChar(const Source;var Dest;Count:Int);{$IFDEF SUPPORTS_INLINE}inline;{$ENDIF SUPPORTS_INLINE}
4635: { FillNativeChar fills Buffer with Count NativeChars }
4636: Proc FillNativeChar(var Buffer; Count: Int; const Value: Char);// D2009 internal error {$IFDEF
SUPPORTS_INLINE} inline; {$ENDIF SUPPORTS_INLINE}
4637: { MoveWideChar copies Count WideChars from Source to Dest }
4638: Proc MoveNativeChar(const Source; var Dest; Count: Int);// D2009 internal error {$IFDEF SUPPORTS_INLINE}
inline; {$ENDIF SUPPORTS_INLINE}
4639: { IsSubString() compares the sub string to the string. Indices are 1th based. }
4640: Func IsSubString(const S:Str; StartIndex: Int; const SubStr:Str):Bool;
4641: { Spaces returns string consists on N space chars }
4642: Func Spaces(const N: Int):Str;
4643: { AddSpaces adds spaces to string S, if its Length is smaller than N }
4644: Func AddSpaces(const S:Str; const N: Int):Str;

4645: Func SpacesW(const N: Int): WideString;

4646: Func AddSpacesW(const S: WideString; const N: Int): WideString;
4647: { Func LastDateRUS for russian users only }
4648: { returns date relative to current date: 'äâà äíÿ íàçàä' }
4649: Func LastDateRUS(const Dat: TDateTime):Str;
4650: { CurrencyToStr format Currency, Cur, using ffCurrency float format}
4651: Func CurrencyToStr(const Cur: Currency):Str;
4652: { HasChar returns True, if Char, Ch, contains in string, S }
4653: Func HasChar(const Ch: Char; const S:Str):Bool;
4654: Func HasCharW(const Ch: WideChar; const S: WideString):Bool; inline; {$ENDIF SUPPORTS_INLINE}
4655: Func HasAnyChar(const Chars:Str; const S:Str):Bool;
4656: {$IFNDEF COMPILER12_UP}
4657: Func CharInSet(const Ch: AnsiChar;const SetOfChar:TSysCharSet):Boolean;inline;{$ENDIF SUPPORTS_INLINE}
4658: {$ENDIF ~COMPILER12_UP}
4659: Func CharInSetW(const Ch: WideChar;const SetOfChar: TSysCharSet):Boolean;inline; {$ENDIF SUPPORTS_INLINE}
4660: Func CountOfChar(const Ch: Char; const S:Str): Int;
4661: Func DefStr(const S:str; Default:str):str; {$IFDEF SUPPORTS_INLINE} inline;{$ENDIF SUPPORTS_INLINE}
4662: { StrLICompW2 is a faster replacement for JclUnicode.StrLICompW }
4663: Func StrLICompW2(S1, S2: PWideChar; MaxLen: Int): Int;
4664: Func StrPosW(S, SubStr: PWideChar): PWideChar;
4665: Func StrLenW(S: PWideChar): Int;
4666: Func TrimW(const S: WideString):WideString;{$IFDEF SUPPORTS_INLINE} inline;{$ENDIF SUPPORTS_INLINE}
4667: Func TrimLeftW(const S:WideString):WideString;{$IFDEF SUPPORTS_INLINE} inline;{$ENDIF SUPPORTS_INLINE}
4668: Func TrimRightW(const S: WideString): WideString; inline; {$ENDIF SUPPORTS_INLINE}
4669: TPixelFormat', '( pfDevice, pf1bit, pf4bit, pf8bit, pf24bit )
4670: TMappingMethod', '( mmHistogram, mmQuantize, mmTrunc784, mmTrunc666, mmTripel, mmGrayscale )
4671: Func GetBitmapPixelFormat( Bitmap : TBitmap) : TPixelFormat
4672: Func GetPaletteBitmapFormat( Bitmap : TBitmap) : TPixelFormat
4673: Proc SetBitmapPixelFormat(Bitmap: TBitmap;PixelFormat:TPixelFormat;Method:TMappingMethod)
4674: Func BitmapToMemoryStream(Bitmap:TBitmap;PixelFormat:TPixelFormat;Method:TMappingMethod):TMemoryStream;
4675: Proc GrayscaleBitmap( Bitmap : TBitmap)
4676: Func BitmapToMemory( Bitmap : TBitmap; Colors : Int) : TStream
4677: Proc SaveBitmapToFile( const Filename :Str; Bitmap : TBitmap; Colors : Int)
4678: Func ScreenPixelFormat : TPixelFormat
4679: Func ScreenColorCount : Int
4680: Proc TileImage( Canvas : TCanvas; Rect : TRect; Image : TGraphic)
4681: Func ZoomImage( ImageW, ImageH, MaxW, MaxH : Int; Stretch :Bool) : TPoint
4682: // SIRegister_TJvGradient(CL);
4683:
4684: {**************************************** files routines}
4685: Proc SetDelimitedText(List: TStrings; const Text:Str; Delimiter: Char);
4686: const
4687: {$IFDEF MSWINDOWS}
4688: DefaultCaseSensitivity = False;
4689: {$ENDIF MSWINDOWS}
4690: {$IFDEF UNIX}
4691: DefaultCaseSensitivity = True;
4692: {$ENDIF UNIX}
4693: { GenTempFileName returns temporary file name on
4694: drive, there FileName is placed }
4695: Func GenTempFileName(FileName:Str):Str;
4696: { GenTempFileNameExt same to previous function, but
4697: returning filename has given extension, FileExt }
4698: Func GenTempFileNameExt(FileName:Str; const FileExt:Str):Str;
4699: { ClearDir clears folder Dir }
4700: Func ClearDir(const Dir:Str):Bool;
4701: { DeleteDir clears and than delete folder Dir }
4702: Func DeleteDir(const Dir:Str):Bool;
4703: { FileEquMask returns True if file, FileName, is compatible with given dos file mask, Mask }
4704: Func FileEquMask(FileName,Mask:TFileName;CaseSensitive:Boolean=DefaultCaseSensitivity):Bool;
4705: { FileEquMasks returns True if file, FileName, is compatible with given Masks.
4706: Masks must be separated with SepPath (MSW: ';' / UNIX: ':') }
4707: Func FileEquMasks(FileName, Masks: TFileName;
4708: CaseSensitive:Bool = DefaultCaseSensitivity):Bool;
4709: Func DeleteFiles(const Folder: TFileName; const Masks:Str):Bool;
4710: {$IFDEF MSWINDOWS}
4711: { LZFileExpand expand file, FileSource,
4712: into FileDest. Given file must be compressed, using MS Compress program }
4713: Func LZFileExpand(const FileSource, FileDest:Str):Bool;
4714: {$ENDIF MSWINDOWS}
4715: { FileGetInfo fills SearchRec record for specified file attributes}
4716: Func FileGetInfo(FileName: TFileName; var SearchRec: TSearchRec):Bool;
4717: { HasSubFolder returns True, if folder APath contains other folders }
4718: Func HasSubFolder(APath: TFileName):Bool;
4719: { IsEmptyFolder returns True, if there are no files or
4720: folders in given folder, APath}
4721: Func IsEmptyFolder(APath: TFileName):Bool;
4722: { AddSlash returns string with added slash Char to Dir parameter, if needed }
4723: Func AddSlash(const Dir: TFileName):Str; {$IFDEF SUPPORTS_INLINE} inline; {$ENDIF SUPPORTS_INLINE}
4724: { AddPath returns FileName with Path, if FileName not contain any path }
4725: Func AddPath(const FileName, Path: TFileName): TFileName;
4726: Func AddPaths(const PathList, Path:Str):Str;
4727: Func ParentPath(const Path: TFileName): TFileName;
4728: Func FindInPath(const FileName, PathList:Str): TFileName;
4729: { DeleteReadOnlyFile clears R/O file attribute and delete file }
4730: Func DeleteReadOnlyFile(const FileName: TFileName):Bool;
4731: { HasParam returns True, if program running with specified parameter, Param }
4732: Func HasParam(const Param:Str):Bool;
4733: Func HasSwitch(const Param:Str):Bool;

4734: Func Switch(const Param:Str):Str;

4735: { ExePath returns ExtractFilePath(ParamStr(0)) }
4736: Func ExePath: TFileName; {$IFDEF SUPPORTS_INLINE} inline; {$ENDIF SUPPORTS_INLINE}
4737: Func CopyDir(const SourceDir, DestDir: TFileName):Bool;
4738: //Func FileTimeToDateTime(const FT: TFileTime): TDateTime;
4739: Proc FileTimeToDosDateTimeDWord(const FT: TFileTime; out Dft: DWORD);
4740: Func MakeValidFileName(const FileName: TFileName; ReplaceBadChar: Char): TFileName;
4741: {**** Graphic routines }
4742: { IsTTFontSelected returns True, if True Type font is selected in specified device context }
4743: Func IsTTFontSelected(const DC: HDC):Bool;
4744: Func KeyPressed(VK: Int):Bool;
4745: Func isKeypressed:Bool; //true if key on memo2 (shell output) is pressed
4746: { TrueInflateRect inflates rect in other method, than InflateRect API Func }
4747: Func TrueInflateRect(const R: TRect; const I: Int): TRect;
4748: {**** Color routines }
4749: Proc RGBToHSV(R, G, B: Int; var H, S, V: Int);
4750: Func RGBToBGR(Value:Card):Card;
4751: //Func ColorToPrettyName(Value: TColor):Str;
4752: //Func PrettyNameToColor(const Value:Str): TColor;
4753: {**** other routines }
4754: Proc SwapInt(var Int1, Int2:Int);{$IFDEF SUPPORTS_INLINE} inline;{$ENDIF SUPPORTS_INLINE}
4755: Func IntPower(Base, Exponent:Int): Int;
4756: Func ChangeTopException(E: TObject):TObject;//Linux version writes error message to ErrOutput
4757: Func StrToBool(const S:Str):Bool;
4758: Func Var2Type(V: Variant; const DestVarType: Int): Variant;
4759: Func VarToInt(V: Variant): Int;
4760: Func VarToFloat(V: Variant): Double;
4761: {following functions are not documented cause not work properly sometimes,so do not use them}
4762: // (rom) ReplaceStrings1, GetSubStr removed
4763: Func GetLongFileName(const FileName:Str):Str;
4764: Func FileNewExt(const FileName, NewExt: TFileName): TFileName;
4765: Func GetParameter:Str;
4766: Func GetComputerID:Str;
4767: Func GetComputerName:Str;
4768: {**** string routines }
4769: { ReplaceAllStrings searches for all substrings, Words,
4770: in a string, S, and replaces them with Frases with the same Index. }
4771: Func ReplaceAllStrings(const S:Str; Words, Frases: TStrings):Str;
4772: { ReplaceStrings searches the Word in a string, S, on PosBeg position,
4773: in the list, Words, and if founds, replaces this Word with string from another list,Frases, with same
Index, and then update NewSelStart variable }
4774: Func ReplaceStrings(const S:str;PosBeg,Len:Int;Words,Frases:TStrings;var NewSelStart:Int):str;
4775: { CountOfLines calculates the lines count in a string, S,
4776: each line must be separated from another with CrLf sequence }
4777: Func CountOfLines(const S:Str): Int;
4778: { DeleteLines deletes all lines from strings which in the words, words.
4779: The word of will be deleted from strings. }
4780: Proc DeleteOfLines(Ss: TStrings; const Words: array of string);
4781: { DeleteEmptyLines deletes all empty lines from strings, Ss.
4782: Lines contained only spaces also deletes. }
4783: Proc DeleteEmptyLines(Ss: TStrings);
4784: { SQLAddWhere addes or modifies existing where-statement, where,
4785: to the strings, SQL. Note: If strings SQL allready contains where-statement,
4786: it must be started on the begining of any line }
4787: Proc SQLAddWhere(SQL: TStrings; const Where:Str);
4788: {**** files routines - }
4789: {$IFDEF MSWINDOWS}
4790: { ResSaveToFile save resource named as Name with Typ type into file FileName.
4791: Resource can be compressed using MS Compress program}
4792: Func ResSaveToFile(const Typ,Name:str;const Compressed:Bool;const FileName:str):Bool;
4793: Func ResSaveToFileEx(Instance:HINST;Typ,Name:PChar;const Compressed:Boolean;const FileName:str):Bool;
4794: Func ResSaveToString(Instance: HINST;const Typ,Name:str; var S:str):Boolean;
4795: {$ENDIF MSWINDOWS}
4796: { IniReadSection read section, Section, from ini-file,
4797: IniFileName, into strings, Ss.This Func reads ALL strings from specified section.
4798: Note: TIninFile.ReadSection Func reads only strings with '=' symbol.}
4799: Func IniReadSection(const IniFileName:TFileName;const Section:str; Ss: TStrings): Bool;
4800: { LoadTextFile load text file, FileName, into string }
4801: Func LoadTextFile(const FileName: TFileName):Str;
4802: Proc SaveTextFile(const FileName: TFileName; const Source:Str);
4803: {ReadFolder reads fileslist from diskfolder,Folder,that are equal to mask,Mask,into strings, FileList}
4804: Func ReadFolder(const Folder, Mask: TFileName; FileList: TStrings): Int;
4805: Func ReadFolders(const Folder: TFileName; FolderList: TStrings): Int;
4806: { RATextOut same with TCanvas.TextOut procedure,but can clipping drawing with rectangle,RClip.}
4807: Proc RATextOut(Canvas: TCanvas; const R, RClip: TRect; const S:Str);
4808: { RATextOutEx same with RATextOut function, but can calculate needed height for correct output}
4809: Func RATextOutEx(Canvas:TCanvas;const R,RClip:TRect;const S:str;const CalcHeight:Bool):Int;
4810: { RATextCalcHeight calculate needed height for
4811: correct output, using RATextOut or RATextOutEx functions }
4812: Func RATextCalcHeight(Canvas: TCanvas; const R: TRect; const S:Str): Int;
4813: { Cinema draws some visual effect }
4814: Proc Cinema(Canvas: TCanvas; rS {Source}, rD {Dest}: TRect);
4815: { Roughed fills rect with special 3D pattern }
4816: Proc Roughed(ACanvas: TCanvas; const ARect: TRect; const AVert:Bool);
4817: { BitmapFromBitmap creates new small bitmap from part of source bitmap, SrcBitmap, with specified width
height,AWidth,AHeight and placed on a specified Index,Index in source bitmap }
4818: Func BitmapFromBitmap(SrcBitmap: TBitmap; const AWidth, AHeight, Index: Int): TBitmap;
4819: { TextWidth calculate text with for writing using standard desktop font }
4820: Func TextWidth(const AStr:Str): Int;

4821: { TextHeight calculate text height for writing using standard desktop font }
4822: Func TextHeight(const AStr:Str): Int;
4823: Proc SetChildPropOrd(Owner: TComponent; const PropName:Str; Value: Longint);
4824: Proc Error(const Msg:Str);
4825: Proc ItemHtDrawEx(Canvas:TCanvas;Rect:TRect;const State:TOwnerDrawState;const Text:str;
4826: const HideSelColor:Bool; var PlainItem:Str; var Width: Int; CalcWidth:Bool);
4827: {ex.Text parameter:'Item 1bolditalic ITALIC <c:Red>red<c:Green>green<c:blue>blue'}
4828: Func ItemHtDraw(Canvas: TCanvas; Rect: TRect;
4829: const State: TOwnerDrawState; const Text:Str; const HideSelColor:Bool):Str;
4830: Func ItemHtWidth(Canvas: TCanvas; Rect: TRect;
4831: const State: TOwnerDrawState; const Text:Str; const HideSelColor:Bool): Int;
4832: Func ItemHtPlain(const Text:Str):Str;
4833: { ClearList - clears list of TObject }
4834: Proc ClearList(List: TList);
4835: Proc MemStreamToClipBoard(MemStream: TMemoryStream; const Format: Word);
4836: Proc ClipBoardToMemStream(MemStream: TMemoryStream; const Format: Word);
4837: { RTTI support }
4838: Func GetPropType(Obj: TObject; const PropName:Str): TTypeKind;
4839: Func GetPropStr(Obj: TObject; const PropName:Str):Str;
4840: Func GetPropOrd(Obj: TObject; const PropName:Str): Int;
4841: Func GetPropMethod(Obj: TObject; const PropName:Str): TMethod;
4842: Proc PrepareIniSection(Ss: TStrings);
4843: {following functions are not documented because they are don't work properly,so don't use them}
4844: // (rom) from JvBandWindows to make it obsolete
4845: Func PointL(const X, Y: Longint): TPointL; {$IFDEF SUPPORTS_INLINE} inline; {$ENDIF SUPPORTS_INLINE}
4846: // (rom) from JvBandUtils to make it obsolete
4847: Func iif(const Test:Bool; const ATrue, AFalse: Variant): Variant;
4848: Proc CopyIconToClipboard(Icon: TIcon; BackColor: TColor);
4849: Func CreateIconFromClipboard: TIcon;
4850: { begin JvIconClipboardUtils } { Icon clipboard routines }
4851: Func CF_ICON: Word;
4852: Proc AssignClipboardIcon(Icon: TIcon);
4853: { Real-size icons support routines (32-bit only) }
4854: Proc GetIconSize(Icon: HICON; var W, H: Int);
4855: Func CreateRealSizeIcon(Icon: TIcon): HICON;
4856: Proc DrawRealSizeIcon(Canvas: TCanvas; Icon: TIcon; X, Y: Int);
4857: {end JvIconClipboardUtils }
4858: Func CreateScreenCompatibleDC: HDC;
4859: Func InvalidateRect(hWnd: HWND; const lpRect:TRect; bErase:BOOL):BOOL; overload;{$IFDEF SUPPORTS_INLINE}
inline; {$ENDIF}
4860: Func InvalidateRect(hWnd: HWND; lpRect: PRect; bErase: BOOL): BOOL; overload;
4861: { begin JvRLE } // (rom) changed API for inclusion in JCL
4862: Proc RleCompressTo(InStream, OutStream: TStream);
4863: Proc RleDecompressTo(InStream, OutStream: TStream);
4864: Proc RleCompress(Stream: TStream);
4865: Proc RleDecompress(Stream: TStream);
4866: { end JvRLE } { begin JvDateUtil }
4867: Func CurrentYear: Word; {$IFDEF SUPPORTS_INLINE} inline; {$ENDIF SUPPORTS_INLINE}
4868: Func IsLeapYear(AYear: Int):Bool;
4869: Func DaysInAMonth(const AYear, AMonth: Word): Word;
4870: Func DaysPerMonth(AYear, AMonth: Int): Int;
4871: Func FirstDayOfPrevMonth: TDateTime;
4872: Func LastDayOfPrevMonth: TDateTime;
4873: Func FirstDayOfNextMonth: TDateTime;
4874: Func ExtractDay(ADate: TDateTime): Word;
4875: Func ExtractMonth(ADate: TDateTime): Word;
4876: Func ExtractYear(ADate: TDateTime): Word;
4877: Func IncDate(ADate: TDateTime; Days, Months, Years: Int): TDateTime;
4878: Func IncDay(ADate: TDateTime;Delta:Int):TDateTime; inline; {$ENDIF SUPPORTS_INLINE}
4879: Func IncMonth(ADate: TDateTime; Delta: Int): TDateTime;
4880: Func IncYear(ADate: TDateTime; Delta: Int): TDateTime;
4881: Func ValidDate(ADate: TDateTime):Bool;
4882: Proc DateDiff(Date1, Date2: TDateTime; var Days, Months, Years: Word);
4883: Func MonthsBetween(Date1, Date2: TDateTime): Double;
4884: Func DaysInPeriod(Date1, Date2: TDateTime): Longint;
4885: { Count days between Date1 and Date2 + 1, so if Date1 = Date2 result = 1 }
4886: Func DaysBetween(Date1, Date2: TDateTime): Longint;
4887: { The same as previous but if Date2 < Date1 result = 0 }
4888: Func IncTime(ATime: TDateTime; Hours, Minutes, Seconds, MSecs: Int): TDateTime;
4889: Func IncHour(ATime: TDateTime; Delta: Int): TDateTime;
4890: Func IncMinute(ATime: TDateTime; Delta: Int): TDateTime;
4891: Func IncSecond(ATime: TDateTime; Delta: Int): TDateTime;
4892: Func IncMSec(ATime: TDateTime; Delta: Int): TDateTime;
4893: Func CutTime(ADate: TDateTime): TDateTime; { Set time to 00:00:00:00 }
4894: { String to date conversions }
4895: Func GetDateOrder(const DateFormat:Str): TDateOrder;
4896: Func MonthFromName(const S:Str; MaxLen: Byte): Byte;
4897: Func StrToDateDef(const S:Str; Default: TDateTime): TDateTime;
4898: Func StrToDateFmt(const DateFormat, S:Str): TDateTime;
4899: Func StrToDateFmtDef(const DateFormat, S:Str; Default: TDateTime): TDateTime;
4900: //Func DefDateFormat(AFourDigitYear:Bool):Str;
4901: //Func DefDateMask(BlanksChar: Char; AFourDigitYear:Bool):Str;
4902: Func FormatLongDate(Value: TDateTime):Str;
4903: Func FormatLongDateTime(Value: TDateTime):Str;
4904: { end JvDateUtil }
4905: Func BufToBinStr(Buf: Pointer; BufSize: Int):Str;
4906: Func BinStrToBuf(Value:Str; Buf: Pointer; BufSize: Int): Int;
4907: { begin JvStrUtils } { ** Common string handling routines ** }
4908: {$IFDEF UNIX}

4909: Func iconversion(InP: PAnsiChar; OutP: Pointer; InBytes, OutBytes:Card;

4910: const ToCode, FromCode: Ansistr):Bool;
4911: Func iconvString(const S, ToCode, FromCode: Ansistr):Str;
4912: Func iconvWideString(const S: WideString; const ToCode, FromCode:Ansistr):WideString;
4913: Func OemStrToAnsi(const S: Ansistr): Ansistr;
4914: Func AnsiStrToOem(const S: Ansistr): Ansistr;
4915: {$ENDIF UNIX}
4916: Func StrToOem(const AnsiStr: Ansistr): Ansistr;
4917: { StrToOem translates a string from the Windows character set into the OEM character set. }
4918: Func OemToAnsiStr(const OemStr: Ansistr): Ansistr;
4919: { OemToAnsiStr translates a string from the OEM character set into the Windows character set. }
4920: Func IsEmptyStr(const S:Str; const EmptyChars: TSysCharSet):Bool;
4921: { EmptyStr returns True if the given string contains only character from the EmptyChars. }
4922: Func ReplaceStr(const S, Srch, Replace:Str):Str;
4923: { Returns string with every occurrence of Srch string replaced with Replace string. }
4924: Func DelSpace(const S:Str):Str;
4925: { DelSpace return a string with all white spaces removed. }
4926: Func DelChars(const S:Str; Chr: Char):Str;
4927: { DelChars return a string with all Chr characters removed. }
4928: Func DelBSpace(const S:Str):Str;
4929: { DelBSpace trims leading spaces from given string. }
4930: Func DelESpace(const S:Str):Str;
4931: { DelESpace trims trailing spaces from given string. }
4932: Func DelRSpace(const S:Str):Str;
4933: { DelRSpace trims leading and trailing spaces from the given string. }
4934: Func DelSpace1(const S:Str):Str;
4935: { DelSpace1 return a string with all non-single white spaces removed. }
4936: Func Tab2Space(const S:Str; Numb: Byte):Str;
4937: { Tab2Space converts any tabulation character in given string to the
4938: Numb spaces characters. }
4939: Func NPos(const C:Str; S:Str; N: Int): Int;
4940: { NPos searches for a N-th position of substring C in a given string. }
4941: Func MakeStr(C: Char; N: Int):Str; overload;
4942: {$IFNDEF COMPILER12_UP}
4943: Func MakeStr(C: WideChar; N: Int): WideString; overload;
4944: {$ENDIF !COMPILER12_UP}
4945: Func MS(C: Char; N: Int):Str; {$IFDEF SUPPORTS_INLINE} inline;{$ENDIF SUPPORTS_INLINE}
4946: { MakeStr return a string of length N filled with character C. }
4947: Func AddChar(C: Char; const S:Str; N: Int):Str;
4948: { AddChar return a string left-padded to length N with characters C. }
4949: Func AddCharR(C: Char; const S:Str; N: Int):Str;
4950: { AddCharR return a string right-padded to length N with characters C. }
4951: Func LeftStr(const S:Str; N: Int):Str;
4952: { LeftStr return a string right-padded to length N with blanks. }
4953: Func RightStr(const S:Str; N: Int):Str;
4954: { RightStr return a string left-padded to length N with blanks. }
4955: Func CenterStr(const S:Str; Len: Int):Str;
4956: { CenterStr centers the characters in the string based upon the Len specified. }
4957: Func CompStr(const S1, S2:Str): Int; {$IFDEF SUPPORTS_INLINE} inline; {$ENDIF SUPPORTS_INLINE}
4958: { CompStr compares S1 to S2, with case-sensitivity. The return value is
4959: -1 if S1 < S2, 0 if S1 = S2, or 1 if S1 > S2. }
4960: Func CompText(const S1, S2:Str):Int; {$IFDEF SUPPORTS_INLINE} inline; {$ENDIF SUPPORTS_INLINE}
4961: { CompText compares S1 to S2,without case-sensitivity. return value is same as for CompStr. }
4962: Func Copy2Symb(const S:Str; Symb: Char):Str;
4963: { Copy2Symb returns a substring of a string S from begining to first character Symb. }
4964: Func Copy2SymbDel(var S:Str; Symb: Char):Str;
4965: { Copy2SymbDel returns a substring of a string S from begining to first
4966: character Symb and removes this substring from S. }
4967: Func Copy2Space(const S:Str):Str;
4968: { Copy2Symb returns a substring of a string S from begining to first white space. }
4969: Func Copy2SpaceDel(var S:Str):Str;
4970: { Copy2SpaceDel returns a substring of a string S from begining to first
4971: white space and removes this substring from S. }
4972: Func AnsiProperCase(const S:Str; const WordDelims: TSysCharSet):Str;
4973: { Returns string, with the first letter of each word in uppercase,
4974: all other letters in lowercase. Words are delimited by WordDelims. }
4975: Func WordCount(const S:Str; const WordDelims: TSysCharSet): Int;
4976: { WordCount given a set of word delimiters, returns number of words in S. }
4977: Func WordPosition(const N: Int; const S:Str; const WordDelims: TSysCharSet):Int;
4978: { Given a set of word delimiters, returns start position of N'th word in S. }
4979: Func ExtractWord(N: Int; const S:Str; const WordDelims: TSysCharSet):Str;
4980: Func ExtractWordPos(N:Int;const S:str;const WordDelims:TSysCharSet;var Pos:Int):str;
4981: Func ExtractDelimited(N: Int; const S:Str;const Delims: TSysCharSet):Str;
4982: { ExtractWord, ExtractWordPos and ExtractDelimited given a set of word
4983: delimiters, return the N'th word in S. }
4984: Func ExtractSubstr(const S:Str; var Pos: Int;const Delims: TSysCharSet):Str;
4985: { ExtractSubstr given a set of word delimiters, returns the substring from S,
4986: that started from position Pos. }
4987: Func IsWordPresent(const W, S:Str; const WordDelims: TSysCharSet):Bool;
4988: {IsWordPresent given a set of word delimiters, returns True if word W is present in string S.}
4989: Func QuotedString(const S:Str; Quote: Char):Str;
4990: {QuotedString returns the given string as a quoted string, using provided Quote character. }
4991: Func ExtractQuotedString(const S:Str; Quote: Char):Str;
4992: { ExtractQuotedString removes the Quote characters from beginning and
4993: end of a quoted string,and reduces pairs of Quotecharacters within quoted string to single character.}
4994: Func FindPart(const HelpWilds, InputStr:Str): Int;
4995: { FindPart compares a string with '?' and another, returns position of HelpWilds in InputStr.}
4996: Func IsWild(InputStr, Wilds:Str; IgnoreCase:Bool):Bool;
4997: { IsWild compares InputString with WildCard string and returns True if corresponds. }

4998: Func XorString(const Key, Src: ShortString): ShortString;

4999: Func XorEncode(const Key, Source:Str):Str;
5000: Func XorDecode(const Key, Source:Str):Str;
5001: { ** Command line routines ** }
5002: Func GetCmdLineArg(const Switch:Str; ASwitchChars: TSysCharSet):Str;
5003: { ** Numeric string handling routines ** }
5004: Func Numb2USA(const S:Str):Str;
5005: { Numb2USA converts numeric string S to USA-format. }
5006: Func Dec2Hex(N: Longint; A: Byte):Str; {$IFDEF SUPPORTS_INLINE} inline; {$ENDIF SUPPORTS_INLINE}
5007: { Dec2Hex converts the given value to a hexadecimal string representation
5008: with the minimum number of digits (A) specified. }
5009: Func Hex2Dec(const S:Str): Longint;
5010: { Hex2Dec converts the given hexadecimal string to the corresponding Int value. }
5011: Func Dec2Numb(N: Int64; A, B: Byte):Str;
5012: { Dec2Numb converts the given value to a string representation with the
5013: base equal to B and with the minimum number of digits (A) specified. }
5014: Func Numb2Dec(S:Str; B: Byte): Int64;
5015: { Numb2Dec converts the given B-based numeric string to corresponding Int value. }
5016: Func IntToBin(Value: Longint; Digits, Spaces: Int):Str;
5017: { IntToBin converts the given value to a binary string representation
5018: with the minimum number of digits specified. }
5019: Func IntToRoman(Value: Longint):Str;
5020: { IntToRoman converts the given value to a roman numeric string representation. }
5021: Func RomanToInt(const S:Str): Longint;
5022: { RomanToInt converts the given string to an Int value. If the string
5023: doesn't contain a valid roman numeric value, the 0 value is returned. }
5024: Func FindNotBlankCharPos(const S:Str): Int;
5025: Func FindNotBlankCharPosW(const S: WideString): Int;
5026: Func AnsiChangeCase(const S:Str):Str;
5027: Func WideChangeCase(const S:Str):Str;
5028: Func StartsText(const SubStr, S:Str):Bool;
5029: Func EndsText(const SubStr, S:Str):Bool;
5030: Func DequotedStr(const S:Str; QuoteChar: Char = ''''):Str;
5031: Func AnsiDequotedStr(const S:Str; AQuote:Char):str;//follow Delphi 2009's "Ansi" prefix
5032: {end JvStrUtils}
5033: {$IFDEF UNIX}
5034: Func GetTempFileName(const Prefix: Ansistr):Ansistr;
5035: {$ENDIF UNIX}
5036: { begin JvFileUtil }
5037: Func FileDateTime(const FileName:Str): TDateTime;
5038: Func HasAttr(const FileName:Str; Attr: Int):Bool;
5039: Func DeleteFilesEx(const FileMasks: array of string):Bool;
5040: Func NormalDir(const DirName:Str):Str;
5041: Func RemoveBackSlash(const DirName:Str):Str; //only for Windows/DOS Paths
5042: Func ValidFileName(const FileName:Str):Bool;
5043: {$IFDEF MSWINDOWS}
5044: Func FileLock(Handle: Int; Offset, LockSize: Longint): Int; overload;
5045: Func FileLock(Handle: Int; Offset, LockSize: Int64): Int; overload;
5046: Func FileUnlock(Handle: Int; Offset, LockSize: Longint): Int; overload;
5047: Func FileUnlock(Handle: Int; Offset, LockSize: Int64): Int;overload;
5048: {$ENDIF MSWINDOWS}
5049: Func GetWindowsDir:Str;
5050: Func GetSystemDir:Str;
5051: Func ShortToLongFileName(const ShortName:Str):Str;
5052: Func LongToShortFileName(const LongName:Str):Str;
5053: Func ShortToLongPath(const ShortName:Str):Str;
5054: Func LongToShortPath(const LongName:Str):Str;
5055: {$IFDEF MSWINDOWS}
5056: Proc CreateFileLink(const FileName, DisplayName:Str; Folder: Int);
5057: Proc DeleteFileLink(const DisplayName:Str; Folder: Int);
5058: {$ENDIF MSWINDOWS}
5059: { end JvFileUtil }
5060: // Works like PtInRect but includes all edges in comparision
5061: Func PtInRectInclusive(R: TRect; Pt: TPoint):Bool;
5062: // Works like PtInRect but excludes all edges from comparision
5063: Func PtInRectExclusive(R: TRect; Pt: TPoint):Bool;
5064: Func FourDigitYear:Bool; {$IFDEF SUPPORTS_DEPRECATED} deprecated; {$ENDIF}
5065: Func IsFourDigitYear:Bool;
5066: { moved from JvJVCLUTils }
5067: //Open an object with the shell (url or something like that)
5068: Func OpenObject(const Value:Str):Bool; overload;
5069: Func OpenObject(Value: PChar):Bool; overload;
5070: {$IFDEF MSWINDOWS}
5071: //Raise the last Exception
5072: Proc RaiseLastWin32; overload;
5073: Proc RaiseLastWin32(const Text:Str); overload;
5074: //Raise last Exception with a small comment from your part {GetFileVersion returns most significant 32
bits of a file's binary version number. Typically, this includes major/minor version placed together in
one 32-bit Int.
5075: Func GetFileVersion(const AFileName:Str):Card;
5076: {$EXTERNALSYM GetFileVersion}
5077: //Get version of Shell.dll
5078: Func GetShellVersion:Card;
5079: {$EXTERNALSYM GetShellVersion}
5080: // CD functions on HW
5081: Proc OpenCdDrive;
5082: Proc CloseCdDrive;
5083: // returns True if Drive is accessible
5084: Func DiskInDrive(Drive: Char):Bool;

5085: {$ENDIF MSWINDOWS}

5086: //Same as linux Func ;)
5087: Proc PError(const Text:Str);
5088: // execute a program without waiting
5089: Proc Exec(const FileName, Parameters, Directory:Str);
5090: // execute a program and wait for it to finish
5091: Func ExecuteAndWait(CmdLine:str;const WorkingDirectory:str;Visibility:Int=SW_SHOW):Int;
5092: // returns True if this is the first instance of the program that is running
5093: Func FirstInstance(const ATitle:Str):Bool;
5094: // restores a window based on it's classname and Caption. Either can be left empty
5095: // to widen the search
5096: Proc RestoreOtherInstance(const MainFormClassName, MainFormCaption:Str);
5097: // manipulate the traybar and start button
5098: Proc HideTraybar;
5099: Proc ShowTraybar;
5100: Proc ShowStartButton(Visible:Bool = True);
5101: //(rom) SC_MONITORPOWER documented as Win 95 only(rom) do some testingset monitor functions
5102: Proc MonitorOn;
5103: Proc MonitorOff;
5104: Proc LowPower;
5105: // send a key to the window named AppName
5106: Func SendKey(const AppName:Str; Key: Char):Bool;
5107: {$IFDEF MSWINDOWS}
5108: // returns list of all win currently visible, Objects property is filled with window handle
5109: Proc GetVisibleWindows(List: TStrings);
5110: Func GetVisibleWindowsF( List : TStrings):TStrings;
5111: // associates an extension to a specific program
5112: Proc AssociateExtension(const IconPath, ProgramName, Path, Extension:Str);
5113: Proc AddToRecentDocs(const FileName:Str);
5114: Func GetRecentDocs: TStringList;
5115: {$ENDIF MSWINDOWS}
5116: Func CharIsMoney(const Ch: Char):Bool;
5117: //Func StrToCurrDef(const Str:Str; Def: Currency): Currency;
5118: Func IntToExtended(I: Int): Extended;
5119: { GetChangedText works out new text given the current cursor pos & the key pressed
5120: is not very useful in other contexts,but in thisunit as itis needed in both MemoEx and TypedEdit}
5121: Func GetChangedText(const Text:Str; SelStart, SelLength: Int; Key: Char):Str;
5122: Func MakeYear4Digit(Year, Pivot: Int): Int;
5123: //Func StrIsInt(const S:Str):Bool;
5124: Func StrIsFloatMoney(const Ps:Str):Bool;
5125: Func StrIsDateTime(const Ps:Str):Bool;
5126: Func PreformatDateString(Ps:Str):Str;
5127: Func BooleanToInt(const B:Bool): Int;
5128: Func StringToBoolean(const Ps:Str):Bool;
5129: Func SafeStrToDateTime(const Ps:Str): TDateTime;
5130: Func SafeStrToDate(const Ps:Str): TDateTime;
5131: Func SafeStrToTime(const Ps:Str): TDateTime;
5132: Func StrDelete(const psSub, psMain:Str):Str;
5133: { returns the fractional value of pcValue}
5134: Func TimeOnly(pcValue: TDateTime): TTime;
5135: { returns the integral value of pcValue }
5136: Func DateOnly(pcValue: TDateTime): TDate;
5137: type TdtKind = (dtkDateOnly, dtkTimeOnly, dtkDateTime);
5138: const { TDateTime value used to signify Null value}
5139: NullEquivalentDate: TDateTime = 0.0;
5140: Func DateIsNull(const pdtValue: TDateTime; const pdtKind: TdtKind):Bool;
5141: // Replacement for Win32Check to avoid platform specific warnings in D6
5142: Func OSCheck(RetVal:Bool):Bool;
5143: { Shortens a fully qualified Path name so that it can be drawn with a specified length limit.
5144: Same as FileCtrl.MinimizeName in functionality (but not implementation).Included here to
5145: not be forced to use FileCtrl unnecessarily }
5146: Func MinimizeFileName(const FileName:Str; Canvas: TCanvas; MaxLen: Int):Str;
5147: Func MinimizeText(const Text:Str; Canvas: TCanvas; MaxWidth: Int):Str;
5148: {MinimizeString trunactes longstring,S,and appends'...'symbols,if Length ofS is morethan MaxLen}
5149: Func MinimizeString(const S:Str; const MaxLen: Int):Str;
5150: Proc RunDll32Internal(Wnd:THandle;const DLLName,FuncName,CmdLine:str;CmdShow:Int= SW_SHOWDEFAULT);
5151: { GetDLLVersion loads DLLName, gets a pointer to DLLVersion Func and calls it, returning major and minor
version values from function. Returns False if DLL not loaded or if GetDLLVersion couldn't be found.}
5152: Func GetDLLVersion(const DLLName:Str; var pdwMajor, pdwMinor: Int):Boolean;
5153: {$ENDIF MSWINDOWS}
5154: Proc ResourceNotFound(ResID: PChar);
5155: Func EmptyRect: TRect;
5156: Func RectWidth(R: TRect): Int;
5157: Func RectHeight(R: TRect): Int;
5158: Func CompareRect(const R1, R2: TRect):Bool;
5159: Proc RectNormalize(var R: TRect);
5160: Func RectIsSquare(const R: TRect):Bool;
5161: Func RectSquare(var ARect: TRect; AMaxSize: Int = -1):Bool;
5162: //If AMaxSize = -1 ,then auto calc Square's max size
5163: {$IFDEF MSWINDOWS}
5164: Proc FreeUnusedOle;
5165: Func GetWindowsVersion:Str;
5166: Func LoadDLL(const LibName:Str): THandle;
5167: Func RegisterServer(const ModuleName:Str): Bool;
5168: Func UnregisterServer(const ModuleName:Str): Bool;
5169: {$ENDIF MSWINDOWS}
5170: { String routines }
5171: Func GetEnvVar(const VarName:Str):Str;
5172: Func AnsiUpperFirstChar(const S:str):str;//follow Delphi2009's ex. with "Ansi" prefix

5173: Func StringToPChar(var S:Str): PChar;

5174: Func StrPAlloc(const S:Str): PChar;
5175: Proc SplitCommandLine(const CmdLine:Str; var ExeName, Params:Str);
5176: Func DropT(const S:Str):Str;
5177: { Memory routines }
5178: Func AllocMemo(Size: Longint): Pointer;
5179: Func ReallocMemo(fpBlock: Pointer; Size: Longint): Pointer;
5180: Proc FreeMemo(var fpBlock: Pointer);
5181: Func GetMemoSize(fpBlock: Pointer): Longint;
5182: Func CompareMem(fpBlock1, fpBlock2: Pointer; Size:Card):Bool;
5183: { Manipulate huge pointers routines }
5184: Proc HugeInc(var HugePtr: Pointer; Amount: Longint);
5185: Proc HugeDec(var HugePtr: Pointer; Amount: Longint);
5186: Func HugeOffset(HugePtr: Pointer; Amount: Longint): Pointer;
5187: Proc HugeMove(Base: Pointer; Dst, Src, Size: Longint);
5188: Proc HMemCpy(DstPtr, SrcPtr: Pointer; Amount: Longint);
5189: Func WindowClassName(Wnd: THandle):Str;
5190: Proc SwitchToWindow(Wnd: THandle; Restore:Bool);
5191: Proc ActivateWindow(Wnd: THandle);
5192: Proc ShowWinNoAnimate(Handle: THandle; CmdShow: Int);
5193: Proc KillMessage(Wnd: THandle; Msg:Card);
5194: { SetWindowTop put window to top without recreating window }
5195: Proc SetWindowTop(const Handle: THandle; const Top:Bool);
5196: Proc CenterWindow(Wnd: THandle);
5197: Func MakeVariant(const Values: array of Variant): Variant;
5198: { Convert dialog units to pixels and backwards }
5199: {$IFDEF MSWINDOWS}
5200: Func DialogUnitsToPixelsX(DlgUnits:Word):Word;
5201: Func DialogUnitsToPixelsY(DlgUnits:Word):Word;
5202: Func PixelsToDialogUnitsX(PixUnits:Word):Word;
5203: Func PixelsToDialogUnitsY(PixUnits:Word):Word;
5204: {$ENDIF MSWINDOWS}
5205: Func GetUniqueFileNameInDir(const Path, FileNameMask:Str):Str;
5206: {$IFDEF BCB}
5207: Func FindPrevInstance(const MainFormClass: ShortString;const ATitle:Str): THandle;
5208: Func ActivatePrevInstance(const MainFormClass: ShortString;const ATitle:str):Bool;
5209: {$ELSE}
5210: Func FindPrevInstance(const MainFormClass, ATitle:Str): THandle;
5211: Func ActivatePrevInstance(const MainFormClass, ATitle:Str):Bool;
5212: {$ENDIF BCB}
5213: {$IFDEF MSWINDOWS}
5214: { BrowseForFolderNative displays Browse For Folder dialog }
5215: Func BrowseForFolderNative(const Handle:THandle;const Title:str;var Folder:str):Bool;
5216: {$ENDIF MSWINDOWS}
5217: Proc AntiAlias(Clip: TBitmap);
5218: Proc AntiAliasRect(Clip: TBitmap; XOrigin, YOrigin,XFinal, YFinal: Int);
5219: Proc CopyRectDIBits(ACanvas: TCanvas; const DestRect: TRect;
5220: ABitmap: TBitmap; const SourceRect: TRect);
5221: Func IsTrueType(const FontName:Str):Bool;
5222: // Removes all non-numeric characters from AValue and returns the resulting string
5223: Func TextToValText(const AValue:Str):Str;
5224: Func ExecRegExpr( const ARegExpr, AInputStr : RegExprString) :Bool
5225: Proc SplitRegExpr( const ARegExpr, AInputStr : RegExprString; APieces : TStrings)
5226: Func ReplaceRegExpr(const ARegExpr,AInputStr,
AReplaceStr:RegExprString;AUseSubstitution:bool):RegExprString;
5227: Func QuoteRegExprMetaChars( const AStr : RegExprString) : RegExprString
5228: Func RegExprSubExpressions(const ARegExpr:str;ASubExprs:TStrings;AExtendedSyntax:bool):
5229:
5230: ***************************************************unit uPSI_JvTFUtils;
5231: Func JExtractYear( ADate : TDateTime) : Word
5232: Func JExtractMonth( ADate : TDateTime) : Word
5233: Func JExtractDay( ADate : TDateTime) : Word
5234: Func ExtractHours( ATime : TDateTime) : Word
5235: Func ExtractMins( ATime : TDateTime) : Word
5236: Func ExtractSecs( ATime : TDateTime) : Word
5237: Func ExtractMSecs( ATime : TDateTime) : Word
5238: Func FirstOfMonth( ADate : TDateTime) : TDateTime
5239: Func GetDayOfNthDOW( Year, Month, DOW, N : Word) : Word
5240: Func GetWeeksInMonth( Year, Month : Word; StartOfWeek : Int) : Word
5241: Proc IncBorlDOW( var BorlDOW : Int; N : Int)
5242: Proc IncDOW( var DOW : TTFDayOfWeek; N : Int)
5243: Proc IncDays( var ADate : TDateTime; N : Int)
5244: Proc IncWeeks( var ADate : TDateTime; N : Int)
5245: Proc IncMonths( var ADate : TDateTime; N : Int)
5246: Proc IncYears( var ADate : TDateTime; N : Int)
5247: Func EndOfMonth( ADate : TDateTime) : TDateTime
5248: Func IsFirstOfMonth( ADate : TDateTime) :Bool
5249: Func IsEndOfMonth( ADate : TDateTime) :Bool
5250: Proc EnsureMonth( Month : Word)
5251: Proc EnsureDOW( DOW : Word)
5252: Func EqualDates( D1, D2 : TDateTime) :Bool
5253: Func Lesser( N1, N2 : Int) : Int
5254: Func Greater( N1, N2 : Int) : Int
5255: Func GetDivLength( TotalLength, DivCount, DivNum : Int) : Int
5256: Func GetDivNum( TotalLength, DivCount, X : Int) : Int
5257: Func GetDivStart( TotalLength, DivCount, DivNum : Int) : Int
5258: Func DOWToBorl( ADOW : TTFDayOfWeek) : Int
5259: Func BorlToDOW( BorlDOW : Int) : TTFDayOfWeek
5260: Func DateToDOW( ADate : TDateTime) : TTFDayOfWeek

5261: Proc CalcTextPos(HostRect:TRect;var TextLeft,TextTop:Int;var

TextBounds:TRect;AFont:TFont;AAngle:Int;HAlign:TAlignment;VAlign:TJvTFVAlignment;ATxt:str)
5262: Proc DrawAngleText(ACanvas:TCanvas;HostRect:TRect;var TextBounds:TRect;AAngle:Int;HAlign:
TAlignment;VAlign:TJvTFVAlignment;ATxt:str)
5263: Func JRectWidth( ARect : TRect) : Int
5264: Func JRectHeight( ARect : TRect): Int
5265: Func JEmptyRect : TRect
5266: Func IsClassByName( Obj : TObject; ClassName:str):Boolean
5267:
5268: Proc SIRegister_MSysUtils(CL: TPSPascalCompiler);
5269: begin
5270: Proc HideTaskBarButton( hWindow : HWND)
5271: Func msLoadStr( ID : Int) :Str
5272: Func msFormat( fmt :Str; params : array of const) :Str
5273: Func msFileExists( const FileName :Str) :Bool
5274: Func msIntToStr( Int : Int64) :Str
5275: Func msStrPas( const Str : PChar) :Str
5276: Func msRenameFile( const OldName, NewName :Str) :Bool
5277: Func CutFileName( s :Str) :Str
5278: Func GetVersionInfo( var VersionString :Str) : DWORD
5279: Func FormatTime( t :Card) :Str
5280: Func msCreateDir( const Dir :Str) :Bool
5281: Func SetAutoRun( NeedAutoRun :Bool; AppName :Str) :Bool
5282: Func SetTreeViewStyle( const hTV : HWND; dwNewStyle : dword) : DWORD
5283: Func msStrLen( Str : PChar) : Int
5284: Func msDirectoryExists( const Directory :Str) :Bool
5285: Func GetFolder( hWnd : hWnd; RootDir : Int; Caption :Str) :Str
5286: Func SetBlendWindow( hWnd : HWND; AlphaBlend : Byte) : LongBool
5287: Func EditWindowProc( hWnd : HWND; Msg : UINT; wParam : WPARAM; lParam: LPARAM):LRESULT
5288: Proc SetEditWndProc( hWnd : HWND; ptr : TObject)
5289: Func GetTextFromFile( Filename :Str) :Str
5290: Func IsTopMost(hWnd:HWND):Bool //'LWA_ALPHA','LongWord').SetUInt( $00000002);
5291: Func msStrToIntDef( const s :Str; const i : Int) : Int
5292: Func msStrToInt( s :Str) : Int
5293: Func GetItemText( hDlg : THandle; ID : DWORD):str
5294: end;
5295:
5296: Proc SIRegister_ESBMaths2(CL: TPSPascalCompiler);
5297: begin
5298: //TDynFloatArray', 'array of Extended
5299: TDynLWordArray', 'array of LongWord
5300: TDynLIntArray', 'array of LongInt
5301: TDynFloatMatrix', 'array of TDynFloatArray
5302: TDynLWordMatrix', 'array of TDynLWordArray
5303: TDynLIntMatrix', 'array of TDynLIntArray
5304: Func SquareAll( const X : TDynFloatArray) : TDynFloatArray
5305: Func InverseAll( const X : TDynFloatArray) : TDynFloatArray
5306: Func LnAll( const X : TDynFloatArray) : TDynFloatArray
5307: Func Log10All( const X : TDynFloatArray) : TDynFloatArray
5308: Func LinearTransform( const X : TDynFloatArray; Offset, Scale : Extended) : TDynFloatArray
5309: Func AddVectors( const X, Y : TDynFloatArray) : TDynFloatArray
5310: Func SubVectors( const X, Y : TDynFloatArray) : TDynFloatArray
5311: Func MultVectors( const X, Y : TDynFloatArray) : TDynFloatArray
5312: Func DotProduct( const X, Y : TDynFloatArray) : Extended
5313: Func MNorm( const X : TDynFloatArray) : Extended
5314: Func MatrixIsRectangular( const X : TDynFloatMatrix) :Bool
5315: Proc MatrixDimensions(const X:TDynFloatMatrix;var Rows,Columns:LongWord;var Rectangular:Bool;
5316: Func MatrixIsSquare( const X : TDynFloatMatrix) :Bool
5317: Func MatricesSameDimensions( const X, Y : TDynFloatMatrix) :Bool
5318: Func AddMatrices( const X, Y : TDynFloatMatrix) : TDynFloatMatrix
5319: Proc AddToMatrix( var X : TDynFloatMatrix; const Y : TDynFloatMatrix)
5320: Func SubtractMatrices( const X, Y : TDynFloatMatrix) : TDynFloatMatrix
5321: Proc SubtractFromMatrix( var X : TDynFloatMatrix; const Y : TDynFloatMatrix)
5322: Func MultiplyMatrixByConst( const X: TDynFloatMatrix; const K: Extended):TDynFloatMatrix
5323: Proc MultiplyMatrixByConst2( var X: TDynFloatMatrix; const K: Extended);
5324: Func MultiplyMatrices( const X, Y : TDynFloatMatrix) : TDynFloatMatrix;
5325: Func TransposeMatrix( const X : TDynFloatMatrix) : TDynFloatMatrix;
5326: Func GrandMean( const X : TDynFloatMatrix; var N : LongWord) : Extended
5327: end;
5328:
5329: Proc SIRegister_ESBMaths(CL: TPSPascalCompiler);
5330: begin
5331: 'ESBMinSingle','Single').setExtended( 1.5e-45);
5332: 'ESBMaxSingle','Single').setExtended( 3.4e+38);
5333: 'ESBMinDouble','Double').setExtended( 5.0e-324);
5334: 'ESBMaxDouble','Double').setExtended( 1.7e+308);
5335: 'ESBMinExtended','Extended').setExtended( 3.6e-4951);
5336: 'ESBMaxExtended','Extended').setExtended( 1.1e+4932);
5337: 'ESBMinCurrency','Currency').SetExtended( - 922337203685477.5807);
5338: 'ESBMaxCurrency','Currency').SetExtended( 922337203685477.5807);
5339: 'ESBSqrt2','Extended').setExtended( 1.4142135623730950488);
5340: 'ESBSqrt3','Extended').setExtended( 1.7320508075688772935);
5341: 'ESBSqrt5','Extended').setExtended( 2.2360679774997896964);
5342: 'ESBSqrt10','Extended').setExtended( 3.1622776601683793320);
5343: 'ESBSqrtPi','Extended').setExtended( 1.77245385090551602729);
5344: 'ESBCbrt2','Extended').setExtended( 1.2599210498948731648);
5345: 'ESBCbrt3','Extended').setExtended( 1.4422495703074083823);
5346: 'ESBCbrt10','Extended').setExtended( 2.1544346900318837219);
5347: 'ESBCbrt100','Extended').setExtended( 4.6415888336127788924);

5348: 'ESBCbrtPi','Extended').setExtended( 1.4645918875615232630);

5349: 'ESBInvSqrt2','Extended').setExtended( 0.70710678118654752440);
5350: 'ESBInvSqrt3','Extended').setExtended( 0.57735026918962576451);
5351: 'ESBInvSqrt5','Extended').setExtended( 0.44721359549995793928);
5352: 'ESBInvSqrtPi','Extended').setExtended( 0.56418958354775628695);
5353: 'ESBInvCbrtPi','Extended').setExtended( 0.68278406325529568147);
5354: 'ESBe','Extended').setExtended( 2.7182818284590452354);
5355: 'ESBe2','Extended').setExtended( 7.3890560989306502272);
5356: 'ESBePi','Extended').setExtended( 23.140692632779269006);
5357: 'ESBePiOn2','Extended').setExtended( 4.8104773809653516555);
5358: 'ESBePiOn4','Extended').setExtended( 2.1932800507380154566);
5359: 'ESBLn2','Extended').setExtended( 0.69314718055994530942);
5360: 'ESBLn10','Extended').setExtended( 2.30258509299404568402);
5361: 'ESBLnPi','Extended').setExtended( 1.14472988584940017414);
5362: 'ESBLog10Base2','Extended').setExtended( 3.3219280948873623478);
5363: 'ESBLog2Base10','Extended').setExtended( 0.30102999566398119521);
5364: 'ESBLog3Base10','Extended').setExtended( 0.47712125471966243730);
5365: 'ESBLogPiBase10','Extended').setExtended( 0.4971498726941339);
5366: 'ESBLogEBase10','Extended').setExtended( 0.43429448190325182765);
5367: 'ESBPi','Extended').setExtended( 3.1415926535897932385);
5368: 'ESBInvPi','Extended').setExtended( 3.1830988618379067154e-1);
5369: 'ESBTwoPi','Extended').setExtended( 6.2831853071795864769);
5370: 'ESBThreePi','Extended').setExtended( 9.4247779607693797153);
5371: 'ESBPi2','Extended').setExtended( 9.8696044010893586188);
5372: 'ESBPiToE','Extended').setExtended( 22.459157718361045473);
5373: 'ESBPiOn2','Extended').setExtended( 1.5707963267948966192);
5374: 'ESBPiOn3','Extended').setExtended( 1.0471975511965977462);
5375: 'ESBPiOn4','Extended').setExtended( 0.7853981633974483096);
5376: 'ESBThreePiOn2','Extended').setExtended( 4.7123889803846898577);
5377: 'ESBFourPiOn3','Extended').setExtended( 4.1887902047863909846);
5378: 'ESBTwoToPower63','Extended').setExtended( 9223372036854775808.0);
5379: 'ESBOneRadian','Extended').setExtended( 57.295779513082320877);
5380: 'ESBOneDegree','Extended').setExtended( 1.7453292519943295769E-2);
5381: 'ESBOneMinute','Extended').setExtended( 2.9088820866572159615E-4);
5382: 'ESBOneSecond','Extended').setExtended( 4.8481368110953599359E-6);
5383: 'ESBGamma','Extended').setExtended( 0.57721566490153286061);
5384: 'ESBLnRt2Pi','Extended').setExtended( 9.189385332046727E-1);
5385: //LongWord', 'Cardinal
5386: TBitList', 'Word
5387: Func UMul( const Num1, Num2 : LongWord) : LongWord
5388: Func UMulDiv2p32( const Num1, Num2 : LongWord) : LongWord
5389: Func UMulDiv( const Num1, Num2, Divisor : LongWord) : LongWord
5390: Func UMulMod( const Num1, Num2, Modulus : LongWord) : LongWord
5391: Func SameFloat( const X1, X2 : Extended) :Bool
5392: Func FloatIsZero( const X : Extended) :Bool
5393: Func FloatIsPositive( const X : Extended) :Bool
5394: Func FloatIsNegative( const X : Extended) :Bool
5395: Proc IncLim( var B : Byte; const Limit : Byte)
5396: Proc IncLimSI( var B : ShortInt; const Limit : ShortInt)
5397: Proc IncLimW( var B : Word; const Limit : Word)
5398: Proc IncLimI( var B : Int; const Limit : Int)
5399: Proc IncLimL( var B : LongInt; const Limit : LongInt)
5400: Proc DecLim( var B : Byte; const Limit : Byte)
5401: Proc DecLimSI( var B : ShortInt; const Limit : ShortInt)
5402: Proc DecLimW( var B : Word; const Limit : Word)
5403: Proc DecLimI( var B : Int; const Limit : Int)
5404: Proc DecLimL( var B : LongInt; const Limit : LongInt)
5405: Func MaxB( const B1, B2 : Byte) : Byte
5406: Func MinB( const B1, B2 : Byte) : Byte
5407: Func MaxSI(const B1, B2 : ShortInt) : ShortInt
5408: Func MinSI(const B1, B2 : ShortInt) : ShortInt
5409: Func MaxW(const B1, B2 : Word) : Word
5410: Func MinW(const B1, B2 : Word) : Word
5411: Func esbMaxI( const B1, B2 : Int) : Int
5412: Func esbMinI( const B1, B2 : Int) : Int
5413: Func MaxL(const B1, B2 : LongInt) : LongInt
5414: Func MinL(const B1, B2 : LongInt) : LongInt
5415: Proc SwapB( var B1, B2 : Byte)
5416: Proc SwapSI( var B1, B2 : ShortInt)
5417: Proc SwapW( var B1, B2 : Word)
5418: Proc SwapI( var B1, B2 : SmallInt)
5419: Proc SwapL( var B1, B2 : LongInt)
5420: Proc SwapI32( var B1, B2 : Int)
5421: Proc SwapC( var B1, B2 : LongWord)
5422: Proc SwapInt64( var X, Y : Int64)
5423: Func esbSign( const B : LongInt) : ShortInt
5424: Func Max4Word(const X1, X2, X3, X4 : Word) : Word
5425: Func Min4Word(const X1, X2, X3, X4 : Word) : Word
5426: Func Max3Word(const X1, X2, X3 : Word) : Word
5427: Func Min3Word(const X1, X2, X3 : Word) : Word
5428: Func MaxBArray(const B : array of Byte) : Byte
5429: Func MaxWArray(const B : array of Word) : Word
5430: Func MaxSIArray(const B : array of ShortInt) : ShortInt
5431: Func MaxIArray(const B :array of Int) : Int
5432: Func MaxLArray(const B :array of LongInt) : LongInt
5433: Func MinBArray(const B :array of Byte) : Byte
5434: Func MinWArray(const B :array of Word) : Word
5435: Func MinSIArray( const B: array of ShortInt) : ShortInt
5436: Func MinIArray(const B :array of Int) : Int

5437: Func MinLArray(const B :array of LongInt) : LongInt

5438: Func SumBArray(const B :array of Byte) : Byte
5439: Func SumBArray2( const B :array of Byte) : Word
5440: Func SumSIArray( const B :array of ShortInt) : ShortInt
5441: Func SumSIArray2( const B: array of ShortInt) : Int
5442: Func SumWArray( const B :array of Word) : Word
5443: Func SumWArray2(const B :array of Word) : LongInt
5444: Func SumIArray(const B : array of Int) : Int
5445: Func SumLArray(const B : array of LongInt) : LongInt
5446: Func SumLWArray(const B :array of LongWord) : LongWord
5447: Func ESBDigits( const X :LongWord) : Byte
5448: Func BitsHighest( const X : LongWord) : Int
5449: Func ESBBitsNeeded( const X : LongWord) : Int
5450: Func esbGCD( const X, Y : LongWord) : LongWord
5451: Func esbLCM( const X, Y : LongInt) : Int64
5452: //Func esbLCM( const X, Y : LongInt) : LongInt
5453: Func RelativePrime( const X, Y : LongWord) :Bool
5454: Func Get87ControlWord : TBitList
5455: Proc Set87ControlWord( const CWord : TBitList)
5456: Proc SwapExt( var X, Y : Extended)
5457: Proc SwapDbl( var X, Y : Double)
5458: Proc SwapSing( var X, Y : Single)
5459: Func esbSgn( const X : Extended) : ShortInt
5460: Func Distance( const X1, Y1, X2, Y2: Extended) : Extended
5461: Func ExtMod( const X, Y : Extended): Extended
5462: Func ExtRem( const X, Y : Extended): Extended
5463: Func CompMOD( const X, Y : Comp) : Comp
5464: Proc Polar2XY( const Rho, Theta : Extended; var X, Y: Extended)
5465: Proc XY2Polar( const X, Y : Extended; var Rho, Theta: Extended)
5466: Func DMS2Extended( const Degs, Mins, Secs : Extended): Extended
5467: Proc Extended2DMS( const X : Extended; var Degs, Mins, Secs: Extended)
5468: Func MaxExt( const X, Y : Extended) : Extended
5469: Func MinExt( const X, Y : Extended) : Extended
5470: Func MaxEArray( const B : array of Extended) : Extended
5471: Func MinEArray( const B : array of Extended) : Extended
5472: Func MaxSArray( const B : array of Single) : Single
5473: Func MinSArray( const B : array of Single) : Single
5474: Func MaxCArray( const B : array of Comp) : Comp
5475: Func MinCArray( const B : array of Comp) : Comp
5476: Func SumSArray( const B : array of Single) : Single
5477: Func SumEArray( const B : array of Extended) : Extended
5478: Func SumSqEArray( const B : array of Extended) : Extended
5479: Func SumSqDiffEArray( const B : array of Extended; Diff : Extended):Extended
5480: Func SumXYEArray( const X, Y : array of Extended) : Extended
5481: Func SumCArray( const B : array of Comp) : Comp
5482: Func FactorialX( A : LongWord) : Extended
5483: Func PermutationX( N, R : LongWord) : Extended
5484: Func esbBinomialCoeff( N, R : LongWord) : Extended
5485: Func IsPositiveEArray( const X : array of Extended) :Bool
5486: Func esbGeometricMean( const X : array of Extended) : Extended
5487: Func esbHarmonicMean( const X : array of Extended) : Extended
5488: Func ESBMean( const X : array of Extended) : Extended
5489: Func esbSampleVariance( const X : array of Extended) : Extended
5490: Func esbPopulationVariance( const X : array of Extended) : Extended
5491: Proc esbSampleVarianceAndMean(const X: array of Extended; var Variance, Mean :Extended)
5492: Proc esbPopulationVarianceAndMean(const X:array of Extended;var Variance,Mean:Extended)
5493: Func GetMedian( const SortedX : array of Extended) : Extended
5494: Func GetMode( const SortedX : array of Extended; var Mode : Extended) :Bool
5495: Proc GetQuartiles( const SortedX : array of Extended; var Q1, Q3 : Extended)
5496: Func ESBMagnitude( const X : Extended) : Int
5497: Func ESBTan( Angle : Extended) : Extended
5498: Func ESBCot( Angle : Extended) : Extended
5499: Func ESBCosec( const Angle : Extended) : Extended
5500: Func ESBSec( const Angle : Extended) : Extended
5501: Func ESBArcTan( X, Y : Extended) : Extended
5502: Proc ESBSinCos( Angle : Extended; var SinX, CosX : Extended)
5503: Func ESBArcCos( const X : Extended) : Extended
5504: Func ESBArcSin( const X : Extended) : Extended
5505: Func ESBArcSec( const X : Extended) : Extended
5506: Func ESBArcCosec( const X : Extended) : Extended
5507: Func ESBLog10( const X : Extended) : Extended
5508: Func ESBLog2( const X : Extended) : Extended
5509: Func ESBLogBase( const X, Base : Extended) : Extended
5510: Func Pow2( const X : Extended) : Extended
5511: Func IntPow( const Base : Extended; const Exponent : LongWord) : Extended
5512: Func ESBIntPower( const X : Extended; const N : LongInt) : Extended
5513: Func XtoY( const X, Y : Extended) : Extended
5514: Func esbTenToY( const Y : Extended) : Extended
5515: Func esbTwoToY( const Y : Extended) : Extended
5516: Func LogXtoBaseY( const X, Y : Extended) : Extended
5517: Func esbISqrt( const I : LongWord) : Longword
5518: Func ILog2( const I : LongWord) : LongWord
5519: Func IGreatestPowerOf2( const N : LongWord) : LongWord
5520: Func ESBArCosh(X:Extended):Extended
5521: Func ESBArSinh(X:Extended):Extended
5522: Func ESBArTanh(X:Extended):Extended
5523: Func ESBCosh(X:Extended):Extended
5524: Func ESBSinh(X:Extended):Extended
5525: Func ESBTanh(X:Extended):Extended

5526: Func InverseGamma(const X: Extended) : Extended

5527: Func esbGamma(const X : Extended): Extended
5528: Func esbLnGamma(const X: Extended): Extended
5529: Func esbBeta(const X, Y: Extended): Extended
5530: Func IncompleteBeta(X :Extended; P, Q: Extended): Extended
5531: end;
5532:
5533: *****************************Int Huge Cardinal Utils***************************
5534: Func Add_uint64_WithCarry( x, y : uint64; var Carry :Bool) : uint64
5535: Func Add_uint32_WithCarry( x, y : uint32; var Carry :Bool) : uint32
5536: Func Subtract_uint64_WithBorrow( x, y : uint64; var Borrow :Bool) : uint64
5537: Func Subtract_uint32_WithBorrow( x, y : uint32; var Borrow :Bool) : uint32
5538: Func BitCount_8( Value : byte) : Int
5539: Func BitCount_16( Value : uint16) : Int
5540: Func BitCount_32( Value : uint32) : Int
5541: Func BitCount_64( Value : uint64) : Int
5542: Func CountSetBits_64( Value : uint64) : Int TPrimalityTestNoticeProc',
5543: Proc ( CountPrimalityTests : Int)
5544: Func gcdhuge( a, b : THugeCardinal) : THugeCardinal
5545: Func lcmhuge( a, b : THugeCardinal) : THugeCardinal
5546: Func isCoPrime( a, b : THugeCardinal) :Bool
5547: Func isProbablyPrime(p:THugeCardinal;OnProgress:TProgress;var wasAborted:bool):boolean
5548: Func hasSmallFactor( p : THugeCardinal) :Bool
5549: Func GeneratePrime( NumBits : Int; OnProgress : TProgress; OnPrimalityTest: TPrimalityTestNoticeProc;
PassCount:Int;Pool1:TMemoryStreamPool;var Prime:THugeCardinal;var NumbersTested: Int):bool
5550: Func Inverse( Prime, Modulus : THugeCardinal) : THugeCardinal
5551: Const('StandardExponent','LongInt'( 65537);
5552: Proc Compute_RSA_Fundamentals_2Factors(RequiredBitLengthOfN:Int;Fixed_e:uint64;var N,e,d,
Totient:TProgress;OnPrimalityTest:TPrimalityTestNoticeProc;GeneratePrimePassCount:int;Pool1:TMemoryStreamPool;var
Numbers
5553: Func Validate_RSA_Fundamentals( var N, e, d, Totient : THugeCardinal:Bool')
5554: Func AnsiBytesOf(const S:Str): TBytes;');
5555: Func GetBytes(value:Str): TBytes;');
5556: Func GetBytesInt(value: Smallint): TBytes;');
5557: Func HugeToBase10(const AHuge: THugeCardinal):Str;
5558:
5559: (*----------------------------------------------------------------------------*)
5560: Proc SIRegister_uTPLb_StreamUtils(CL: TPSPascalCompiler);
5561: begin
5562: SIRegister_TDesalinationWriteStream(CL);
5563: // CL.AddTypeS('TByteDynArray', 'array of Byte');
5564: Func CloneMemoryStream( Original : TMemoryStream) : TMemoryStream');
5565: Proc CopyMemoryStream( Source, Destination : TMemoryStream)');
5566: Proc BurnMemoryStream( Destructo : TMemoryStream)');
5567: Proc BurnMemory( var Buff, BuffLen : integer)');
5568: Proc BurnMemoryString( var Buff:Str; BuffLen : integer)');
5569: Proc BurnMemoryInteger( var Buff: Integer; BuffLen : integer)');
5570: Proc BurnMemoryString2( Buff:Str; BuffLen : integer)');
5571: Proc BurnMemoryInteger2( Buff: Integer; BuffLen : integer)');
5572: (Proc BurnMemoryByteArray( var array of Byte; BuffLen : integer)');
5573: Proc BurnMemoryByteArray2( var buff: TByteDynArray; BuffLen : integer)');
5574: Proc BurnMemoryByteArray3( buff: TByteDynArray; BuffLen : integer)');
5575: Proc ZeroFillStream( Stream : TMemoryStream)');
5576: Proc RandomFillStream( Stream : TMemoryStream)');
5577: Proc XOR_Streams2( Dest, Srce : TMemoryStream)');
5578: Proc XOR_Streams3( Dest, SrceA, SrceB : TMemoryStream)');
5579: Func CompareMemoryStreams( S1, S2 : TMemoryStream) :Bool');
5580: Func Stream_to_Base64( Source : TStream) : Ansistr');
5581: Func Stream_to_Base642( Source : TStream) : Ansistr');
5582: Proc Base64_to_stream2( const Base64 : Ansistr; Destin : TStream)');
5583: Func Stream_to_Ansistr( Source : TStream) : Ansistr');
5584: Func StreamtoAnsistr( Source : TStream) : Ansistr');
5585: Func StreamToString( Source : TStream) :Str');
5586: Func StreamToString2( Source : TStream) :Str');
5587: Func StreamToString3( Source : TStream) :Str');
5588: Func StreamToString4( Source : TStream) :Str');
5589: Ansistr_to_stream( const Value : Ansistr; Destin : TStream)');
5590: Func CompareFiles(const FN1,FN2:str;Breathe:TNotifyEvent;BreathingSender:TObject):bool;
5591: Func FileSize( const FileName :Str) : int64');
5592: Func Stream_to_decimalbytes( Source : TStream) :Str');
5593: Func StreamToDecimalbytes( Source : TStream) :Str');
5594: Func StreamtoOrd( Source : TStream) :Str');
5595: Func StreamToByte( Source : TStream) :Str');
5596: Func DisplayStream( Stream : TStream) :Str');
5597: Proc Base64_to_streamBytes( const Base64: TBytes; Destin: TStream);');
5598: Func Stream_to_Base64Bytes(ASource: TStream; const ATransform: TBytes): TBytes;');
5599: Func Stream_To_Hex(ASource: TStream): Ansistr;');
5600: // from unit uPSI_uTPLb_PointerArithmetic;
5601: Proc ClearMemory( Stream : TMemoryStream; Offset, CountBytes : integer)');
5602: Func ReadMem(Source:TStream;Destin:TMemoryStream;DestinOffset,CountBytes:integer):int);
5603: Func WriteMem(Source:TMemoryStream;SourceOffset:int;Destin:TStream;CountBytes:int):int;
5604: end;
5605:
5606: Proc SIRegister_EwbCoreTools(CL: TPSPascalCompiler);
5607: begin
5608: //CL.AddDelphiFunction('Func IsWinXPSP2OrLater( ) :Bool');
5609: Func ColorToHTML2( const Color : TColor) :Str');
5610: //Func WideStringToLPOLESTR( const Source : Widestring) : POleStr');
5611: //Func XPath4Node( node : IHTMLElement) :Str');

5612: //Func TaskAllocWideString( const S :Str) : PWChar');

5613: Func AnsiIndexStr2( const AText :Str; const AValues : array of string) : Integer');
5614: Func GetPos( const SubSt, Text :Str; StartPos : Integer) : Integer');
5615: Func _CharPos( const C : Char; const S :Str) : Integer');
5616: Func CutString(var Text:str; const Delimiter:str; const Remove:Boolean) :Str');
5617: Proc FormatPath( Path :Str)');
5618: Func GetWinText( WinHandle : THandle) :Str');
5619: Func GetWinClass( Handle : Hwnd) : WideString');
5620: Func GetParentWinByClass( ChildHandle : HWND; const ClassName :Str) : HWND');
5621: Func DirectoryExists2( const Directory :Str) :Bool');
5622: //CL.AddDelphiFunction('Func VarSupports(const V:Variant;const IID:TGUID; out Intf): Bool);
5623: Func CharInSet3( C : Char; const CharSet : TSysCharSet) :Bool');
5624: Func AddBackSlash2( const S :Str) :Str');
5625: CL.AddConstantN('WM_SETWBFOCUS','LongWord').SetUInt( $0400 + $44);
5626: end;
5627:
5628: Proc SIRegister_EwbUrl(CL: TPSPascalCompiler);
5629: begin
5630: 'TEMP_SIZE_EWB','LongInt').SetInt( 1024);
5631: 'MAX_BUFFER_EWB','LongInt').SetInt( 256);
5632: 'WebDelim_EWB','String').SetString( '/');
5633: 'ProtocolDelim_EWB','String').SetString( '://');
5634: 'QueryDelim_EWB','String').SetString( '?');
5635: 'BookmarkDelim_EWB','String').SetString( '#');
5636: 'EqualDelim_EWB','String').SetString( '=');
5637: 'DriveDelim_EWB','String').SetString( ':');
5638: CL.AddTypeS('TQueryOption_EWB', 'ULONG');
5639: TOnError_EWB','Proc (Sender:TObject;ErrorCode:integer;ErrMessage:str)');
5640: SIRegister_TUrl(CL);
5641: end;
5642:
5643: Func IS_INTRESOURCE(lpszType: PChar): BOOL; //as of windows.pas
5644: begin
5645: Result:= ULONG_PTR(lpszType) shr 16 = 0;
5646: end;
5647:
5648: Func ResourceNameToString(lpszName: PChar):Str;
5649: Func ResourceTypeToString(lpszType: PChar):Str;
5650: Proc storeRCDATAResourcetofile(aresname, afilename:Str);
5651: Func InternalfindNextUrlToDownload(aNode: TPageNotYetDownloadedBinTreeNode; '+
5652: alowDeepLevel: Integer): TPageNotYetDownloadedBinTreeNode;'); //ALWebSpider
5653:
5654: Proc SIRegister_xrtl_math_Int(CL: TPSPascalCompiler);
5655: begin
5656: AddTypeS('TXRTLInt', 'array of Int
5657: AddClassN(FindClass('TOBJECT'),'EXRTLMathException
5658: (FindClass('TOBJECT'),'EXRTLExtendInvalidArgument
5659: AddClassN(FindClass('TOBJECT'),'EXRTLDivisionByZero
5660: AddClassN(FindClass('TOBJECT'),'EXRTLExpInvalidArgument
5661: AddClassN(FindClass('TOBJECT'),'EXRTLInvalidRadix
5662: AddClassN(FindClass('TOBJECT'),'EXRTLInvalidRadixDigit
5663: AddClassN(FindClass('TOBJECT'),'EXRTLRootInvalidArgument
5664: 'BitsPerByte','LongInt'( 8);
5665: BitsPerDigit','LongInt'( 32);
5666: SignBitMask','LongWord( $80000000);
5667: Func XRTLAdjustBits( const ABits : Int) : Int
5668: Func XRTLLength( const AInt : TXRTLInt) : Int
5669: Func XRTLDataBits( const AInt : TXRTLInt) : Int
5670: Proc XRTLBitPosition( const BitIndex : Int; var Index, Mask : Int)
5671: Proc XRTLBitSet( var AInt : TXRTLInt; const BitIndex : Int)
5672: Proc XRTLBitReset( var AInt : TXRTLInt; const BitIndex : Int)
5673: Func XRTLBitGet( const AInt : TXRTLInt; const BitIndex : Int) : Int
5674: Func XRTLBitGetBool( const AInt : TXRTLInt; const BitIndex : Int) :Bool
5675: Func XRTLExtend(const AInt:TXRTLInt;ADataBits:Int;Sign:Int;var AResult:TXRTLInt):Int;
5676: Func XRTLZeroExtend(const AInt:TXRTLInt;ADataBits:Int; var AResult:TXRTLInt):Int;
5677: Func XRTLSignExtend(const AInt:TXRTLInt; ADataBits:Int;var AResult:TXRTLInt):Int;
5678: Func XRTLSignStrip(const AInt:TXRTLInt;var AResult:TXRTLInt;const AMinDataBits:Int):Int;
5679: Proc XRTLNot( const AInt : TXRTLInt; var AResult : TXRTLInt)
5680: Proc XRTLOr( const AInt1, AInt2 : TXRTLInt; var AResult : TXRTLInt)
5681: Proc XRTLAnd( const AInt1, AInt2 : TXRTLInt; var AResult : TXRTLInt)
5682: Proc XRTLXor( const AInt1, AInt2 : TXRTLInt; var AResult : TXRTLInt)
5683: Func XRTLSign( const AInt : TXRTLInt) : Int
5684: Proc XRTLZero( var AInt : TXRTLInt)
5685: Proc XRTLOne( var AInt : TXRTLInt)
5686: Proc XRTLMOne( var AInt : TXRTLInt)
5687: Proc XRTLTwo( var AInt : TXRTLInt)
5688: Func XRTLNeg( const AInt : TXRTLInt; var AResult : TXRTLInt) : Int
5689: Func XRTLAbs( const AInt : TXRTLInt; var AResult : TXRTLInt) : Int
5690: Proc XRTLFullSum( const A, B, C : Int; var Sum, Carry : Int)
5691: Func XRTLAdd( const AInt1, AInt2 : TXRTLInt; var AResult : TXRTLInt) : Int;
5692: Func XRTLAdd1(const AInt1:TXRTLInt;const AInt2:Int64;var AResult:TXRTLInt):Int;
5693: Func XRTLSub( const AInt1, AInt2 : TXRTLInt; var AResult : TXRTLInt) : Int;
5694: Func XRTLSub1(const AInt1:TXRTLInt;const AInt2:Int64;var AResult:TXRTLInt):Int;
5695: Func XRTLCompare( const AInt1, AInt2 : TXRTLInt) : Int;
5696: Func XRTLCompare1( const AInt1 : TXRTLInt; const AInt2 : Int64) : Int;
5697: Func XRTLUMul( const AInt1, AInt2 : TXRTLInt; var AResult : TXRTLInt) : Int
5698: Func XRTLMulAdd(const AInt1,AInt2,AInt3:TXRTLInt; var AResult:TXRTLInt):Int
5699: Func XRTLMul( const AInt1, AInt2 : TXRTLInt; var AResult : TXRTLInt) : Int
5700: Proc XRTLDivMod( const AInt1, AInt2 : TXRTLInt; var QResult, RResult : TXRTLInt)

5701: Proc XRTLSqr( const AInt : TXRTLInt; var AResult : TXRTLInt)

5702: Proc XRTLSqrt( const AInt : TXRTLInt; var AResult : TXRTLInt)
5703: Proc XRTLRoot( const AInt1, AInt2 : TXRTLInt; var AResult : TXRTLInt)
5704: Proc XRTLRootApprox(const AInt1,AInt2:TXRTLInt;var ALowApproxResult,AHighApproxResult:TXRTLInt)
5705: Proc XRTLURootApprox(const AInt1,AInt2:TXRTLInt;var ALowApproxResult,AHighApproxResult:TXRTLInt);
5706: Proc XRTLExp( const AInt1, AInt2 : TXRTLInt; var AResult : TXRTLInt)
5707: Proc XRTLExpMod( const AInt1, AInt2, AInt3 : TXRTLInt;var AResult: TXRTLInt)
5708: Proc XRTLSLBL(const AInt: TXRTLInt; const BitCount:Int; var AResult: TXRTLInt)
5709: Proc XRTLSABL(const AInt: TXRTLInt; const BitCount:Int; var AResult: TXRTLInt)
5710: Proc XRTLRCBL(const AInt: TXRTLInt; const BitCount:Int; var AResult: TXRTLInt)
5711: Proc XRTLSLDL(const AInt:TXRTLInt;const DigitCount:Int; var AResult:TXRTLInt)
5712: Proc XRTLSADL(const AInt: TXRTLInt; const DigitCount:Int;var AResult: TXRTLInt)
5713: Proc XRTLRCDL(const AInt:TXRTLInt; const DigitCount:Int; var AResult: TXRTLInt)
5714: Proc XRTLSLBR(const AInt: TXRTLInt; const BitCount:Int; var AResult: TXRTLInt)
5715: Proc XRTLSABR(const AInt: TXRTLInt; const BitCount:Int; var AResult: TXRTLInt)
5716: Proc XRTLRCBR(const AInt: TXRTLInt; const BitCount:Int; var AResult: TXRTLInt)
5717: Proc XRTLSLDR(const AInt:TXRTLInt; const DigitCount:Int; var AResult: TXRTLInt)
5718: Proc XRTLSADR(const AInt: TXRTLInt; const DigitCount:Int;var AResult: TXRTLInt)
5719: Proc XRTLRCDR(const AInt: TXRTLInt;const DigitCount:Int;var AResult: TXRTLInt)
5720: Func XRTLToHex( const AInt : TXRTLInt; Digits : Int) :Str
5721: Func XRTLToBin( const AInt : TXRTLInt; Digits : Int) :Str
5722: Func XRTLToString(const AInt : TXRTLInt; Radix : Int; Digits : Int) :Str
5723: Proc XRTLFromHex(const Value :Str; var AResult : TXRTLInt)
5724: Proc XRTLFromBin(const Value :Str; var AResult : TXRTLInt)
5725: Proc XRTLFromString(const Value :Str; var AResult : TXRTLInt; Radix : Int)
5726: Proc XRTLAssign( const AInt : TXRTLInt; var AResult : TXRTLInt);
5727: Proc XRTLAssign1(const Value : Int; var AResult : TXRTLInt);
5728: Proc XRTLAssign2(const Value : Int64; var AResult : TXRTLInt);
5729: Proc XRTLAppend( const ALow, AHigh : TXRTLInt; var AResult : TXRTLInt)
5730: Proc XRTLSplit(const AInt: TXRTLInt; var ALow,AHigh: TXRTLInt;LowDigits: Int)
5731: Func XRTLGetMSBitIndex( const AInt : TXRTLInt) : Int
5732: Proc XRTLMinMax(const AInt1, AInt2:TXRTLInt;var AMinResult,AMaxResult: TXRTLInt)
5733: Proc XRTLMin( const AInt1, AInt2 : TXRTLInt; var AResult : TXRTLInt);
5734: Proc XRTLMin1(const AInt1: TXRTLInt;const AInt2:Int;var AResult : TXRTLInt);
5735: Proc XRTLMax( const AInt1, AInt2 : TXRTLInt; var AResult : TXRTLInt);
5736: Proc XRTLMax1(const AInt1:TXRTLInt; const AInt2:Int; var AResult:TXRTLInt);
5737: Proc XRTLGCD( const AInt1, AInt2 : TXRTLInt; var AResult : TXRTLInt)
5738: Proc XRTLSwap( var AInt1, AInt2 : TXRTLInt)
5739: Proc XRTLFactorial( const AInt : TXRTLInt; var AResult : TXRTLInt)
5740: Proc XRTLFactorialMod( const AInt1, AInt2 : TXRTLInt; var AResult : TXRTLInt)
5741: end;
5742:
5743: Proc SIRegister_JvXPCoreUtils(CL: TPSPascalCompiler);
5744: begin
5745: Func JvXPMethodsEqual( const Method1, Method2 : TMethod) :Bool
5746: Proc JvXPDrawLine( const ACanvas : TCanvas; const X1, Y1, X2, Y2 : Int)
5747: Proc JvXPCreateGradientRect( const AWidth, AHeight : Int; const StartColor, EndColor : TColor;const
Colors:TJvXPGradientColors;const Style:TJvXPGradientStyle;const Dithered:Bool;var Bitmap:TBitmap);
5748: Proc JvXPAdjustBoundRect(const BorderWidth:Byte;const ShowBoundLines:Boolean; const
BoundLines:TJvXPBoundLines; var Rect: TRect)
5749: Proc JvXPDrawBoundLines(const ACan:TCanvas;const BoundLns:TJvXPBoundLins;const AColor:TColor;Rect:TRect;
5750: Proc JvXPConvertToGray2( Bitmap : TBitmap)
5751: Proc JvXPRenderText(const AParent:TControl;const ACanvas:TCanvas;ACaption:TCaption;const
AFont:TFont;const AEnabled,AShowAccelChar:Bool;var ARect:TRect;AFlags:Int)
5752: Proc JvXPFrame3D(const ACanvas:TCanvas;const Rect:TRect; TopColor,BottomColor:TColor;const Swapped:Bool;
5753: Proc JvXPColorizeBitmap( Bitmap : TBitmap; const AColor : TColor)
5754: Proc JvXPSetDrawFlags(const AAlignment:TAlignment;const AWordWrap:Bool;var Flags: Int)
5755: Proc JvXPPlaceText( const AParent: TControl; const ACanvas : TCanvas; const AText : TCaption; const AFont
: TFont; const AEnabled,AShowAccelChar:Boolean;const AAlignment:TAlignment;const AWordWrap:Boolean;var
Rect:TRect)
5756: end;
5757:
5758: Proc SIRegister_uwinstr(CL: TPSPascalCompiler);
5759: begin
5760: Func StrDec(S :Str) :Str
5761: Func uIsNumeric( var S :Str; var X : Float) :Bool
5762: Func ReadNumFromEdit( Edit : TEdit) : Float
5763: Proc WriteNumToFile( var F : Text; X : Float)
5764: end;
5765:
5766: Proc SIRegister_utexplot(CL: TPSPascalCompiler);
5767: begin
5768: Func TeX_InitGraphics(FileName:str;PgWidth,PgHeight:Int; Header:Boolean):Boolean
5769: Proc TeX_SetWindow( X1, X2, Y1, Y2 : Int; GraphBorder :Bool)
5770: Proc TeX_LeaveGraphics( Footer :Bool)
5771: Proc TeX_SetOxScale( Scale : TScale; OxMin, OxMax, OxStep : Float)
5772: Proc TeX_SetOyScale( Scale : TScale; OyMin, OyMax, OyStep : Float)
5773: Proc TeX_SetGraphTitle( Title :Str)
5774: Proc TeX_SetOxTitle( Title :Str)
5775: Proc TeX_SetOyTitle( Title :Str)
5776: Proc TeX_PlotOxAxis
5777: Proc TeX_PlotOyAxis
5778: Proc TeX_PlotGrid( Grid : TGrid)
5779: Proc TeX_WriteGraphTitle
5780: Func TeX_SetMaxCurv( NCurv : Byte) :Bool
5781: Proc TeX_SetPointParam( CurvIndex, Symbol, Size : Int)
5782: Proc TeX_SetLineParam( CurvIndex, Style : Int; Width : Float; Smooth :Bool)
5783: Proc TeX_SetCurvLegend( CurvIndex : Int; Legend :Str)
5784: Proc TeX_SetCurvStep( CurvIndex, Step : Int)

5785: Proc TeX_PlotCurve( X, Y : TVector; Lb, Ub, CurvIndex : Int)

5786: Proc TeX_PlotCurveWithErrorBars( X, Y, S : TVector; Ns, Lb, Ub, CurvIndex : Int)
5787: Proc TeX_PlotFunc( Func : TFunc; X1, X2 : Float; Npt : Int; CurvIndex : Int)
5788: Proc TeX_WriteLegend( NCurv : Int; ShowPoints, ShowLines :Bool)
5789: Proc TeX_ConRec( Nx, Ny, Nc : Int; X, Y, Z : TVector; F : TMatrix)
5790: Func Xcm(X : Float) : Float
5791: Func Ycm(Y : Float) : Float
5792: end;
5793:
5794: *----------------------------------------------------------------------------*)
5795: Proc SIRegister_VarRecUtils(CL: TPSPascalCompiler);
5796: begin
5797: TConstArray', 'array of TVarRec
5798: Func CopyVarRec( const Item : TVarRec) : TVarRec
5799: Func CreateConstArray( const Elements : array of const) : TConstArray
5800: Proc FinalizeVarRec( var Item : TVarRec)
5801: Proc FinalizeConstArray( var Arr : TConstArray)
5802: end;
5803:
5804: Proc SIRegister_StStrS(CL: TPSPascalCompiler);
5805: begin
5806: Func HexBS( B : Byte) : ShortString
5807: Func HexWS( W : Word) : ShortString
5808: Func HexLS( L : LongInt) : ShortString
5809: Func HexPtrS( P : Pointer) : ShortString
5810: Func BinaryBS( B : Byte) : ShortString
5811: Func BinaryWS( W : Word) : ShortString
5812: Func BinaryLS( L : LongInt) : ShortString
5813: Func OctalBS( B : Byte) : ShortString
5814: Func OctalWS( W : Word) : ShortString
5815: Func OctalLS( L : LongInt) : ShortString
5816: Func Str2Int16S( const S : ShortString; var I : SmallInt) :Bool
5817: Func Str2WordS(const S: ShortString; var I : Word) :Bool
5818: Func Str2LongS(const S: ShortString; var I : LongInt) :Bool
5819: Func Str2RealS(const S: ShortString; var R : Double) :Bool
5820: Func Str2RealS(const S: ShortString; var R : Real) :Bool
5821: Func Str2ExtS(const S : ShortString; var R : Extended) :Bool
5822: Func Long2StrS( L : LongInt) : ShortString
5823: Func Real2StrS( R : Double; Width : Byte; Places : ShortInt) : ShortString
5824: Func Ext2StrS( R : Extended; Width : Byte; Places : ShortInt) : ShortString
5825: Func ValPrepS( const S : ShortString) : ShortString
5826: Func CharStrS( C : AnsiChar; Len :Card) : ShortString
5827: Func PadChS( const S : ShortString; C : AnsiChar; Len :Card):ShortString
5828: Func PadS( const S : ShortString; Len :Card) : ShortString
5829: Func LeftPadChS( const S : ShortString; C : AnsiChar; Len :Card):ShortString
5830: Func LeftPadS( const S : ShortString; Len :Card) : ShortString
5831: Func TrimLeadS( const S : ShortString) : ShortString
5832: Func TrimTrailS( const S : ShortString) : ShortString
5833: Func TrimS( const S : ShortString) : ShortString
5834: Func TrimSpacesS( const S : ShortString) : ShortString
5835: Func CenterChS( const S : ShortString; C : AnsiChar; Len :Card): ShortString
5836: Func CenterS( const S : ShortString; Len :Card) : ShortString
5837: Func EntabS( const S : ShortString; TabSize : Byte) : ShortString
5838: Func DetabS( const S : ShortString; TabSize : Byte) : ShortString
5839: Func ScrambleS( const S, Key : ShortString) : ShortString
5840: Func SubstituteS( const S, FromStr, ToStr : ShortString) : ShortString
5841: Func FilterS( const S, Filters : ShortString) : ShortString
5842: Func CharExistsS( const S : ShortString; C : AnsiChar) :Bool
5843: Func CharCountS( const S : ShortString; C : AnsiChar) : Byte
5844: Func WordCountS( const S, WordDelims : ShortString) :Card
5845: Func WordPositionS(N:Card;const S, WordDelims:ShortString;var Pos:Card):Bool
5846: Func ExtractWordS( N :Card; const S, WordDelims : ShortString) : ShortString
5847: Func AsciiCountS( const S, WordDelims : ShortString; Quote : AnsiChar) :Card
5848: Func AsciiPositionS(N:Card;const S,WordDelims:ShortStr;Quote:AnsiChar;var Pos:Card):Bool
5849: Func ExtractAsciiS(N:Card;const S,WordDelims:ShortString;Quote:AnsiChar): ShortString
5850: Proc WordWrapS(const InSt:ShortString;var OutSt,Overlap:ShortString; Margin:Card;PadToMargin:Bool)
5851: Func CompStringS( const S1, S2 : ShortString) : Int
5852: Func CompUCStringS( const S1, S2 : ShortString) : Int
5853: Func SoundexS( const S : ShortString) : ShortString
5854: Func MakeLetterSetS( const S : ShortString) : Longint
5855: Proc BMMakeTableS( const MatchString : ShortString; var BT : BTable)
5856: Func BMSearchS(var Buffer,BufLength:Card;var BT:BTable;const MatchString:ShortString;var Pos:Card):Bool;
5857: Func BMSearchUCS(var Buffer,BufLength:Card;var BT:BTable;const MatchStr:ShortStr;var Pos:Card):Bool;
5858: Func DefaultExtensionS( const Name, Ext : ShortString) : ShortString
5859: Func ForceExtensionS( const Name, Ext : ShortString) : ShortString
5860: Func JustFilenameS( const PathName : ShortString) : ShortString
5861: Func JustNameS( const PathName : ShortString) : ShortString
5862: Func JustExtensionS( const Name : ShortString) : ShortString
5863: Func JustPathnameS( const PathName : ShortString) : ShortString
5864: Func AddBackSlashS( const DirName : ShortString) : ShortString
5865: Func CleanPathNameS( const PathName : ShortString) : ShortString
5866: Func HasExtensionS( const Name : ShortString; var DotPos :Card):Bool
5867: Func CommaizeS( L : LongInt) : ShortString
5868: Func CommaizeChS( L : Longint; Ch : AnsiChar) : ShortString
5869: Func FloatFormS(const Mask:ShortStr;R:TstFloat;const LtCurr,RtCurr:SString;Sep,DecPt:Char):ShortStr;
5870: Func LongIntFormS(const Mask:ShortString;L:LongInt;const LtCurr,
RtCurr:ShortString;Sep:AnsiChar):ShortString;
5871: Func StrChPosS( const P : ShortString; C : AnsiChar; var Pos :Card) :Bool
5872: Func StrStPosS( const P, S : ShortString; var Pos :Card) :Bool

5873: Func StrStCopyS( const S : ShortString; Pos, Count :Card) : ShortString

5874: Func StrChInsertS(const S : ShortString; C : AnsiChar; Pos :Card):ShortString
5875: Func StrStInsertS(const S1, S2 : ShortString; Pos :Card) : ShortString
5876: Func StrChDeleteS(const S: ShortString; Pos :Card) : ShortString
5877: Func StrStDeleteS(const S: ShortString; Pos, Count :Card) : ShortString
5878: Func ContainsOnlyS(const S, Chars : ShortString; var BadPos :Card) : Bool
5879: Func ContainsOtherThanS( const S, Chars : ShortString; var BadPos :Card): Bool
5880: Func CopyLeftS( const S : ShortString; Len :Card) : ShortString
5881: Func CopyMidS( const S : ShortString; First, Len :Card) : ShortString
5882: Func CopyRightS( const S : ShortString; First :Card) : ShortString
5883: Func CopyRightAbsS( const S : ShortString; NumChars :Card) : ShortString
5884: Func CopyFromNthWordS(const S,WordDelims:str;const AWord:str;N:Card;var SubString:ShortString):Bool;
5885: Func DeleteFromNthWordS(const S,WordDelims:str;AWord:ShortString;N:Card;var SubStr:ShortString):Bool;
5886: Func CopyFromToWordS(const S,WordDelims,Word1,Word2:ShortString;N1,N2:Card;var
SubString:ShortString):Bool;
5887: Func DeleteFromToWordS(const S,WordDelims,Wrd1,Wrd2:ShortString;N1,N2:Card;var
SubString:ShortString):Bool;
5888: Func CopyWithinS( const S, Delimiter : ShortString; Strip :Bool) : ShortString
5889: Func DeleteWithinS( const S, Delimiter : ShortString) : ShortString
5890: Func ExtractTokensS(const S,Delims:ShortString;QuoteChar:AnsiChar;AllowNulls:Bool;Tokens:TStrings):Card
5891: Func IsChAlphaS( C : Char) :Bool
5892: Func IsChNumericS( C : Char; const Numbers : ShortString) :Bool
5893: Func IsChAlphaNumericS( C : Char; const Numbers : ShortString) :Bool
5894: Func IsStrAlphaS( const S : Shortstring) :Bool
5895: Func IsStrNumericS( const S, Numbers : ShortString) :Bool
5896: Func IsStrAlphaNumericS( const S, Numbers : ShortString) :Bool
5897: Func LastWordS(const S,WordDelims, AWord:ShortString; var Position :Card) :Bool
5898: Func LastWordAbsS( const S, WordDelims : ShortString; var Position :Card) :Bool
5899: Func LastStringS( const S, AString : ShortString; var Position :Card) :Bool
5900: Func LeftTrimCharsS( const S, Chars : ShortString) : ShortString
5901: Func KeepCharsS( const S, Chars : ShortString) : ShortString
5902: Func RepeatStringS(const RepeatString:ShortStr;var Repetitions:Card;MaxLen:Card):ShortStr;
5903: Func ReplaceStringS(const S,OldStr,NewStr:ShortString;N:Card;var Replacements:Card):ShortString;
5904: Func ReplaceStringAllS(const S,OldString,NewString:ShortString;var Replacements:Card):ShortString;
5905: Func ReplaceWordS(const S,WordDelims,OldWord,NewW:SString;N:Card;var Replacements:Card):ShortString
5906: Func ReplaceWordAllS(const S,WordDelims,OldWord,NewWord:ShortString;var Replacements:Card):ShortString
5907: Func RightTrimCharsS( const S, Chars : ShortString) : ShortString
5908: Func StrWithinS(const S,SearchStr: ShortString;Start:Card;var Position:Card):bool
5909: Func TrimCharsS( const S, Chars : ShortString) : ShortString
5910: Func WordPosS(const S,WordDelims,AWord:ShortString;N:Card;var Position:Card):Bool
5911: end;
5912:
5913: ********unit uPSI_StUtils; from Systools4***************************************
5914: Func SignL( L : LongInt) : Int
5915: Func SignF( F : Extended) : Int
5916: Func MinWord(A, B : Word) : Word
5917: Func MidWord(W1, W2, W3 : Word) : Word
5918: Func MaxWord(A, B : Word) : Word
5919: Func MinLong(A, B : LongInt) : LongInt
5920: Func MidLong(L1, L2, L3 : LongInt) : LongInt
5921: Func MaxLong(A, B : LongInt) : LongInt
5922: Func MinFloat(F1, F2 : Extended) : Extended
5923: Func MidFloat(F1, F2, F3 : Extended) : Extended
5924: Func MaxFloat(F1, F2 : Extended) : Extended
5925: Func MakeInt16( H, L : Byte) : SmallInt
5926: Func MakeWordS( H, L : Byte) : Word
5927: Func SwapNibble( B : Byte) : Byte
5928: Func SwapWord( L : LongInt) : LongInt
5929: Proc SetFlag( var Flags : Word; FlagMask : Word)
5930: Proc ClearFlag( var Flags : Word; FlagMask : Word)
5931: Func FlagIsSet( Flags, FlagMask : Word) :Bool
5932: Proc SetByteFlag( var Flags : Byte; FlagMask : Byte)
5933: Proc ClearByteFlag( var Flags : Byte; FlagMask : Byte)
5934: Func ByteFlagIsSet( Flags, FlagMask : Byte) :Bool
5935: Proc SetLongFlag( var Flags : LongInt; FlagMask : LongInt)
5936: Proc ClearLongFlag( var Flags : LongInt; FlagMask : LongInt)
5937: Func LongFlagIsSet( Flags, FlagMask : LongInt) :Bool
5938: Proc ExchangeBytes( var I, J : Byte)
5939: Proc ExchangeWords( var I, J : Word)
5940: Proc ExchangeLongInts( var I, J : LongInt)
5941: Proc ExchangeStructs( var I, J, Size :Card)
5942: Proc FillWord( var Dest, Count :Card; Filler : Word)
5943: Proc FillStruct( var Dest, Count :Card; var Filler, FillerSize :Card)
5944: Func AddWordToPtr( P : ___Pointer; W : Word) : ___Pointer
5945: //******************uPSI_StFIN;************************************************
5946: Func AccruedInterestMaturity(Issue,Maturity:TStDate;Rate,Par:Extended;Basis:TStBasis): Extended
5947: Func AccruedInterestPeriodic(Issue,Settlement,Maturity:TStDate;Rate,Par:Extended;Frequency:TStFrequency;
Basis : TStBasis): Extended
5948: Func BondDuration( Settlement,Maturity:TStDate;Rate,
Yield:Ext;Frequency:TStFrequency;Basis:TStBasis):Extended;
5949: Func BondPrice(Settlement,Maturity:TStDate;Rate,Yield,
Redempt:Ext;Freq:TStFrequency;Basis:TStBasis):Extended
5950: Func CumulativeInterest(Rate:Extended;NPeriods:Int;PV:Extended;StartPeriod,
EndPeriod:Int;Frequency:TStFrequency; Timing:TStPaymentTime):Extended
5951: Func CumulativePrincipal(Rate: Extended;NPeriods:Int;PV:Extended;StartPeriod,
EndPeriod:Int;Frequency:TStFrequency;Timing:TStPaymentTime):Extended
5952: Func DayCount( Day1, Day2 : TStDate; Basis : TStBasis) : LongInt
5953: Func DecliningBalance( Cost, Salvage : Extended; Life, Period, Month : Int) : Extended
5954: Func DiscountRate(Settlement,Maturity:TStDate;Price,Redemption:Extended;Basis:TStBasis): Extended;

5955: Func DollarToDecimal( FracDollar : Extended; Fraction : Int) : Extended

5956: Func DollarToDecimalText( DecDollar : Extended) :Str
5957: Func DollarToFraction( DecDollar : Extended; Fraction : Int) : Extended
5958: Func DollarToFractionStr( FracDollar : Extended; Fraction : Int) :Str
5959: Func EffectiveInterestRate( NominalRate : Extended; Frequency : TStFrequency) : Extended
5960: Func FutureValueS(Rate:Extended;NPeriods:Int;Pmt,PV:Extended;Freq:TStFreq;Timing:TStPaymentTime):Extended;
5961: Func FutureValueSchedule( Principal : Extended; const Schedule : array of Double) : Extended
5962: Func FutureValueSchedule16( Principal : Extended; const Schedule, NRates : Int) : Extended
5963: Func InterestRateS(NPeriods:Int;Pmt,PV,
FV:Extended;Freq:TStFrequency;Timing:TStPaymentTime;Guess:Extended):Extend;
5964: Func InternalRateOfReturn( const Values : array of Double; Guess : Extended) : Extended
5965: Func InternalRateOfReturn16( const Values, NValues : Int; Guess : Extended) : Extended
5966: Func IsCardValid( const S :Str) :Bool
5967: Func ModifiedDuration(Settlement,Maturity:TStDate;Rate,
Yield:Extend;Freq:TStFrequency;Basis:TStBasis):Extended;
5968: Func ModifiedIRR(const Values:array of Double;FinanceRate,ReinvestRate:Extended): Extended
5969: Func ModifiedIRR16(const Values,NValues:Int; FinanceRate,ReinvestRate: Extended): Extended
5970: Func NetPresentValueS( Rate : Extended; const Values : array of Double) : Extended
5971: Func NetPresentValue16( Rate : Extended; const Values, NValues : Int) : Extended
5972: Func NominalInterestRate( EffectRate : Extended; Frequency : TStFrequency) : Extended
5973: Func NonperiodicIRR(const Values:array of Double;const Dates:array of TStDate;Guess:Extended):Extended;
5974: Func NonperiodicNPV(Rate:Extended;const Values: array of Double;const Dates:array of TStDate):Extended;
5975: Func Payment(Rate:Extended;NPeriods:Int;PV
FV:Extended;Frequency:TStFrequency;Timing:TStPaymentTime):Extended
5976: Func Periods(Rate:Extended;Pmt,PV,FV:Extended;Frequency:TStFrequency;Timing:TStPaymentTime):Int;
5977: Func PresentValueS(Rate:Extended;NPeriods:Int;Pmt,
FV:Extended;Frequency:TStFrequency;Timing:TStPaymentTime):Extended
5978: Func ReceivedAtMaturity(Settlement,Maturity:TStDate;Invest,Discount:Extended;Basis:TStBasis):Extended;
5979: Func RoundToDecimal( Value : Extended; Places : Int; Bankers :Bool) : Extended
5980: Func TBillEquivYield( Settlement, Maturity : TStDate; Discount : Extended) : Extended
5981: Func TBillPrice( Settlement, Maturity : TStDate; Discount : Extended) : Extended
5982: Func TBillYield( Settlement, Maturity : TStDate; Price : Extended) : Extended
5983: Func VariableDecliningBalance(Cost,Salvage:Extended;Life:Int;StartPeriod,EndPeriod,
Factor:Extended;NoSwitch:bool):Extended
5984: Func YieldDiscounted(Settlement,Maturity:TStDate;Price,Redemption:Exted;Basis:TStBasis):Extended;
5985: Func YieldPeriodic(Settlement,Maturity:TStDate;Rate,Price,
Redemption:Extended;Freq:TStFrequency;Basis:TStBasis):Extended
5986: Func YieldMaturity(Issue,Settlement,Maturity:TStDate;Rate,Price:Extended;Basis:TStBasis):Extended;
5987:
5988: //********************************************unit uPSI_StAstroP;
5989: Proc PlanetsPos( JD : Double; var PA : TStPlanetsArray)
5990: //*****unit unit uPSI_StStat; Statistic Package of SysTools********************
5991: Func AveDev( const Data : array of Double) : Double
5992: Func AveDev16( const Data, NData : Int) : Double
5993: Func Confidence( Alpha, StandardDev : Double; Size : LongInt) : Double
5994: Func Correlation( const Data1, Data2 : array of Double) : Double
5995: Func Correlation16( const Data1, Data2, NData : Int) : Double
5996: Func Covariance( const Data1, Data2 : array of Double) : Double
5997: Func Covariance16( const Data1, Data2, NData : Int) : Double
5998: Func DevSq( const Data : array of Double) : Double
5999: Func DevSq16( const Data, NData : Int) : Double
6000: Proc Frequency(const Data:array of Double;const Bins:array of Double;var Counts:array of LongInt);
6001: //Proc Frequency16( const Data, NData : Int; const Bins, NBins : Int; var Counts)
6002: Func GeometricMeanS( const Data : array of Double) : Double
6003: Func GeometricMean16( const Data, NData : Int) : Double
6004: Func HarmonicMeanS( const Data : array of Double) : Double
6005: Func HarmonicMean16( const Data, NData : Int) : Double
6006: Func Largest( const Data : array of Double; K : Int) : Double
6007: Func Largest16( const Data, NData : Int; K : Int) : Double
6008: Func MedianS( const Data : array of Double) : Double
6009: Func Median16( const Data, NData : Int) : Double
6010: Func Mode( const Data : array of Double) : Double
6011: Func Mode16( const Data, NData : Int) : Double
6012: Func Percentile( const Data : array of Double; K : Double) : Double
6013: Func Percentile16( const Data, NData : Int; K : Double) : Double
6014: Func PercentRank( const Data : array of Double; X : Double) : Double
6015: Func PercentRank16( const Data, NData : Int; X : Double) : Double
6016: Func Permutations( Number, NumberChosen : Int) : Extended
6017: Func Combinations( Number, NumberChosen : Int) : Extended
6018: Func FactorialS( N : Int) : Extended
6019: Func Rank( Number : Double; const Data : array of Double; Ascending: Bool) : Int
6020: Func Rank16( Number : Double; const Data, NData : Int; Ascending : Bool) : Int
6021: Func Smallest( const Data : array of Double; K : Int) : Double
6022: Func Smallest16( const Data, NData : Int; K : Int) : Double
6023: Func TrimMean( const Data : array of Double; Percent : Double) : Double
6024: Func TrimMean16( const Data, NData : Int; Percent : Double) : Double
6025: AddTypeS('TStLinEst', 'record B0:Double; B1 : double; seB0 : double; seB'
6026: +1 : Double; R2: Double;sigma :Double;SSr:double;SSe: Double; F0:Double;df:Int;end
6027: Proc LinEst(const KnownY:array of Double;const KnownX:array of Double;var LF:TStLinEst;ErrorStats:Bool;
6028: Proc LogEst(const KnownY:array of Double;const KnownX:array of Double;var LF:TStLinEst;ErrorStats:Bool;
6029: Func Forecast(X: Double;const KnownY: array of Double;const KnownX:array of Double):Double
6030: Func ForecastExponential(X:Double;const KnownY:array of Double;const KnownX:array of Double):Double
6031: Func Intercept( const KnownY : array of Double; const KnownX : array of Double) : Double
6032: Func RSquared( const KnownY : array of Double; const KnownX : array of Double) : Double
6033: Func Slope( const KnownY : array of Double; const KnownX : array of Double) : Double
6034: Func StandardErrorY(const KnownY: array of Double;const KnownX:array of Double):Double
6035: Func BetaDist( X, Alpha, Beta, A, B : Single) : Single
6036: Func BetaInv( Probability, Alpha, Beta, A, B : Single) : Single
6037: Func BinomDist(NumberS,Trials: Int; ProbabilityS : Single;Cumulative:Bool):Single

6038: Func CritBinom( Trials : Int; ProbabilityS, Alpha : Single) : Int

6039: Func ChiDist( X : Single; DegreesFreedom : Int) : Single
6040: Func ChiInv( Probability : Single; DegreesFreedom : Int) : Single
6041: Func ExponDist( X, Lambda : Single; Cumulative :Bool) : Single
6042: Func FDist( X : Single; DegreesFreedom1, DegreesFreedom2 : Int) : Single
6043: Func FInv( Probability : Single; DegreesFreedom1, DegreesFreedom2 : Int) : Single
6044: Func LogNormDist( X, Mean, StandardDev : Single) : Single
6045: Func LogInv( Probability, Mean, StandardDev : Single) : Single
6046: Func NormDist( X, Mean, StandardDev : Single; Cumulative :Bool) : Single
6047: Func NormInv( Probability, Mean, StandardDev : Single) : Single
6048: Func NormSDist( Z : Single) : Single
6049: Func NormSInv( Probability : Single) : Single
6050: Func Poisson( X : Int; Mean : Single; Cumulative :Bool) : Single
6051: Func TDist( X : Single; DegreesFreedom : Int; TwoTails :Bool) : Single
6052: Func TInv( Probability : Single; DegreesFreedom : Int) : Single
6053: Func Erfc( X : Single) : Single
6054: Func GammaLn( X : Single) : Single
6055: Func LargestSort( const Data : array of Double; K : Int) : Double
6056: Func SmallestSort( const Data: array of double; K : Int) : Double
6057:
6058: Proc SIRegister_TStSorter(CL: TPSPascalCompiler);
6059: Func OptimumHeapToUse( RecLen :Card; NumRecs : LongInt) : LongInt
6060: Func MinimumHeapToUse( RecLen :Card) : LongInt
6061: Func MergeInfo( MaxHeap : LongInt; RecLen :Card; NumRecs : LongInt) : TMergeInfo
6062: Func DefaultMergeName( MergeNum : Int) :Str
6063: Proc ArraySort( var A, RecLen, NumRecs :Card; Compare:TUntypedCompareFunc)
6064: Proc SIRegister_StAstro(CL: TPSPascalCompiler);
6065: Func AmountOfSunlight( LD : TStDate; Longitude, Latitude : Double) : TStTime
6066: Func FixedRiseSet( LD : TStDate; RA, DC, Longitude, Latitude : Double) : TStRiseSetRec
6067: Func SunPos( UT : TStDateTimeRec) : TStPosRec
6068: Func SunPosPrim( UT : TStDateTimeRec) : TStSunXYZRec
6069: Func SunRiseSet( LD : TStDate; Longitude, Latitude : Double) : TStRiseSetRec
6070: Func Twilight(LD:TStDate; Longitude,Latitude:Double;TwiType:TStTwilight):TStRiseSetRec
6071: Func LunarPhase( UT : TStDateTimeRec) : Double
6072: Func MoonPos( UT : TStDateTimeRec) : TStMoonPosRec
6073: Func MoonRiseSet( LD : TStDate; Longitude, Latitude : Double) : TStRiseSetRec
6074: Func FirstQuarter( D : TStDate) : TStLunarRecord
6075: Func FullMoon( D : TStDate) : TStLunarRecord
6076: Func LastQuarter( D : TStDate) : TStLunarRecord
6077: Func NewMoon( D : TStDate) : TStLunarRecord
6078: Func NextFirstQuarter( D : TStDate) : TStDateTimeRec
6079: Func NextFullMoon( D : TStDate) : TStDateTimeRec
6080: Func NextLastQuarter( D : TStDate) : TStDateTimeRec
6081: Func NextNewMoon( D : TStDate) : TStDateTimeRec
6082: Func PrevFirstQuarter( D : TStDate) : TStDateTimeRec
6083: Func PrevFullMoon( D : TStDate) : TStDateTimeRec
6084: Func PrevLastQuarter( D : TStDate) : TStDateTimeRec
6085: Func PrevNewMoon( D : TStDate) : TStDateTimeRec
6086: Func SiderealTime( UT : TStDateTimeRec) : Double
6087: Func Solstice( Y, Epoch : Int; Summer :Bool) : TStDateTimeRec
6088: Func Equinox( Y, Epoch : Int; Vernal :Bool) : TStDateTimeRec
6089: Func SEaster( Y, Epoch : Int) : TStDate
6090: Func DateTimeToAJD( D : TDateTime) : Double
6091: Func HoursMin( RA : Double) : ShortString
6092: Func DegsMin( DC : Double) : ShortString
6093: Func AJDToDateTime( D : Double) : TDateTime
6094:
6095: Proc SIRegister_StDate(CL: TPSPascalCompiler);
6096: Func CurrentDate : TStDate
6097: Func StValidDate( Day, Month, Year, Epoch : Int) :Bool
6098: Func DMYtoStDate( Day, Month, Year, Epoch : Int) : TStDate
6099: Proc StDateToDMY( Julian : TStDate; var Day, Month, Year : Int)
6100: Func StIncDate( Julian : TStDate; Days, Months, Years : Int) : TStDate
6101: Func IncDateTrunc( Julian : TStDate; Months, Years : Int) : TStDate
6102: Proc StDateDiff( Date1, Date2 : TStDate; var Days, Months, Years : Int)
6103: Func BondDateDiff( Date1, Date2 : TStDate; DayBasis : TStBondDateType) : TStDate
6104: Func WeekOfYear( Julian : TStDate) : Byte
6105: Func AstJulianDate( Julian : TStDate) : Double
6106: Func AstJulianDatetoStDate( AstJulian : Double; Truncate :Bool) : TStDate
6107: Func AstJulianDatePrim( Year, Month, Date : Int; UT : TStTime) : Double
6108: Func StDayOfWeek( Julian : TStDate) : TStDayType
6109: Func DayOfWeekDMY( Day, Month, Year, Epoch : Int) : TStDayType
6110: Func StIsLeapYear( Year : Int) :Bool
6111: Func StDaysInMonth( Month : Int; Year, Epoch : Int) : Int
6112: Func ResolveEpoch( Year, Epoch : Int) : Int
6113: Func ValidTime( Hours, Minutes, Seconds : Int) :Bool
6114: Proc StTimeToHMS( T : TStTime; var Hours, Minutes, Seconds : Byte)
6115: Func HMStoStTime( Hours, Minutes, Seconds : Byte) : TStTime
6116: Func CurrentTime : TStTime
6117: Proc TimeDiff( Time1, Time2 : TStTime; var Hours, Minutes, Seconds : Byte)
6118: Func StIncTime( T : TStTime; Hours, Minutes, Seconds : Byte) : TStTime
6119: Func DecTime( T : TStTime; Hours, Minutes, Seconds : Byte) : TStTime
6120: Func RoundToNearestHour( T : TStTime; Truncate :Bool) : TStTime
6121: Func RoundToNearestMinute( const T : TStTime; Truncate :Bool) : TStTime
6122: Proc DateTimeDiff(const DT1:TStDateTimeRec;var DT2:TStDateTimeRec;var Days:LongInt;var Secs:LongInt
6123: Proc IncDateTime(const DT1:TStDateTimeRec;var DT2:TStDateTimeRec;Days:Int;Secs:LongInt)
6124: Func DateTimeToStDate(DT : TDateTime) : TStDate
6125: Func DateTimeToStTime(DT : TDateTime) : TStTime
6126: Func StDateToDateTime(D : TStDate) : TDateTime

6127: Func StTimeToDateTime(T : TStTime) : TDateTime

6128: Func Convert2ByteDate(TwoByteDate : Word) : TStDate
6129: Func Convert4ByteDate(FourByteDate : TStDate) : Word
6130:
6131: Proc SIRegister_StDateSt(CL: TPSPascalCompiler);
6132: Func DateStringHMStoAstJD( const Picture, DS :Str; H, M, S, Epoch : Int) : Double
6133: Func MonthToString( const Month : Int) :Str
6134: Func DateStringToStDate( const Picture, S :Str; Epoch : Int) : TStDate
6135: Func DateStringToDMY(const Picture,S:str; Epoch:Int; var D, M, Y : Int):Boolean
6136: Func StDateToDateString( const Picture:str;const Julian:TStDate;Pack:Bool):str
6137: Func DayOfWeekToString( const WeekDay : TStDayType) :Str
6138: Func DMYtoDateString(const Picture:str;Day,Month,Year,Epoch:Int;Pack:Boolean):str);
6139: Func CurrentDateString( const Picture :Str; Pack :Bool) :Str
6140: Func CurrentTimeString( const Picture :Str; Pack :Bool) :Str
6141: Func TimeStringToHMS( const Picture, St :Str; var H, M, S : Int) :Bool
6142: Func TimeStringToStTime( const Picture, S :Str) : TStTime
6143: Func StTimeToAmPmString(const Picture:str; const T:TStTime; Pack:Bool) :Str
6144: Func StTimeToTimeString(const Picture:Str; const T:TStTime;Pack :Bool) :Str
6145: Func DateStringIsBlank( const Picture, S :Str) :Bool
6146: Func InternationalDate( ForceCentury :Bool) :Str
6147: Func InternationalLongDate( ShortNames :Bool; ExcludeDOW :Bool) :Str
6148: Func InternationalTime( ShowSeconds :Bool) :Str
6149: Proc ResetInternationalInfo
6150:
6151: Proc SIRegister_StBase(CL: TPSPascalCompiler);
6152: Func DestroyNode( Container : TStContainer; Node : TStNode; OtherData : Pointer) :Bool
6153: Func AnsiUpperCaseShort32( const S :Str) :Str
6154: Func AnsiCompareTextShort32( const S1, S2 :Str) : Int
6155: Func AnsiCompareStrShort32( const S1, S2 :Str) : Int
6156: Func HugeCompressRLE( const InBuffer, InLen : Longint; var OutBuffer) : Longint
6157: Func HugeDecompressRLE(const InBuffer,InLen:Longint;var OutBuffer,OutLen:LongInt):Longint
6158: Proc HugeFillChar( var Dest, Count : Longint; Value : Byte)
6159: Proc HugeFillStruc( var Dest, Count : Longint; const Value, ValSize :Card)
6160: Func Upcase( C : AnsiChar) : AnsiChar
6161: Func LoCase( C : AnsiChar) : AnsiChar
6162: Func CompareLetterSets( Set1, Set2 : LongInt) :Card
6163: Func CompStruct( const S1, S2, Size :Card) : Int
6164: Func Search(const Buffer,BufLength:Card;const Match,MatLength:Card;var Pos:Cardi):Bool;
6165: Func StSearch(const Buff,BufLength:Card;const Match,MatLength:Card;var Pos:Cardi):Bool
6166: Func SearchUC(const Buff,BufLength:Card;const Match,MatLength:Card;var Pos:Cardi):Bool
6167: Func IsOrInheritsFrom( Root, Candidate : TClass) :Bool
6168: Proc RaiseContainerError( Code : longint)
6169: Proc RaiseContainerErrorFmt( Code : Longint; Data : array of const)
6170: Func ProductOverflow( A, B : LongInt) :Bool
6171: Func StNewStr( S :Str) : PShortString
6172: Proc StDisposeStr( PS : PShortString)
6173: Proc ValLongInt( S : ShortString; var LI : Longint; var ErrorCode : Int)
6174: Proc ValSmallint( const S : ShortString; var SI : smallint; var ErrorCode : Int)
6175: Proc ValWord( const S : ShortString; var Wd : word; var ErrorCode : Int)
6176: Proc RaiseStError( ExceptionClass : EStExceptionClass; Code : LongInt)
6177: Proc RaiseStWin32Error( ExceptionClass : EStExceptionClass; Code : LongInt)
6178: Proc RaiseStWin32ErrorEx( ExceptionClass : EStExceptionClass; Code : LongInt; Info :Str)
6179:
6180: Proc SIRegister_usvd(CL: TPSPascalCompiler);
6181: begin
6182: Proc SV_Decomp( A : TMatrix; Lb, Ub1, Ub2 : Int; S : TVector; V : TMatrix)
6183: Proc SV_SetZero( S : TVector; Lb, Ub : Int; Tol : Float)
6184: Proc SV_Solve(U:TMatrix; S:TVector;V:TMatrix;B:TVector;Lb,Ub1,Ub2:Int;X:TVector);
6185: Proc SV_Approx( U : TMatrix; S : TVector; V : TMatrix; Lb, Ub1, Ub2 : Int; A : TMatrix)
6186: Proc RKF45(F:TDiffEqs;Neqn:Int;Y,Yp:TVector;var T:Float;Tout,RelErr,AbsErr:Float;var Flag:Int;
6187: end;
6188:
6189: //**********unit unit ; StMath Package of SysTools*****************************
6190: Func IntPowerS( Base : Extended; Exponent : Int) : Extended
6191: Func PowerS( Base, Exponent : Extended) : Extended
6192: Func StInvCos( X : Double) : Double
6193: Func StInvSin( Y : Double) : Double
6194: Func StInvTan2( X, Y : Double) : Double
6195: Func StTan( A : Double) : Double
6196: Proc DumpException; //unit StExpEng;
6197: Func HexifyBlock( var Buffer, BufferSize : Int):Str
6198:
6199: //**********unit unit ; StCRC Package of SysTools******************************
6200: Func Adler32Prim( var Data, DataSize :Card; CurCrc : LongInt) : LongInt
6201: Func Adler32OfStream( Stream : TStream; CurCrc : LongInt) : LongInt
6202: Func Adler32OfFile( FileName : Ansistr) : LongInt
6203: Func Crc16Prim( var Data, DataSize, CurCrc :Card) :Card
6204: Func Crc16OfStream( Stream : TStream; CurCrc :Card) :Card
6205: Func Crc16OfFile( FileName : Ansistr) :Card
6206: Func Crc32Prim( var Data, DataSize :Card; CurCrc : LongInt) : LongInt
6207: Func Crc32OfStream( Stream : TStream; CurCrc : LongInt) : LongInt
6208: Func Crc32OfFile( FileName : Ansistr) : LongInt
6209: Func InternetSumPrim( var Data, DataSize, CurCrc :Card) :Card
6210: Func InternetSumOfStream( Stream : TStream; CurCrc :Card) :Card
6211: Func InternetSumOfFile( FileName : Ansistr) :Card
6212: Func Kermit16Prim( var Data, DataSize, CurCrc :Card) :Card
6213: Func Kermit16OfStream( Stream : TStream; CurCrc :Card) :Card
6214: Func Kermit16OfFile( FileName : Ansistr) :Card
6215:

6216: //unit unit ; StBCD Package of SysTools********************************

6217: Func AddBcd( const B1, B2 : TbcdS) : TbcdS
6218: Func SubBcd( const B1, B2 : TbcdS) : TbcdS
6219: Func MulBcd( const B1, B2 : TbcdS) : TbcdS
6220: Func DivBcd( const B1, B2 : TbcdS) : TbcdS
6221: Func ModBcd( const B1, B2 : TbcdS) : TbcdS
6222: Func NegBcd( const B : TbcdS) : TbcdS
6223: Func AbsBcd( const B : TbcdS) : TbcdS
6224: Func FracBcd( const B : TbcdS) : TbcdS
6225: Func IntBcd( const B : TbcdS) : TbcdS
6226: Func RoundDigitsBcd( const B : TbcdS; Digits :Card) : TbcdS
6227: Func RoundPlacesBcd( const B : TbcdS; Places :Card) : TbcdS
6228: Func ValBcd( const S :Str) : TbcdS
6229: Func LongBcd( L : LongInt) : TbcdS
6230: Func ExtBcd( E : Extended) : TbcdS
6231: Func ExpBcd( const B : TbcdS) : TbcdS
6232: Func LnBcd( const B : TbcdS) : TbcdS
6233: Func IntPowBcd( const B : TbcdS; E : LongInt) : TbcdS
6234: Func PowBcd( const B, E : TbcdS) : TbcdS
6235: Func SqrtBcd( const B : TbcdS) : TbcdS
6236: Func CmpBcd( const B1, B2 : TbcdS) : Int
6237: Func EqDigitsBcd( const B1, B2 : TbcdS; Digits :Card) :Bool
6238: Func EqPlacesBcd( const B1, B2 : TbcdS; Digits :Card) :Bool
6239: Func IsIntBcd( const B : TbcdS) :Bool
6240: Func TruncBcd( const B : TbcdS) : LongInt
6241: Func BcdExt( const B : TbcdS) : Extended
6242: Func RoundBcd( const B : TbcdS) : LongInt
6243: Func StrBcd( const B : TbcdS; Width, Places :Card) :Str
6244: Func StrExpBcd( const B : TbcdS; Width :Card) :Str
6245: Func FormatBcd( const Format :Str; const B : TbcdS) :Str
6246: Func StrGeneralBcd( const B : TbcdS) :Str
6247: Func FloatFormBcd(const Mask:str;B:TbcdS;const LtCurr,RtCurr:str;Sep,DecPt:AnsiChar):str
6248: Proc ConvertBcd( const SrcB, SrcSize: Byte; var DestB, DestSize : Byte)
6249:
6250: ////*******unit unit ; StTxtDat; TStTextDataRecordSet Package of SysTools***********************
6251: Proc StParseLine( const Data : Ansistr; Schema : TStTextDataSchema; Result : TStrings)
6252: Func StFieldTypeToStr( FieldType : TStSchemaFieldType) : Ansistr
6253: Func StStrToFieldType( const S : Ansistr) : TStSchemaFieldType
6254: Func StDeEscape( const EscStr : Ansistr) : Char
6255: Func StDoEscape( Delim : Char) : Ansistr
6256: Func StTrimTrailingChars( const S : Ansistr; Trailer : Char) : Ansistr
6257: Func AnsiHashText( const S :Str; Size : Int) : Int
6258: Func AnsiHashStr( const S :Str; Size : Int) : Int
6259: Func AnsiELFHashText( const S :Str; Size : Int) : Int
6260: Func AnsiELFHashStr( const S :Str; Size : Int) : Int
6261:
6262: //**********unit unit ; StNetCon Package of SysTools******************************************
6263: with AddClassN(FindClass('TStComponent'),'TStNetConnection') do begin
6264: Constructor Create( AOwner : TComponent)
6265: Func Connect : DWord
6266: Func Disconnect : DWord
6267: RegisterProperty('Password', 'String', iptrw);
6268: Property(UserName', 'String', iptrw);
6269: Property(ConnectOptions', 'TStNetConnectOptionsSet', iptrw);
6270: Property(DisconnectOptions', 'TStNetDisconnectOptionsSet', iptrw);
6271: Property(LocalDevice', 'String', iptrw);
6272: Property(ServerName', 'String', iptrw);
6273: Property(ShareName', 'String', iptrw);
6274: Property(OnConnect', 'TNotifyEvent', iptrw);
6275: Property(OnConnectFail', 'TOnConnectFailEvent', iptrw);
6276: Property(OnConnectCancel', 'TOnConnectCancelEvent', iptrw);
6277: Property(OnDisconnect', 'TNotifyEvent', iptrw);
6278: Property(OnDisconnectFail', 'TOnDisconnectFailEvent', iptrw);
6279: Property(OnDisconnectCancel', 'TOnDisconnectCancelEvent', iptrw);
6280: end;
6281: //***********Thread Functions Context of Win API --- more objects in SyncObjs.pas
6282: / /153 unit uPSI_SyncObjs, unit uPSIParallelJobs;
6283: Proc InitializeCriticalSection( var lpCriticalSection : TRTLCriticalSection)
6284: Proc EnterCriticalSection( var lpCriticalSection : TRTLCriticalSection)
6285: Proc LeaveCriticalSection( var lpCriticalSection : TRTLCriticalSection)
6286: Func InitializeCriticalSectionAndSpinCount(var
lpCriticalSection:TRTLCriticalSection;dwSpinCount:DWORD):BOOL;
6287: Func SetCriticalSectionSpinCount(var lpCriticalSection:TRTLCriticalSection;dwSpinCount:DWORD):DWORD;
6288: Func TryEnterCriticalSection( var lpCriticalSection : TRTLCriticalSection) : BOOL
6289: Proc DeleteCriticalSection( var lpCriticalSection : TRTLCriticalSection)
6290: Func GetThreadContext( hThread : THandle; var lpContext : TContext) : BOOL
6291: Func SetThreadContext( hThread : THandle; const lpContext : TContext) : BOOL
6292: Func SuspendThread( hThread : THandle) : DWORD
6293: Func ResumeThread( hThread : THandle) : DWORD
6294: Func CreateThread2(ThreadFunc: TThreadFunction2; thrid: DWord) : THandle
6295: Func GetCurrentThread : THandle
6296: Proc ExitThread( dwExitCode : DWORD)
6297: Func TerminateThread( hThread : THandle; dwExitCode : DWORD) : BOOL
6298: Func GetExitCodeThread( hThread : THandle; var lpExitCode : DWORD) : BOOL
6299: Proc EndThread(ExitCode: Int);
6300: Func WaitForSingleObject( hHandle : THandle; dwMilliseconds : DWORD) : DWORD
6301: Func MakeProcInstance( Proc : FARPROC; Instance : THandle) : FARPROC
6302: Proc FreeProcInstance( Proc : FARPROC)
6303: Proc FreeLibraryAndExitThread( hLibModule : HMODULE; dwExitCode : DWORD)

6304: Func DisableThreadLibraryCalls( hLibModule : HMODULE) : BOOL

6305: Proc ParallelJob(ASelf:TObject;ATarget:Pointer;AParam:Pointer; ASafeSection:Bool);
6306: Proc ParallelJob1( ATarget : Pointer; AParam : Pointer; ASafeSection :Bool);
6307: Proc ParallelJob2(AJobGroup:TJobsGroup;ASelf:TObject;ATarget:Ptr;AParam:Pointer;ASafeSection:bool;
6308: Proc ParallelJob3( AJobGroup:TJobsGroup;ATarget:Pointer;AParam:Pointer;ASafeSection: bool;
6309: Func CreateParallelJob(ASelf:TObject;ATarget:Pointer;AParam:Ptr;ASafeSection:bool:TParallelJob;
6310: Func CreateParallelJob1(ATarget:Pointer; AParam:Pointer; ASafeSection :Bool) : TParallelJob;
6311: Func CurrentParallelJobInfo : TParallelJobInfo
6312: Func ObtainParallelJobInfo : TParallelJobInfo
6313: Proc GetSystemInfo( var lpSystemInfo : TSystemInfo);
6314: Func IsProcessorFeaturePresent( ProcessorFeature : DWORD) : BOOL;
6315: Func SetStdHandle( nStdHandle : DWORD; hHandle : THandle) : BOOL;
6316: Func
DeviceIoControl(hDevice:THandle;dwIoControlCode:DWORD;lpInBuffer:TObject;nInBufferSize:DWORD;lpOutBuffer:
TObject; nOutBufferSize: DWORD; var lpBytesReturned: DWORD; lpOverlapped:TOverlapped):BOOL;
6317: Func SetFileTime(hFile:THandle;lpCreationTime,lpLastAccessTime,lpLastWriteTime:TFileTime): BOOL;
6318: Func DuplicateHandle(hSourceProcessHandle,hSourceHandle,hTargetProcessHandle:THandle;
lpTargetHandle:THandle; dwDesiredAccess : DWORD; bInheritHandle:BOOL;dwOptions:DWORD):BOOL;
6319: Func GetHandleInformation( hObject : THandle; var lpdwFlags : DWORD) : BOOL;
6320: Func SetHandleInformation( hObject : THandle; dwMask : DWORD; dwFlags : DWORD) : BOOL;
6321:
6322: ****************************************************unit uPSI_JclMime;
6323: Func MimeEncodeString( const S : Ansistr) : Ansistr
6324: Func MimeDecodeString( const S : Ansistr) : Ansistr
6325: Proc MimeEncodeStream(const InputStream:TStream; const OutputStream : TStream)
6326: Proc MimeDecodeStream(const InputStream:TStream; const OutputStream : TStream)
6327: Func MimeEncodedSize( const I :Card) :Card
6328: Func MimeDecodedSize( const I :Card) :Card
6329: Proc MimeEncode(var InputBuffer:Str;const InputByteCount:Card;var OutputBuffer)
6330: Func MimeDecode(var InputBuffer:str;const InputBytesCount:Card;var OutputBuffer):Cardi;
6331: Func MimeDecodePartial(var InputBuffer:str;const InputBytesCount:Card;var OutputBuffer:str;var
ByteBuffer:Card;var ByteBufferSpace:Card):Card
6332: Func MimeDecodePartialEnd(var OutputBuf:str;const ByteBuf:Card;const ByteBufferSpace:Card):Cardi;
6333:
6334: **************************************************unit uPSI_JclPrint;
6335: Proc DirectPrint( const Printer, Data :Str)
6336: Proc SetPrinterPixelsPerInch
6337: Func GetPrinterResolution : TPoint
6338: Func CharFitsWithinDots( const Text :Str; const Dots : Int) : Int
6339: Proc PrintMemo( const Memo : TMemo; const Rect : TRect)
6340:
6341: //*******************************unit uPSI_ShLwApi;***************************************
6342: Func StrChr( lpStart : PChar; wMatch : WORD) : PChar
6343: Func StrChrI( lpStart : PChar; wMatch : WORD) : PChar
6344: Func StrCmpN( lpStr1, lpStr2 : PChar; nChar : Int) : Int
6345: Func StrCmpNI( lpStr1, lpStr2 : PChar; nChar : Int) : Int
6346: Func StrCSpn( lpStr_, lpSet : PChar) : Int
6347: Func StrCSpnI( lpStr1, lpSet : PChar) : Int
6348: Func StrDup( lpSrch : PChar) : PChar
6349: Func StrFormatByteSize( dw : DWORD; szBuf : PChar; uiBufSize : UINT) : PChar
6350: Func StrFormatKBSize( qdw : Dword; szBuf : PChar; uiBufSize : UINT) : PChar
6351: Func StrFromTimeInterval(pszOut:PChar cchMax:UINT;dwTimeMS:DWORD;digits:Int):Int
6352: Func StrIsIntlEqual(fCaseSens: BOOL;lpString1,lpString2:PChar; nChar:Int): BOOL
6353: Func StrNCat( psz1 : PChar; psz2 : PChar; cchMax : Int) : PChar
6354: Func StrPBrk( psz, pszSet : PChar) : PChar
6355: Func StrRChr( lpStart, lpEnd : PChar; wMatch : WORD) : PChar
6356: Func StrRChrI( lpStart, lpEnd : PChar; wMatch : WORD) : PChar
6357: Func StrRStrI( lpSource, lpLast, lpSrch : PChar) : PChar
6358: Func StrSpn( psz, pszSet : PChar) : Int
6359: Func StrStr( lpFirst, lpSrch : PChar) : PChar
6360: Func StrStrI( lpFirst, lpSrch : PChar) : PChar
6361: Func StrToInt( lpSrch : PChar) : Int
6362: Func StrToIntEx( pszString : PChar; dwFlags : DWORD; var piRet : Int) : BOOL
6363: Func StrTrim( psz : PChar; pszTrimChars : PChar) : BOOL
6364: Func ChrCmpI( w1, w2 : WORD) : BOOL
6365: Func ChrCmpIA( w1, w2 : WORD) : BOOL
6366: Func ChrCmpIW( w1, w2 : WORD) : BOOL
6367: Func StrIntlEqN( s1, s2 : PChar; nChar : Int) : BOOL
6368: Func StrIntlEqNI( s1, s2 : PChar; nChar : Int) : BOOL
6369: Func StrCatBuff( pszDest, pszSrc : PChar; cchDestBuffSize : Int) : PChar
6370: Func StrCpyNX( psz1 : PChar; psz2 : PChar; cchMax : Int) : PChar
6371: Func IntlStrEqWorker(fCaseSens:BOOL;lpString1,lpString2:PChar;nChar:Int):BOOL
6372: Func IntlStrEqN( s1, s2 : PChar; nChar : Int) : BOOL
6373: SZ_CONTENTTYPE_HTMLA','String 'text/html
6374: SZ_CONTENTTYPE_HTMLW','String 'text/html
6375: SZ_CONTENTTYPE_HTML','string SZ_CONTENTTYPE_HTMLA);
6376: SZ_CONTENTTYPE_CDFA','String 'application/x-cdf
6377: SZ_CONTENTTYPE_CDFW','String 'application/x-cdf
6378: SZ_CONTENTTYPE_CDF','string SZ_CONTENTTYPE_CDFA);
6379: Func PathIsHTMLFile( pszPath : PChar) : BOOL
6380: STIF_DEFAULT','LongWord( $00000000);
6381: STIF_SUPPORT_HEX','LongWord( $00000001);
6382: Func StrNCmpI( lpStr1, lpStr2 : PChar; nChar : Int) : Int
6383: Func StrNCpy( psz1, psz2 : PChar; cchMax : Int) : PChar
6384: Func StrCatN( psz1 : PChar; psz2 : PChar; cchMax : Int) : PChar
6385: Func PathAddBackslash( pszPath : PChar) : PChar
6386: Func PathAddExtension( pszPath : PChar; pszExt : PChar) : BOOL
6387: Func PathAppend( pszPath : PChar; pMore : PChar) : BOOL
6388: Func PathBuildRoot( szRoot : PChar; iDrive : Int) : PChar

6389: Func PathCanonicalize( pszBuf : PChar; pszPath : PChar) : BOOL

6390: Func PathCombine( szDest : PChar; lpszDir, lpszFile : PChar) : PChar
6391: Func PathCompactPath( hDC : HDC; pszPath : PChar; dx : UINT) : BOOL
6392: Func PathCompactPathEx(pszOut:PChar;pszSrc:PChar;cchMax:UINT;dwFlags:DWORD):BOOL
6393: Func PathCommonPrefix( pszFile1, pszFile2 : PChar; achPath : PChar) : Int
6394: Func PathFileExists( pszPath : PChar) : BOOL
6395: Func PathFindExtension( pszPath : PChar) : PChar
6396: Func PathFindFileName( pszPath : PChar) : PChar
6397: Func PathFindNextComponent( pszPath : PChar) : PChar
6398: Func PathFindOnPath( pszPath : PChar; var ppszOtherDirs : PChar) : BOOL
6399: Func PathGetArgs( pszPath : PChar) : PChar
6400: Func PathFindSuffixArray(pszPath:PChar;const apszSuffix:PChar;iArraySize:Int): PChar
6401: Func PathIsLFNFileSpec( lpName : PChar) : BOOL
6402: Func PathGetCharType( ch : Char) : UINT
6403: GCT_INVALID','LongWord( $0000);
6404: GCT_LFNCHAR','LongWord( $0001);
6405: GCT_SHORTCHAR','LongWord( $0002);
6406: GCT_WILD','LongWord( $0004);
6407: GCT_SEPARATOR','LongWord( $0008);
6408: Func PathGetDriveNumber( pszPath : PChar) : Int
6409: Func PathIsDirectory( pszPath : PChar) : BOOL
6410: Func PathIsDirectoryEmpty( pszPath : PChar) : BOOL
6411: Func PathIsFileSpec( pszPath : PChar) : BOOL
6412: Func PathIsPrefix( pszPrefix, pszPath : PChar) : BOOL
6413: Func PathIsRelative( pszPath : PChar) : BOOL
6414: Func PathIsRoot( pszPath : PChar) : BOOL
6415: Func PathIsSameRoot( pszPath1, pszPath2 : PChar) : BOOL
6416: Func PathIsUNC( pszPath : PChar) : BOOL
6417: Func PathIsNetworkPath( pszPath : PChar) : BOOL
6418: Func PathIsUNCServer( pszPath : PChar) : BOOL
6419: Func PathIsUNCServerShare( pszPath : PChar) : BOOL
6420: Func PathIsContentType( pszPath, pszContentType : PChar) : BOOL
6421: Func PathIsURL( pszPath : PChar) : BOOL
6422: Func PathMakePretty( pszPath : PChar) : BOOL
6423: Func PathMatchSpec( pszFile, pszSpec : PChar) : BOOL
6424: Func PathParseIconLocation( pszIconFile : PChar) : Int
6425: Proc PathQuoteSpaces( lpsz : PChar)
6426: Func PathRelativePathTo(pszPath:PChar;pszFrom:PChar;dwAttrFrom:DWORD;pszTo:PChar;dwAttrTo:DWORD):BOOL;
6427: Proc PathRemoveArgs( pszPath : PChar)
6428: Func PathRemoveBackslash( pszPath : PChar) : PChar
6429: Proc PathRemoveBlanks( pszPath : PChar)
6430: Proc PathRemoveExtension( pszPath : PChar)
6431: Func PathRemoveFileSpec( pszPath : PChar) : BOOL
6432: Func PathRenameExtension( pszPath : PChar; pszExt : PChar) : BOOL
6433: Func PathSearchAndQualify( pszPath : PChar; pszBuf : PChar; cchBuf : UINT) : BOOL
6434: Proc PathSetDlgItemPath( hDlg : HWND; id : Int; pszPath : PChar)
6435: Func PathSkipRoot( pszPath : PChar) : PChar
6436: Proc PathStripPath( pszPath : PChar)
6437: Func PathStripToRoot( pszPath : PChar) : BOOL
6438: Proc PathUnquoteSpaces( lpsz : PChar)
6439: Func PathMakeSystemFolder( pszPath : PChar) : BOOL
6440: Func PathUnmakeSystemFolder( pszPath : PChar) : BOOL
6441: Func PathIsSystemFolder( pszPath : PChar; dwAttrb : DWORD) : BOOL
6442: Proc PathUndecorate( pszPath : PChar)
6443: Func PathUnExpandEnvStrings( pszPath : PChar; pszBuf : PChar; cchBuf : UINT) : BOOL
6444: URL_SCHEME_INVALID','LongInt'( - 1);
6445: URL_SCHEME_UNKNOWN','LongInt'( 0);
6446: URL_SCHEME_FTP','LongInt'( 1);
6447: URL_SCHEME_HTTP','LongInt'( 2);
6448: URL_SCHEME_GOPHER','LongInt'( 3);
6449: URL_SCHEME_MAILTO','LongInt'( 4);
6450: URL_SCHEME_NEWS','LongInt'( 5);
6451: URL_SCHEME_NNTP','LongInt'( 6);
6452: URL_SCHEME_TELNET','LongInt'( 7);
6453: URL_SCHEME_WAIS','LongInt'( 8);
6454: URL_SCHEME_FILE','LongInt'( 9);
6455: URL_SCHEME_MK','LongInt'( 10);
6456: URL_SCHEME_HTTPS','LongInt'( 11);
6457: URL_SCHEME_SHELL','LongInt'( 12);
6458: URL_SCHEME_SNEWS','LongInt'( 13);
6459: URL_SCHEME_LOCAL','LongInt'( 14);
6460: URL_SCHEME_JAVASCRIPT','LongInt'( 15);
6461: URL_SCHEME_VBSCRIPT','LongInt'( 16);
6462: URL_SCHEME_ABOUT','LongInt'( 17);
6463: URL_SCHEME_RES','LongInt'( 18);
6464: URL_SCHEME_MAXVALUE','LongInt'( 19);
6465: URL_SCHEME', 'Int
6466: URL_PART_NONE','LongInt'( 0);
6467: URL_PART_SCHEME','LongInt'( 1);
6468: URL_PART_HOSTNAME','LongInt'( 2);
6469: URL_PART_USERNAME','LongInt'( 3);
6470: URL_PART_PASSWORD','LongInt'( 4);
6471: URL_PART_PORT','LongInt'( 5);
6472: URL_PART_QUERY','LongInt'( 6);
6473: URL_PART', 'DWORD
6474: URLIS_URL','LongInt'( 0);
6475: URLIS_OPAQUE','LongInt'( 1);
6476: URLIS_NOHISTORY','LongInt'( 2);
6477: URLIS_FILEURL','LongInt'( 3);

6478: URLIS_APPLIABLE','LongInt'( 4);

6479: URLIS_DIRECTORY','LongInt'( 5);
6480: URLIS_HASQUERY','LongInt'( 6);
6481: TUrlIs', 'DWORD
6482: URL_UNESCAPE','LongWord( $10000000);
6483: URL_ESCAPE_UNSAFE','LongWord( $20000000);
6484: URL_PLUGGABLE_PROTOCOL','LongWord( $40000000);
6485: URL_WININET_COMPATIBILITY','LongWord( DWORD ( $80000000 ));
6486: URL_DONT_ESCAPE_EXTRA_INFO','LongWord( $02000000);
6487: URL_ESCAPE_SPACES_ONLY','LongWord( $04000000);
6488: URL_DONT_SIMPLIFY','LongWord( $08000000);
6489: URL_NO_META','longword( URL_DONT_SIMPLIFY);
6490: URL_UNESCAPE_INPLACE','LongWord( $00100000);
6491: URL_CONVERT_IF_DOSPATH','LongWord( $00200000);
6492: URL_UNESCAPE_HIGH_ANSI_ONLY','LongWord( $00400000);
6493: URL_INTERNAL_PATH','LongWord( $00800000);
6494: URL_FILE_USE_PATHURL','LongWord( $00010000);
6495: URL_ESCAPE_PERCENT','LongWord( $00001000);
6496: URL_ESCAPE_SEGMENT_ONLY','LongWord( $00002000);
6497: URL_PARTFLAG_KEEPSCHEME','LongWord( $00000001);
6498: URL_APPLY_DEFAULT','LongWord( $00000001);
6499: URL_APPLY_GUESSSCHEME','LongWord( $00000002);
6500: URL_APPLY_GUESSFILE','LongWord( $00000004);
6501: URL_APPLY_FORCEAPPLY','LongWord( $00000008);
6502: Func UrlCompare( psz1, psz2 : PChar; fIgnoreSlash : BOOL) : Int
6503: Func UrlCombine(pszBase,pszRelative:PChar;pszCombin:PChar;out pcchCombin:DWORD;dwFlags:DWORD):HRESULT;
6504: Func UrlCanonicalize(pszUrl:PChar;pszCanonicalized:PChar;pcchCanonic:DWORD;dwFlags:DWORD):HRESULT;
6505: Func UrlIsOpaque( pszURL : PChar) : BOOL
6506: Func UrlIsNoHistory( pszURL : PChar) : BOOL
6507: Func UrlIsFileUrl( pszURL : PChar) : BOOL
6508: Func UrlIs( pszUrl : PChar; UrlIs : TUrlIs) : BOOL
6509: Func UrlGetLocation( psz1 : PChar) : PChar
6510: Func UrlUnescape(pszUrl,pszUnescaped:PChar;pcchUnescaped:DWORD; dwFlags: DWORD): HRESULT
6511: Func UrlEscape(pszUrl:PChar; pszEscaped:PChar; pcchEscaped:DWORD;dwFlags:DWORD): HRESULT
6512: Func UrlCreateFromPath(pszPath:PChar;pszUrl:PChar;pcchUrl: DWORD;dwFlags:DWORD): HRESULT
6513: Func PathCreateFromUrl(pszUrl:PChar; pszPath:PChar;pcchPath:DWORD; dwFlags:DWORD):HRESULT
6514: Func UrlHash( pszUrl : PChar; pbHash : BYTE; cbHash : DWORD) : HRESULT
6515: Func UrlGetPart(pszIn:PChar; pszOut:PChar;pcchOut:DWORD; dwPart,dwFlags: DWORD): HRESULT
6516: Func UrlApplyScheme(pszIn:PChar; pszOut:PChar; pcchOut : DWORD; dwFlags: DWORD): HRESULT
6517: Func HashData(pbData:BYTE;cbData:DWORD; pbHash:BYTE; cbHash: DWORD) : HRESULT
6518: Func UrlEscapeSpaces(pszUrl:PChar;pszEscaped:PChar;pcchEscaped: WORD): HRESULT
6519: Func UrlUnescapeInPlace( pszUrl : PChar; dwFlags : DWORD) : HRESULT
6520: Func SHDeleteEmptyKey( hKey : HKEY; pszSubKey : PChar) : DWORD
6521: Func SHDeleteKey( hKey : HKEY; pszSubKey : PChar) : DWORD
6522: Func SHDeleteValue( hKey : HKEY; pszSubKey, pszValue : PChar) : DWORD
6523: Func SHEnumKeyEx(hKey:HKEY; dwIndex : DWORD; pszName:PChar;var pcchName:DWORD) : Longint
6524: Func SHEnumValue(hKey:HKEY;dwIndex:DWORD;pszValueName:PChar;var pcchValueName:DWORD;pdwType:DWORD;pvData:
___Pointer; pcbData:DWORD):Longint
6525: Func SHQueryInfoKey(hKey:HKEY;pcSubKeys,pcchMaxSubKeyLen,pcVal,pcchMaxValueNameLen:DWORD):Longint;
6526: Func SHCopyKey(hkeySrc:HKEY;szSrcSubKey:PChar; hkeyDest:HKEY; fReserved:DWORD) : DWORD
6527: Func SHRegGetPath(hKey:HKEY;pcszSubKey,pcszValue:PChar;pszPath:PChar;dwFlags:DWORD):DWORD
6528: Func SHRegSetPath(hKey:HKEY;pcszSubKey,pcszValue,pcszPath:PChar;dwFlags:DWORD): DWORD
6529: SHREGDEL_DEFAULT','LongWord( $00000000);
6530: SHREGDEL_HKCU','LongWord( $00000001);
6531: SHREGDEL_HKLM','LongWord( $00000010);
6532: SHREGDEL_BOTH','LongWord( $00000011);
6533: SHREGENUM_DEFAULT','LongWord( $00000000);
6534: SHREGENUM_HKCU','LongWord( $00000001);
6535: SHREGENUM_HKLM','LongWord( $00000010);
6536: SHREGENUM_BOTH','LongWord( $00000011);
6537: SHREGSET_HKCU','LongWord( $00000001);
6538: SHREGSET_FORCE_HKCU','LongWord( $00000002);
6539: SHREGSET_HKLM','LongWord( $00000004);
6540: SHREGSET_FORCE_HKLM','LongWord( $00000008);
6541: TSHRegDelFlags', 'DWORD
6542: TSHRegEnumFlags', 'DWORD
6543: HUSKEY', 'THandle
6544: ASSOCF_INIT_NOREMAPCLSID','LongWord( $00000001);
6545: ASSOCF_INIT_BYEXENAME','LongWord( $00000002);
6546: ASSOCF_OPEN_BYEXENAME','LongWord( $00000002);
6547: ASSOCF_INIT_DEFAULTTOSTAR','LongWord( $00000004);
6548: ASSOCF_INIT_DEFAULTTOFOLDER','LongWord( $00000008);
6549: ASSOCF_NOUSERSETTINGS','LongWord( $00000010);
6550: ASSOCF_NOTRUNCATE','LongWord( $00000020);
6551: ASSOCF_VERIFY','LongWord( $00000040);
6552: ASSOCF_REMAPRUNDLL','LongWord( $00000080);
6553: ASSOCF_NOFIXUPS','LongWord( $00000100);
6554: ASSOCF_IGNOREBASECLASS','LongWord( $00000200);
6555: ASSOCF', 'DWORD
6556: ASSOCSTR_COMMAND','LongInt'( 1);
6557: ASSOCSTR_EXECUTABLE','LongInt'( 2);
6558: ASSOCSTR_FRIENDLYDOCNAME','LongInt'( 3);
6559: ASSOCSTR_FRIENDLYAPPNAME','LongInt'( 4);
6560: ASSOCSTR_NOOPEN','LongInt'( 5);
6561: ASSOCSTR_SHELLNEWVALUE','LongInt'( 6);
6562: ASSOCSTR_DDECOMMAND','LongInt'( 7);
6563: ASSOCSTR_DDEIFEXEC','LongInt'( 8);
6564: ASSOCSTR_DDEAPPLICATION','LongInt'( 9);
6565: ASSOCSTR_DDETOPIC','LongInt'( 10);

6566: ASSOCSTR_INFOTIP','LongInt'( 11);

6567: ASSOCSTR_MAX','LongInt'( 12);
6568: ASSOCSTR', 'DWORD
6569: ASSOCKEY_SHELLEXECCLASS','LongInt'( 1);
6570: ASSOCKEY_APP','LongInt'( 2);
6571: ASSOCKEY_CLASS','LongInt'( 3);
6572: ASSOCKEY_BASECLASS','LongInt'( 4);
6573: ASSOCKEY_MAX','LongInt'( 5);
6574: ASSOCKEY', 'DWORD
6575: ASSOCDATA_MSIDESCRIPTOR','LongInt'( 1);
6576: ASSOCDATA_NOACTIVATEHANDLER','LongInt'( 2);
6577: ASSOCDATA_QUERYCLASSSTORE','LongInt'( 3);
6578: ASSOCDATA_HASPERUSERASSOC','LongInt'( 4);
6579: ASSOCDATA_MAX','LongInt'( 5);
6580: ASSOCDATA', 'DWORD
6581: ASSOCENUM_NONE','LongInt'( 0);
6582: ASSOCENUM', 'DWORD
6583: SID_IQueryAssociations','String '{c46ca590-3c3f-11d2-bee6-0000f805ca57}
6584: SHACF_DEFAULT $00000000);
6585: SHACF_FILESYSTEM','LongWord( $00000001);
6586: SHACF_URLHISTORY','LongWord( $00000002);
6587: SHACF_URLMRU','LongWord( $00000004);
6588: SHACF_USETAB','LongWord( $00000008);
6589: SHACF_FILESYS_ONLY','LongWord( $00000010);
6590: SHACF_AUTOSUGGEST_FORCE_ON','LongWord( $10000000);
6591: SHACF_AUTOSUGGEST_FORCE_OFF','LongWord( $20000000);
6592: SHACF_AUTOAPPEND_FORCE_ON','LongWord( $40000000);
6593: SHACF_AUTOAPPEND_FORCE_OFF','LongWord( DWORD ( $80000000 ));
6594: Func SHAutoComplete( hwndEdit : HWND; dwFlags : DWORD) : HRESULT
6595: Proc SHSetThreadRef( punk : IUnknown)
6596: Proc SHGetThreadRef( out ppunk : IUnknown)
6597: CTF_INSIST','LongWord( $00000001);
6598: CTF_THREAD_REF','LongWord( $00000002);
6599: CTF_PROCESS_REF','LongWord( $00000004);
6600: CTF_COINIT','LongWord( $00000008);
6601: Func SHCreateShellPalette( hdc : HDC) : HPALETTE
6602: Proc ColorRGBToHLS( clrRGB : TColorRef; out pwHue, pwLuminance, pwSaturation : WORD)
6603: Func ColorHLSToRGB( wHue, wLuminance, wSaturation : WORD) : TColorRef
6604: Func ColorAdjustLuma( clrRGB : TColorRef; n : Int; fScale :Bool) : TColorRef
6605: Func GetSysColorBrush( nIndex : Int) : HBRUSH
6606: Func DrawFocusRect( hDC : HDC; const lprc : TRect) : BOOL
6607: Func FillRect( hDC : HDC; const lprc : TRect; hbr : HBRUSH) : Int
6608: Func FrameRect( hDC : HDC; const lprc : TRect; hbr : HBRUSH) : Int
6609: Func InvertRect( hDC : HDC; const lprc : TRect) : BOOL
6610: Func SetRect( var lprc : TRect; xLeft, yTop, xRight, yBottom : Int) : BOOL
6611: Func SetRectEmpty( var lprc : TRect) : BOOL
6612: Func CopyRect( var lprcDst : TRect; const lprcSrc : TRect) : BOOL
6613: Func InflateRect( var lprc : TRect; dx, dy : Int) : BOOL
6614: Func IntersectRect2(var lprcDst: TRect; const lprcSrc1, lprcSrc2 : TRect):BOOL
6615: Func SubtractRect( var lprcDst : TRect; const lprcSrc1, lprcSrc2 : TRect):BOOL
6616: Func InitializeFlatSB( hWnd : HWND) : Bool
6617: Proc UninitializeFlatSB( hWnd : HWND)
6618: Func FlatSB_GetScrollProp( p1 : HWND; propIndex : Int; p3 : PInt) : Bool
6619: Func FlatSB_SetScrollProp(p1: HWND; index: Int; newValue: Int; p4 : Bool):Bool
6620: Func GET_APPCOMMAND_LPARAM( lParam : Int) : Word //of JvWin32
6621: Func GET_DEVICE_LPARAM( lParam : Int) : Word
6622: Func GET_MOUSEORKEY_LPARAM( lParam : Int) : Int
6623: Func GET_FLAGS_LPARAM( lParam : Int) : Word
6624: Func GET_KEYSTATE_LPARAM( lParam : Int) : Word
6625:
6626: // ******************************************** 204 unit uPSI_ShellAPI;
6627: Func DragQueryFile(Drop:HDROP;FileIndex:UINT; FileName: PChar; cb UINT): UINT
6628: Func DragQueryPoint( Drop : HDROP; var Point : TPoint): BOOL
6629: Proc DragFinish( Drop : HDROP)
6630: Proc DragAcceptFiles( Wnd : HWND; Accept : BOOL)
6631: Func ShellExecute(hWnd:HWND;Operation,FileName,Parameters,Directory:PChar;ShowCmd:Int):HINST
6632: Func FindExecutable( FileName, Directory : PChar; Result : PChar) : HINST
6633: Func ShellAbout( Wnd : HWND; szApp, szOtherStuff : PChar; Icon : HICON) : Int
6634: Func DuplicateIcon( hInst : HINST; Icon : HICON) : HICON
6635: Func ExtractAssociatedIcon(hInst:HINST;lpIconPath:PChar;var lpiIcon:Word):HICON
6636: Func ExtractIcon(hInst:HINST; lpszExeFileName:PChar; nIconIndex:UINT): HICON
6637: Func SHAppBarMessage( dwMessage : DWORD; var pData : TAppBarData) : UINT
6638: Func DoEnvironmentSubst( szString : PChar; cbString : UINT) : DWORD
6639: Func ExtractIconEx(lpszFile:PChar;nIconIndex:Int;var phiconLarge,phiconSmall:HICON;nIcons:UINT):UINT;
6640: Proc SHFreeNameMappings( hNameMappings : THandle)
6641:
6642: DLLVER_PLATFORM_WINDOWS','LongWord( $00000001);
6643: DLLVER_PLATFORM_NT','LongWord( $00000002);
6644: DLLVER_MAJOR_MASK','LongWord( Int64 ( $FFFF000000000000 ));
6645: DLLVER_MINOR_MASK','LongWord( Int64 ( $0000FFFF00000000 ));
6646: DLLVER_BUILD_MASK','LongWord( Int64 ( $00000000FFFF0000 ));
6647: DLLVER_QFE_MASK','LongWord( Int64 ( $000000000000FFFF ));
6648: Func MAKEDLLVERULL( Major, Minor, Build, Qfe : Word) : Int64
6649: Func SimpleXMLEncode( const S :Str) :Str
6650: Proc SimpleXMLDecode( var S :Str; TrimBlanks :Bool)
6651: Func XMLEncode( const S :Str) :Str
6652: Func XMLDecode( const S :Str) :Str
6653: Func EntityEncode( const S :Str) :Str
6654: Func EntityDecode( const S :Str) :Str

6655:
6656: Proc RIRegister_CPort_Routines(S: TPSExec);
6657: Proc EnumComPorts( Ports : TStrings)
6658: Proc ListComPorts( Ports : TStrings)
6659: Proc ComPorts( Ports : TStrings) //Alias to Arduino
6660: Func GetComPorts: TStringlist;
6661: Func StrToBaudRate( Str :Str) : TBaudRate
6662: Func StrToStopBits( Str :Str) : TStopBits
6663: Func StrToDataBits( Str :Str) : TDataBits
6664: Func StrToParity( Str :Str) : TParityBits
6665: Func StrToFlowControl( Str :Str) : TFlowControl
6666: Func BaudRateToStr( BaudRate : TBaudRate) :Str
6667: Func StopBitsToStr( StopBits : TStopBits) :Str
6668: Func DataBitsToStr( DataBits : TDataBits) :Str
6669: Func ParityToStr( Parity : TParityBits) :Str
6670: Func FlowControlToStr( FlowControl : TFlowControl) :Str
6671: Func ComErrorsToStr( Errors : TComErrors) :Str
6672: Func GetMessage( var lpMsg : TMsg; hWnd : HWND; wMsgFilterMin, wMsgFilterMax : UINT) : BOOL
6673: Func DispatchMessage( const lpMsg : TMsg) : Longint
6674: Func TranslateMessage( const lpMsg : TMsg) : BOOL
6675: Func SetMessageQueue( cMessagesMax : Int) : BOOL
6676: Func PeekMessage(var lpMsg:TMsg; hWnd:HWND;wMsgFilterMin,wMsgFilterMax,wRemoveMsg:UINT):BOOL
6677: Func GetMessagePos : DWORD
6678: Func GetMessageTime : Longint
6679: Func GetMessageExtraInfo : Longint
6680: Func GetSpecialFolderPath( const FolderName :Str; CanCreate :Bool) :Str
6681: Proc JAddToRecentDocs( const Filename :Str)
6682: Proc ClearRecentDocs
6683: Func ExtractIconFromFile( FileName :Str; Index : Int) : HICON
6684: Func CreateShellLink( const AppName, Desc :Str; Dest :Str) :Str
6685: Proc GetShellLinkInfo( const LinkFile : WideString; var SLI : TShellLinkInfo)
6686: Proc SetShellLinkInfo( const LinkFile : WideString; const SLI : TShellLinkInfo)
6687: Func RecycleFile( FileToRecycle :Str) :Bool
6688: Func JCopyFile( FromFile, ToDir :Str) :Bool
6689: Func ShellObjectTypeEnumToConst( ShellObjectType : TShellObjectType) : UINT
6690: Func ShellObjectTypeConstToEnum( ShellObjectType : UINT) : TShellObjectType
6691: Func QueryServiceConfig2A( hService : SC_HANDLE; dwInfoLevel: DWORD; lpBuffer : LPBYTE; cbBufSize :
DWORD; var pcbBytesNeeded : DWORD) : BOOL
6692: Func QueryServiceConfig2W( hService : SC_HANDLE; dwInfoLevel: DWORD; lpBuffer : LPBYTE; cbBufSize :
DWORD; var pcbBytesNeeded : DWORD) : BOOL
6693: Func QueryServiceConfig2( hService : SC_HANDLE; dwInfoLevel:DWORD; lpBuffer : LPBYTE; cbBufSize : DWORD;
var pcbBytesNeeded : DWORD) : BOOL
6694: Func EnumServicesStatusExA(hSCManager:SC_HANDLE;InfoLevel: SC_ENUM_TYPE; dwServiceType: DWORD;
dwServiceState: DWORD;lpServices:LPBYTE;cbBufSize:DWORD;var pcbBytesNeeded,lpServicesReturned,
lpResumeHandle:DWORD;pszGroupName: LP
6695: Func EnumServicesStatusExW( hSCManager : SC_HANDLE; InfoLevel : SC_ENUM_TYPE; dwServiceType : DWORD;
dwServiceState : DWORD; lpServices:LPBYTE;cbBufSize:DWORD;var pcbBytesNeeded,lpServicesReturned,
lpResumeHandle:DWORD; pszGroupNam
6696: Func EnumServicesStatusEx( hSCManager : SC_HANDLE; InfoLevel : SC_ENUM_TYPE; dwServiceType : DWORD;
dwServiceState:DWORD;lpServices:LPBYTE;cbBufSize:DWORD;var pcbBytesNeeded,lpServicesReturned,
lpResumeHandle:DWORD; pszGroupName
6697: Func ConvertSidToStringSid( sid : PSID; var stringSid : LPWSTR) : BOOL
6698:
6699: ******************************************* unit uPSI_JclPeImage;
6700: Func IsValidPeFile( const FileName : TFileName) :Bool
6701: // Func PeGetNtHeaders( const FileName : TFileName; var NtHeaders : TImageNtHeaders): Bool
6702: Func PeCreateNameHintTable( const FileName : TFileName) :Bool
6703: Func PeRebaseImage(const ImageName:TFileName; NewBase:DWORD; TimeStamp : DWORD; MaxNewSize:DWORD):
TJclRebaseImageInfo
6704: Func PeVerifyCheckSum( const FileName : TFileName) :Bool
6705: Func PeClearCheckSum( const FileName : TFileName) :Bool
6706: Func PeUpdateCheckSum( const FileName : TFileName) :Bool
6707: Func PeDoesExportFunction(const FileName:TFileName;const FuncName:str;Options:TJclSmartCompOptions):Bool;
6708: Func PeIsExportFunctionForwardedEx( const FileName : TFileName; const FunctionName:str; var
ForwardedName:str;Options:TJclSmartCompOptions):Boolean
6709: Func PeIsExportFunctionForwarded(const FileName:TFileName;const
FunctionName:str;Options:TJclSmartCompOptions):Bool
6710: Func PeDoesImportFunction(const FileName:TFileName;const FunctionName:str;const LibraryName:str;Options:
TJclSmartCompOptions):Bool
6711: Func PeDoesImportLibrary(const FileName:TFileName;const LibraryName:str;Recursive:Boolean):Boolean);
6712: Func PeImportedLibraries( const FileName : TFileName; const LibrariesList : TStrings; Recursive :Bool;
FullPathName :Bool) :Bool
6713: Func PeImportedFunctions(const FileName:TFileName;const FunctionsList:TStrings;const LibraryName:str;
IncludeLibNames :Bool):Bool
6714: Func PeExportedFunctions(const FileName:TFileName;const FunctionsList:TStrings):Boolean
6715: Func PeExportedNames(const FileName:TFileName;const FunctionsList:TStrings):Bool
6716: Func PeExportedVariables(const FileName:TFileName;const FunctionsList:TStrings):Boolean
6717: Func PeResourceKindNames(const FileN:TFileName;ResourceType:TJclPeResourceKind;const
NamesList:TStrings):Bool
6718: Func PeBorFormNames(const FileName:TFileName;const NamesList:TStrings :Boolean
6719: Func PeBorDependedPackages(const FileName:TFileName;PackagesList:TStrings;FullPathName,
Descript:Bool):Bool;
6720: Func PeFindMissingImports(const FileName:TFileName;MissingImportsList:TStrings):Bool;
6721: Func PeFindMissingImports1(RequiredImportsList,MissingImportsList:TStrings):Bool;
6722: Func PeCreateRequiredImportList(const FileName:TFileName;RequiredImportsList:TStrings): Bool;
6723: //Func PeMapImgNtHeaders( const BaseAddress : Pointer) : PImageNtHeaders
6724: //Func PeMapImgLibraryName( const BaseAddress : Pointer) :Str
6725: //Func PeMapImgSections( const NtHeaders : PImageNtHeaders) : PImageSectionHeader
6726: //Func PeMapImgFindSection( const NtHeaders : PImageNtHeaders; const SectionName :Str) :
PImageSectionHeader

6727: //Func PeMapImgExportedVariables(const Module:HMODULE;const VariablesList:TStrings):Bool

6728: //Func PeMapImgResolvePackageThunk( Address : Pointer) : Pointer
6729: Func PeMapFindResource(const Module:HMODULE;const ResourceType:PChar;const ResourceName:str): ___Pointer;
6730: SIRegister_TJclPeSectionStream(CL);
6731: SIRegister_TJclPeMapImgHookItem(CL);
6732: SIRegister_TJclPeMapImgHooks(CL);
6733: //Func PeDbgImgNtHeaders(ProcessHandle:THandle;BaseAddress:Pointer;var NtHeaders:TImageNtHeaders):Boolean
6734: //Func PeDbgImgLibraryName(ProcessHandle:THandle;BaseAddress:Pointer;var Name:str):Bool
6735: Type TJclBorUmSymbolKind','(skData,skFunction,skConstructor,skDestructor,skRTTI,skVTable)
6736: TJclBorUmSymbolModifier', '( smQualified, smLinkProc )
6737: TJclBorUmSymbolModifiers', 'set of TJclBorUmSymbolModifier
6738: TJclBorUmDescription', 'record Kind : TJclBorUmSymbolKind; Modifiers : TJclBorUmSymbolModifiers; end
6739: TJclBorUmResult', '( urOk, urNotMangled, urMicrosoft, urError )
6740: TJclPeUmResult', '( umNotMangled, umBorland, umMicrosoft )
6741: Func PeBorUnmangleName( const Name :Str; var Unmangled :Str; var Description : TJclBorUmDescription; var
BasePos : Int) : TJclBorUmResult;
6742: Func PeBorUnmangleName1(const Name:str;var Unmangled:str;var
Descript:TJclBorUmDescription):TJclBorUmResult;
6743: Func PeBorUnmangleName2( const Name :Str; var Unmangled :Str) : TJclBorUmResult;
6744: Func PeBorUnmangleName3( const Name :Str) :Str;
6745: Func PeIsNameMangled( const Name :Str) : TJclPeUmResult
6746: Func PeUnmangleName( const Name :Str; var Unmangled :Str) : TJclPeUmResult
6747:
6748:
6749: //****************** SysTools uPSI_StSystem; ****************************************
6750: Func StCopyFile( const SrcPath, DestPath : Ansistr) :Card
6751: Func CreateTempFile( const aFolder : Ansistr; const aPrefix : Ansistr): Ansistr
6752: Func DeleteVolumeLabel( Drive : Char) :Card
6753: //Proc EnumerateDirectories(const StartDir:AnsiStr;FL:TStrings;SubDirs:Bool;IncludeItem:TIncludeItemFunc);
6754: //Proc EnumerateFiles(const StartDir:Ansistr;FL:TStrings;SubDirs:Bool IncludeItem:TIncludeItemFunc);
6755: Func FileHandlesLeft( MaxHandles :Card) :Card
6756: Func FileMatchesMask( const FileName, FileMask : Ansistr) :Bool
6757: Func FileTimeToStDateTime( FileTime : LongInt) : TStDateTimeRec
6758: Func FindNthSlash( const Path : Ansistr; n : Int) : Int
6759: Func FlushOsBuffers( Handle : Int) :Bool
6760: Func GetCurrentUser : Ansistr
6761: Func GetDiskClass( Drive : Char) : DiskClass
6762: Func GetDiskInfo(Drive:Char;var ClustersAvail,TotalClusters,BytesPerSector,SectorsPerCluster:Card):Bool;
6763: Func GetDiskSpace(Drive:Char;var UserSpaceAvail:Double;var TotalSpaceAvail:Double;var
DiskSize:Double):Bool;
6764: Func GetDiskSpace(Drive:Char;var UserSpaceAvail:Comp;var TotalSpaceAvail:Comp;var DiskSize:Comp):Bool;
6765: { index 0 - FreeBytesAvailable, 1 - TotalNumberOfBytes, 2 - TotalNumberOfFreeBytes }
6766: Func getDiskSpace2(const path:Str; index: Int): int64;
6767: Func GetFileCreateDate( const FileName : Ansistr) : TDateTime
6768: Func StGetFileLastAccess( const FileName : Ansistr) : TDateTime
6769: Func GetFileLastModify( const FileName : Ansistr) : TDateTime
6770: Func GetHomeFolder( aForceSlash :Bool) : Ansistr
6771: Func GetLongPath( const APath : Ansistr) : Ansistr
6772: Func GetMachineName : Ansistr
6773: Func GetMediaID( Drive : Char; var MediaIDRec : MediaIDType) :Card
6774: Func GetParentFolder( const APath : Ansistr; aForceSlash :Bool) : Ansistr
6775: Func GetShortPath( const APath : Ansistr) : Ansistr
6776: Func GetSystemFolder( aForceSlash :Bool) : Ansistr
6777: Func GetTempFolder( aForceSlash :Bool) : Ansistr
6778: Func StGetWindowsFolder( aForceSlash :Bool) : Ansistr
6779: Func GetWorkingFolder( aForceSlash :Bool) : Ansistr
6780: Func GlobalDateTimeToLocal( const UTC : TStDateTimeRec; MinOffset : Int) : TStDateTimeRec
6781: Func StIsDirectory( const DirName : Ansistr) :Bool
6782: Func IsDirectoryEmpty( const S : Ansistr) : Int
6783: Func IsDriveReady( Drive : Char) :Bool
6784: Func IsFile( const FileName : Ansistr) :Bool
6785: Func IsFileArchive( const S : Ansistr) : Int
6786: Func IsFileHidden( const S : Ansistr) : Int
6787: Func IsFileReadOnly( const S : Ansistr) : Int
6788: Func IsFileSystem( const S : Ansistr) : Int
6789: Func LocalDateTimeToGlobal( const DT1 : TStDateTimeRec; MinOffset : Int) : TStDateTimeRec
6790: Func ReadVolumeLabel( var VolName : Ansistr; Drive : Char) :Card
6791: Func SameFile( const FilePath1, FilePath2 : Ansistr; var ErrorCode : Int) :Bool
6792: Func SetMediaID( Drive : Char; var MediaIDRec : MediaIDType) :Card
6793: Proc SplitPath( const APath : Ansistr; Parts : TStrings)
6794: Func StDateTimeToFileTime( const FileTime : TStDateTimeRec) : LongInt
6795: Func StDateTimeToUnixTime( const DT1 : TStDateTimeRec) : Longint
6796: Func UnixTimeToStDateTime( UnixTime : Longint) : TStDateTimeRec
6797: Func ValidDrive( Drive : Char) :Bool
6798: Func WriteVolumeLabel( const VolName : Ansistr; Drive : Char) :Card
6799:
6800: //*****************************unit uPSI_JclLANMan;*******************************************
6801: Func CreateAccount( const Server,Username,Fullname,Password,Description,Homedir,Script :str; const
PasswordNeverExpires : Bool) : Bool
6802: Func CreateLocalAccount( const Username, Fullname, Password, Description, Homedir, Script :Str; const
PasswordNeverExpires :Bool) :Bool
6803: Func DeleteAccount( const Servername, Username :Str) :Bool
6804: Func DeleteLocalAccount( Username :Str) :Bool
6805: Func CreateLocalGroup( const Server, Groupname, Description :Str) :Bool
6806: Func CreateGlobalGroup( const Server, Groupname, Description :Str) :Bool
6807: Func DeleteLocalGroup( const Server, Groupname :Str) :Bool
6808: Func GetLocalGroups( const Server :Str; const Groups : TStrings) :Bool
6809: Func GetGlobalGroups( const Server :Str; const Groups : TStrings) :Bool
6810: Func LocalGroupExists( const Group :Str) :Bool

6811: Func GlobalGroupExists( const Server, Group :Str) :Bool

6812: Func AddAccountToLocalGroup( const Accountname, Groupname :Str) :Bool
6813: Func LookupGroupName( const Server :Str; const RID : TNetWellKnownRID) :Str
6814: Proc ParseAccountName( const QualifiedName :Str; var Domain, UserName :Str)
6815: Func IsLocalAccount( const AccountName :Str) :Bool
6816: Func TimeStampInterval( StartStamp, EndStamp : TDateTime) : Int
6817: Func GetRandomString( NumChar :Card) :Str
6818:
6819: //*****************************unit uPSI_cUtils;*******************************************
6820: TypeS(TUnitType', ( utSrc, utHead, utRes, utPrj, utOther )
6821: Func cIsWinNT :Bool
6822: Proc cFilesFromWildcard(Directory,Mask:Str;var Files:TStringList;Subdirs,ShowDirs,Multitasking:Boolean;
6823: Func cExecuteFile( const FileName, Params, DefaultDir :Str; ShowCmd : Int) : THandle
6824: Func cRunAndGetOutput(Cmd,WorkDir:str; ErrFunc:TErrFunc;LineOutputFunc:TLineOutputFunc;
CheckAbortFunc:TCheckAbortFunc;ShowReturnValue:Bool):str
6825: Func cGetShortName( FileName :Str) :Str
6826: Proc cShowError( Msg :Str)
6827: Func cCommaStrToStr( s :Str; formatstr :Str) :Str
6828: Func cIncludeQuoteIfSpaces( s :Str) :Str
6829: Func cIncludeQuoteIfNeeded( s :Str) :Str
6830: Proc cLoadFilefromResource( const FileName :Str; ms : TMemoryStream)
6831: Func cValidateFile(const FileName:str;const WorkPath:str;const CheckDirs:bool):str;
6832: Func cBuildFilter( var value :Str; const FLTStyle : TFILTERSET) :Bool;
6833: Func cBuildFilter1( var value :Str; const _filters : array of string) :Bool;
6834: Func cCodeInstoStr( s :Str) :Str
6835: Func cStrtoCodeIns( s :Str) :Str
6836: Proc cStrtoAttr( var Attr : TSynHighlighterAttributes; Value :Str)
6837: Func cAttrtoStr( const Attr : TSynHighlighterAttributes) :Str
6838: Proc cStrtoPoint( var pt : TPoint; value :Str)
6839: Func cPointtoStr( const pt : TPoint) :Str
6840: Func cListtoStr( const List : TStrings) :Str
6841: Func ListtoStr( const List : TStrings) :Str
6842: Proc StrtoList( s :Str; const List : TStrings; const delimiter : char)
6843: Proc cStrtoList( s :Str; const List : TStrings; const delimiter : char)
6844: Func cGetFileTyp( const FileName :Str) : TUnitType
6845: Func cGetExTyp( const FileName :Str) : TExUnitType
6846: Proc cSetPath( Add :Str; const UseOriginal :Bool)
6847: Func cExpandFileto( const FileName :Str; const BasePath :Str) :Str
6848: Func cFileSamePath( const FileName :Str; const TestPath :Str) :Bool
6849: Proc cCloneMenu( const FromMenu : TMenuItem; ToMenu : TMenuItem)
6850: Func cGetLastPos( const SubStr :Str; const S :Str) : Int
6851: Func cGenMakePath( FileName :Str) :Str;
6852: Func cGenMakePath2( FileName :Str) :Str
6853: Func cGenMakePath1(FileName:Str; EscapeSpaces,EncloseInQuotes:Bool):str;
6854: Func cGetRealPath( BrokenFileName :Str; Directory :Str) :Str
6855: Func cCalcMod( Count : Int) : Int
6856: Func cGetVersionString( FileName :Str) :Str
6857: Func cCheckChangeDir( var Dir :Str) :Bool
6858: Func cGetAssociatedProgram(const Extension:str;var Filename,Description:str):bool
6859: Func cIsNumeric( s :Str) :Bool
6860: Proc StrtoAttr( var Attr : TSynHighlighterAttributes; Value :Str)
6861: Func AttrtoStr( const Attr : TSynHighlighterAttributes) :Str
6862: Func GetFileTyp( const FileName :Str) : TUnitType
6863: Func Atoi(const aStr:Str): Int
6864: Func Itoa(const aint: Int):Str
6865: Func Atof(const aStr:Str): double;
6866: Func Atol(const aStr:Str): longint;
6867:
6868: Proc SIRegister_cHTTPUtils(CL: TPSPascalCompiler);
6869: begin
6870: FindClass('TOBJECT'),'EHTTP
6871: FindClass('TOBJECT'),'EHTTPParser
6872: //AnsiCharSet', 'set of AnsiChar
6873: AnsistrArray', 'array of Ansistr
6874: THTTPProtocolEnum', '( hpNone, hpCustom, hpHTTP, hpHTTPS )
6875: THTTPVersionEnum', '( hvNone, hvCustom, hvHTTP10, hvHTTP11 )
6876: THTTPVersion', 'record Version : THTTPVersionEnum; Protocol : TH'
6877: +'TTPProtocolEnum; CustomProtocol : Ansistr; CustomMajVersion : Int; '
6878: +'CustomMinVersion : Int; end
6879: THTTPHeaderNameEnum','( hntCustom, hntHost, hntContentType, hnt'
6880: +'ContentLength, hntContentTransferEncoding, hntContentLocation, hntContentL'
6881: +'anguage, hntContentEncoding, hntTransferEncoding, hntDate, hntServer, hntU'
6882: +'serAgent, hntLocation, hntConnection, hntExpires, hntCacheControl, hntSetC'
6883: +'ookie, hntCookie, hntAuthorization, hntVia, hntWarning, hntContentRange, h'
6884: +'ntXForwardedFor, hntPragma, hntXPoweredBy, hntWWWAuthenticate, hntLastModi'
6885: +'fied, hntETag, hntProxyAuthorization, hntReferer, hntAge, hntAcceptRanges,'
6886: +' hntAcceptEncoding, hntAcceptLanguage, hntAcceptCharset, hntIfModifiedSinc'
6887: +'e, hntIfUnmodifiedSince, hntRetryAfter, hntUpgrade, hntStatus, hntProxyCon'
6888: +'nection, hntOrigin, hntKeepAlive )
6889: THTTPHeaderName', 'record Value : THTTPHeaderNameEnum; Custom: Ansistr; end
6890: THTTPCustomHeader', 'record FieldName : Ansistr; FieldValue :'
6891: +' Ansistr; end
6892: //PHTTPCustomHeader', '^THTTPCustomHeader // will not work
6893: THTTPContentLengthEnum', '( hcltNone, hcltByteCount )
6894: THTTPContentLength', 'record Value : THTTPContentLengthEnum; ByteCount:Int64; end
6895: //PHTTPContentLength', '^THTTPContentLength // will not work
6896: THTTPContentTypeMajor','( hctmCustom, hctmText, hctmImage )
6897: THTTPContentTypeEnum', '( hctNone, hctCustomParts, hctCustomStri'
6898: +'ng, hctTextHtml, hctTextAscii, hctTextCss, hctTextPlain, hctTextXml, hctTe'

6899: +'xtCustom, hctImageJpeg, hctImagePng, hctImageGif, hctImageCustom, hctAppli'

6900: +'cationJSON, hctApplicationOctetStream, hctApplicationJavaScript, hctApplic'
6901: +'ationCustom, hctAudioCustom, hctVideoCustom )
6902: THTTPContentType', 'record Value : THTTPContentTypeEnum; CustomM'
6903: +ajor:Ansistr;CustomMinor:Ansistr;Parameters:AnsistrArray;CustomStr:Ansistr;end
6904: THTTPDateFieldEnum', '( hdNone, hdCustom, hdParts, hdDateTime )
6905: THTTPDateField', 'record Value : THTTPDateFieldEnum; DayOfWeek :'
6906: +' Int; Day : Int; Month : Int; Year : Int; Hour : Int; '
6907: +'Min : Int; Sec : Int; TimeZoneGMT :Bool; CustomTimeZone : Ansi'
6908: +'String; DateTime : TDateTime; Custom : Ansistr; end
6909: THTTPTransferEncodingEnum', '( hteNone, hteCustom, hteChunked )
6910: THTTPTransferEncoding', 'record Value : THTTPTransferEncodingEnum;Custom:Ansistr;end
6911: THTTPConnectionFieldEnum', '( hcfNone, hcfCustom, hcfClose, hcfKeepAlive )
6912: THTTPConnectionField', 'record Value : THTTPConnectionFieldEnum;Custom:Ansistr; end
6913: THTTPAgeFieldEnum', '( hafNone, hafCustom, hafAge )
6914: THTTPAgeField', 'record Value: THTTPAgeFieldEnum; Age : Int64;Custom:Ansistr; end
6915: THTTPCacheControlFieldEnum', '( hccfNone, hccfDecoded, hccfCustom )
6916: THTTPCacheControlRequestSubField', '( hccsfNoCache, hccsfNoStore'
6917: +', hccsfMaxAge, hccsfMaxStale, hccsfMinFresh, hccsfNoTransform, hccsfOnlyIfCached )
6918: THTTPCacheControlResponseSubField', '( hccrfPublic, hccrfPrivate'
6919: +', hccrfNoCache, hccrfNoStore, hccrfNoTransform, hccrfMustRevalidate, hccrf'
6920: +'ProxyRevalidate, hccrfMaxAge, hccrfSMaxAge )
6921: THTTPCacheControlField', 'record Value : THTTPCacheControlFieldEnum; end
6922: THTTPContentEncodingEnum', '( hceNone, hceCustom, hceIdentity, h'
6923: +'ceCompress, hceDeflate, hceExi, hceGzip, hcePack200Gzip )
6924: THTTPContentEncoding','record Value:THTTPContentEncodingEnum;Custom:Ansistr;end;
6925: THTTPContentEncodingFieldEnum', '( hcefNone, hcefList )
6926: THTTPContentEncodingField', 'record Value : THTTPContentEncoding'
6927: +'FieldEnum; List : array of THTTPContentEncoding; end
6928: THTTPRetryAfterFieldEnum', '( hrafNone, hrafCustom, harfDate, harfSeconds )
6929: THTTPRetryAfterField', 'record Value : THTTPRetryAfterFieldEnum;'
6930: +' Custom : Ansistr; Date : TDateTime; Seconds : Int64; end
6931: THTTPContentRangeFieldEnum', '( hcrfNone, hcrfCustom, hcrfByteRange )
6932: THTTPContentRangeField', 'record Value : THTTPContentRangeFieldE'
6933: +num; ByteFirst : Int64; ByteLast : Int64; ByteSize : Int64; Custom: Ansistr; end
6934: THTTPSetCookieFieldEnum', '( hscoNone, hscoDecoded, hscoCustom )
6935: THTTPSetCookieCustomField', 'record Name : Ansistr; Value : Ansistr; end
6936: THTTPSetCookieCustomFieldArray', 'array of THTTPSetCookieCustomField
6937: THTTPSetCookieField', 'record Value : THTTPSetCookieFieldEnum; D'
6938: +'omain : Ansistr; Path : Ansistr; Expires : THTTPDateField; MaxAge : '
6939: +'Int64; HttpOnly :Bool; Secure :Bool; CustomFields : THTTPSetCookie'
6940: +'CustomFieldArray; Custom : Ansistr; end
6941: //PHTTPSetCookieField', '^THTTPSetCookieField // will not work
6942: THTTPSetCookieFieldArray', 'array of THTTPSetCookieField
6943: THTTPCookieFieldEnum', '( hcoNone, hcoDecoded, hcoCustom )
6944: THTTPCookieFieldEntry', 'record Name : Ansistr; Value : Ansistr; end
6945: //PHTTPCookieFieldEntry', '^THTTPCookieFieldEntry // will not work
6946: THTTPCookieFieldEntryArray', 'array of THTTPCookieFieldEntry
6947: THTTPCookieField', 'record Value : THTTPCookieFieldEnum; Entries'
6948: +' : THTTPCookieFieldEntryArray; Custom : Ansistr; end
6949: THTTPCommonHeaders', 'record TransferEncoding : THTTPTransferEnc'
6950: +'oding; ContentType : THTTPContentType; ContentLength : THTTPContentLength;'
6951: +' Connection : THTTPConnectionField; ProxyConnection : THTTPConnectionField'
6952: +'; Date : THTTPDateField; ContentEncoding : THTTPContentEncodingField; end
6953: THTTPCustomHeaders', 'array of THTTPCustomHeader
6954: //THTTPFixedHeaders','array[THTTPHeaderNameEnum] of Ansistr
6955: THTTPFixedHeaders','array[0..42] of Ansistr
6956: THTTPMethodEnum', '( hmNone, hmCustom, hmGET, hmPUT, hmPOST, hmC'
6957: +'ONNECT, hmHEAD, hmDELETE, hmOPTIONS, hmTRACE )
6958: THTTPMethod', 'record Value : THTTPMethodEnum; Custom : Ansistr; end
6959: THTTPRequestStartLine','record Method:THTTPMethod;URI:Ansistr;Version:THTTPVersion;end
6960: THTTPRequestHeader', 'record CommonHeaders : THTTPCommonHeaders;'
6961: +' FixedHeaders : THTTPFixedHeaders; CustomHeaders : THTTPCustomHeaders; Coo'
6962: +'kie:THTTPCookieField; IfModifiedSince:THTTPDateField;IfUnmodifiedSince:THTTPDateField;end
6963: //PHTTPRequestHeader', '^THTTPRequestHeader // will not work
6964: THTTPRequest', 'record StartLine : THTTPRequestStartLine; Header'
6965: +' : THTTPRequestHeader; HeaderComplete :Bool; HasContent :Bool; end
6966: THTTPResponseStartLineMessage', '( hslmNone, hslmCustom, hslmOK)
6967: THTTPResponseStartLine', 'record Version : THTTPVersion; Code : '
6968: +'Int; Msg : THTTPResponseStartLineMessage; CustomMsg : Ansistr; end
6969: THTTPResponseHeader', 'record CommonHeaders : THTTPCommonHeaders'
6970: +'; FixedHeaders : THTTPFixedHeaders; CustomHeaders : THTTPCustomHeaders; Co'
6971: +'okies : THTTPSetCookieFieldArray; Expires : THTTPDateField; LastModified :'
6972: +' THTTPDateField; Age : THTTPAgeField; end
6973: //PHTTPResponseHeader', '^THTTPResponseHeader // will not work
6974: THTTPResponse', 'record StartLine : THTTPResponseStartLine; Head'
6975: +er : THTTPResponseHeader; HeaderComplete :Bool; HasContent :Bool; end
6976: Func HTTPMessageHasContent( const H : THTTPCommonHeaders) :Bool
6977: Proc InitHTTPRequest( var A : THTTPRequest)
6978: Proc InitHTTPResponse( var A : THTTPResponse)
6979: Proc ClearHTTPVersion( var A : THTTPVersion)
6980: Proc ClearHTTPContentLength( var A : THTTPContentLength)
6981: Proc ClearHTTPContentType( var A : THTTPContentType)
6982: Proc ClearHTTPDateField( var A : THTTPDateField)
6983: Proc ClearHTTPTransferEncoding( var A : THTTPTransferEncoding)
6984: Proc ClearHTTPConnectionField( var A : THTTPConnectionField)
6985: Proc ClearHTTPAgeField( var A : THTTPAgeField)
6986: Proc ClearHTTPContentEncoding( var A : THTTPContentEncoding)
6987: Proc ClearHTTPContentEncodingField( var A : THTTPContentEncodingField)

6988: Proc ClearHTTPContentRangeField( var A : THTTPContentRangeField)

6989: Proc ClearHTTPSetCookieField( var A : THTTPSetCookieField)
6990: Proc ClearHTTPCommonHeaders( var A : THTTPCommonHeaders)
6991: //Proc ClearHTTPFixedHeaders( var A : THTTPFixedHeaders)
6992: Proc ClearHTTPCustomHeaders( var A : THTTPCustomHeaders)
6993: Proc ClearHTTPCookieField( var A : THTTPCookieField)
6994: Proc ClearHTTPMethod( var A : THTTPMethod)
6995: Proc ClearHTTPRequestStartLine( var A : THTTPRequestStartLine)
6996: Proc ClearHTTPRequestHeader( var A : THTTPRequestHeader)
6997: Proc ClearHTTPRequest( var A : THTTPRequest)
6998: Proc ClearHTTPResponseStartLine( var A : THTTPResponseStartLine)
6999: Proc ClearHTTPResponseHeader( var A : THTTPResponseHeader)
7000: Proc ClearHTTPResponse( var A : THTTPResponse)
7001: THTTPStringOption', '( hsoNone )
7002: THTTPStringOptions', 'set of THTTPStringOption
7003: FindClass('TOBJECT'),'TAnsistrBuilder
7004: Proc BuildStrHTTPVersion(const A:THTTPVersion;const B:TAnsistrBuilder; PTHTTPStringOptions;
7005: Proc BuildStrHTTPContentLengthValue(const A:THTTPContentLength;B:TAnsistrBuilder;P:THTTPStringOptions)
7006: Proc BuildStrHTTPContentLength(const A : THTTPContentLength; B:TAnsistrBuilder;PTHTTPStringOptions)
7007: Proc BuildStrHTTPContentTypeValue(const A:THTTPContentType;B:TAnsistrBuilder;const P:THTTPStringOptions)
7008: Proc BuildStrHTTPContentType(const A:THTTPContType;const B:TAnsistrBuilder; const P:THTTPStringOptions)
7009: Proc BuildStrRFCDateTime(const DOW,Da,Mo,Ye,Ho,Mi,Se:Int;const TZ:Ansistr;const B:TAnsistrBuilder;const
P:THTTPStringOptions)
7010: Proc BuildStrHTTPDateFieldValue( const A : THTTPDateField; const B : TAnsistrBuilder; const P :
THTTPStringOptions)
7011: Proc BuildStrHTTPDateField(const A:THTTPDateField;const B:TAnsistrBuilder;const PTHTTPStringOptions);
7012: Proc BuildStrHTTPTransferEncodingValue( const A : THTTPTransferEncoding; const B : TAnsistrBuilder; const
P : THTTPStringOptions)
7013: Proc BuildStrHTTPTransferEncoding( const A : THTTPTransferEncoding; const B : TAnsistrBuilder; const P :
THTTPStringOptions)
7014: Proc BuildStrHTTPContentRangeField( const A : THTTPContentRangeField; const B : TAnsistrBuilder; const P
: THTTPStringOptions)
7015: Proc BuildStrHTTPConnectionFieldValue( const A : THTTPConnectionField; const B : TAnsistrBuilder; const P
: THTTPStringOptions)
7016: Proc BuildStrHTTPConnectionField( const A : THTTPConnectionField; const B : TAnsistrBuilder; const P :
THTTPStringOptions)
7017: Proc BuildStrHTTPAgeField(const A:THTTPAgeField;const B:TAnsistrBuilder;const P:THTTPStringOptions);
7018: Proc BuildStrHTTPContentEncoding( const A : THTTPContentEncoding; const B : TAnsistrBuilder; const P :
THTTPStringOptions)
7019: Proc BuildStrHTTPContentEncodingField(const A:THTTPContentEncodingField;const B:TAnsistrBuilder;const
P:THTTPStringOptions)
7020: Proc BuildStrHTTPProxyConnectionField(const A : THTTPConnectionField; const B : TAnsistrBuilder; const P
: THTTPStringOptions)
7021: Proc BuildStrHTTPCommonHeaders( const A: THTTPCommonHeaders; const B : TAnsistrBuilder; const P :
THTTPStringOptions)
7022: Proc BuildStrHTTPFixedHeaders(const A:THTTPFixedHeaders;const B:TAnsiStrBuilder;const
P:THTTPStringOptions)
7023: Proc BuildStrHTTPCustomHeaders( const A : THTTPCustomHeaders; const B : TAnsistrBuilder; const P :
THTTPStringOptions)
7024: Proc BuildStrHTTPSetCookieFieldValue( const A : THTTPSetCookieField; const B : TAnsistrBuilder; const P :
THTTPStringOptions)
7025: Proc BuildStrHTTPCookieFieldValue( const A : THTTPCookieField; const B : TAnsistrBuilder; const P :
THTTPStringOptions)
7026: Proc BuildStrHTTPCookieField(const A:THTTPCookieField;const B:TAnsiStrBuilder;const P:THTTPStringOptions);
7027: Proc BuildStrHTTPMethod(const A:THTTPMethod;const B:TAnsistrBuilder;const P: THTTPStringOptions)
7028: Proc BuildStrHTTPRequestStartLine( const A : THTTPRequestStartLine; const B : TAnsistrBuilder; const P :
THTTPStringOptions)
7029: Proc BuildStrHTTPRequestHeader(const A:THTTPRequestHeader;const B:TAnsistrBuilder;const
P:THTTPStrOptions);
7030: Proc BuildStrHTTPRequest(const A : THTTPRequest; const B: TAnsistrBuilder; const P : THTTPStringOptions)
7031: Proc BuildStrHTTPResponseCookieFieldArray( const A : THTTPSetCookieFieldArray; const B : TAnsistrBuilder;
const P : THTTPStringOptions)
7032: Proc BuildStrHTTPResponseStartLine(const A:THTTPResponsStartLine;const B:TAnsiStrBldr;const P
THTTPStrOptions);
7033: Proc BuildStrHTTPResponseHeader(const A:THTTPRespHeader;const B:TAnsiStrBuilder;const
P:THTTPStringOptions);
7034: Proc BuildStrHTTPResponse(const A:THTTPResponse; const B:TAnsistrBuilder; const P:THTTPStringOptions);
7035: Func HTTPContentTypeValueToStr( const A : THTTPContentType) : Ansistr
7036: Func HTTPSetCookieFieldValueToStr( const A : THTTPSetCookieField) : Ansistr
7037: Func HTTPCookieFieldValueToStr( const A : THTTPCookieField) : Ansistr
7038: Func HTTPMethodToStr( const A : THTTPMethod) : Ansistr
7039: Func HTTPRequestToStr( const A : THTTPRequest) : Ansistr
7040: Func HTTPResponseToStr( const A : THTTPResponse) : Ansistr
7041: Proc PrepareCookie(var A:THTTPCookieField;const B:THTTPSetCookieFieldArray;const Domain:Ansistr;const
Secure:Bool; THTTPParserHeaderParseFunc','Func (const HeaderName : THTT'
7042: +PHeaderNameEnum; const HeaderPtr : ___Pointer) :Bool
7043: SIRegister_THTTPParser(CL);
7044: FindClass('TOBJECT'),'THTTPContentDecoder
7045: THTTPContentDecoderProc', 'Proc ( const Sender : THTTPContentDecoder)
7046: THTTPContentDecoderContentType', '( crctFixedSize, crctChunked, crctUnsized )
7047: THTTPContentDecoderChunkState', '( crcsChunkHeader, crcsContent,'
7048: +' crcsContentCRLF, crcsTrailer, crcsFinished )
7049: THTTPContentDecoderLogEvent,Procedure(const Sender:THTTPContentDecoder;const LogMsg:str)
7050: SIRegister_THTTPContentDecoder(CL);
7051: THTTPContentReaderMechanism', '( hcrmEvent, hcrmString, hcrmStream, hcrmFile )
7052: FindClass('TOBJECT'),'THTTPContentReader
7053: THTTPContentReaderProc','Proc ( const Sender : THTTPContentReader)
7054: THTTPContentReaderLogEvent','Procedure(const Sender:THTTPContentReader;const LogMsg:str;const
LogLevel:Int;

7055: SIRegister_THTTPContentReader(CL);
7056: THTTPContentWriterMechanism','(hctmEvent, hctmString, hctmStream, hctmFile )
7057: FindClass('TOBJECT'),'THTTPContentWriter
7058: THTTPContentWriterLogEvent,Procedure(const Sender:THTTPContentWriter;const LogMsg:Ansistr);
7059: SIRegister_THTTPContentWriter(CL);
7060: Proc SelfTestcHTTPUtils
7061: end;
7062:
7063: (*----------------------------------------------------------------------------*)
7064: Proc SIRegister_cTLSUtils(CL: TPSPascalCompiler);
7065: begin
7066: 'TLSLibraryVersion','String '1.00
7067: 'TLSError_None','LongInt'( 0);
7068: 'TLSError_InvalidBuffer','LongInt'( 1);
7069: 'TLSError_InvalidParameter','LongInt'( 2);
7070: 'TLSError_InvalidCertificate','LongInt'( 3);
7071: 'TLSError_InvalidState','LongInt'( 4);
7072: 'TLSError_DecodeError','LongInt'( 5);
7073: 'TLSError_BadProtocol','LongInt'( 6);
7074: Func TLSErrorMessage( const TLSError : Int) :Str
7075: SIRegister_ETLSError(CL);
7076: TTLSProtocolVersion', 'record major : Byte; minor : Byte; end
7077: PTLSProtocolVersion', '^TTLSProtocolVersion // will not work
7078: Proc InitSSLProtocolVersion30( var A : TTLSProtocolVersion)
7079: Proc InitTLSProtocolVersion10( var A : TTLSProtocolVersion)
7080: Proc InitTLSProtocolVersion11( var A : TTLSProtocolVersion)
7081: Proc InitTLSProtocolVersion12( var A : TTLSProtocolVersion)
7082: Func IsTLSProtocolVersion( const A, B : TTLSProtocolVersion):Bool
7083: Func IsSSL2( const A : TTLSProtocolVersion) :Boolean
7084: Func IsSSL3( const A : TTLSProtocolVersion) :Boolean
7085: Func IsTLS10( const A : TTLSProtocolVersion):Boolean
7086: Func IsTLS11( const A : TTLSProtocolVersion):Boolean
7087: Func IsTLS12( const A : TTLSProtocolVersion):Boolean
7088: Func IsTLS10OrLater( const A : TTLSProtocolVersion) :Bool
7089: Func IsTLS11OrLater( const A : TTLSProtocolVersion) :Bool
7090: Func IsTLS12OrLater( const A : TTLSProtocolVersion) :Bool
7091: Func IsFutureTLSVersion( const A : TTLSProtocolVersion) :Bool
7092: Func IsKnownTLSVersion( const A : TTLSProtocolVersion) :Bool
7093: Func TLSProtocolVersionToStr( const A : TTLSProtocolVersion):Str
7094: Func TLSProtocolVersionName( const A : TTLSProtocolVersion) :Str
7095: PTLSRandom', '^TTLSRandom // will not work
7096: Proc InitTLSRandom( var Random : TTLSRandom)
7097: Func TLSRandomToStr( const Random : TTLSRandom) : Ansistr
7098: 'TLSSessionIDMaxLen','LongInt'( 32);
7099: Proc InitTLSSessionID( var SessionID : TTLSSessionID; const A : Ansistr)
7100: Func EncodeTLSSessionID(var Buff:str;const Size:Int;const SessionID:TTLSSessionID):Int;
7101: Func DecodeTLSSessionID(const Buff:str;const Size:Int;var SessionID:TTLSSessionID):Int;
7102: TTLSSignatureAndHashAlgorithm', 'record Hash : TTLSHashAlgorithm'
7103: +'; Signature : TTLSSignatureAlgorithm; end
7104: // PTLSSignatureAndHashAlgorithm', '^TTLSSignatureAndHashAlgorithm +'// will not work
7105: TTLSSignatureAndHashAlgorithmArray', 'array of TTLSSignatureAndHashAlgorithm
7106: TTLSKeyExchangeAlgorithm', '( tlskeaNone, tlskeaNULL, tlskeaDHE_'
7107: +DSS, tlskeaDHE_RSA, tlskeaDH_Anon, tlskeaRSA, tlskeaDH_DSS, tlskeaDH_RSA )
7108: TTLSMACAlgorithm', '( tlsmaNone, tlsmaNULL, tlsmaHMAC_MD5, tlsma'
7109: +HMAC_SHA1, tlsmaHMAC_SHA256, tlsmaHMAC_SHA384, tlsmaHMAC_SHA512 )
7110: TTLSMacAlgorithmInfo', 'record Name:Ansistr;DigestSize:Integer; Supported:Bool; end
7111: PTLSMacAlgorithmInfo', '^TTLSMacAlgorithmInfo // will not work
7112: 'TLS_MAC_MAXDIGESTSIZE','LongInt'( 64);
7113: TTLSPRFAlgorithm', '( tlspaSHA256 )
7114: Func tlsP_MD5( const Secret, Seed : Ansistr; const Size : Int) : Ansistr
7115: Func tlsP_SHA1( const Secret, Seed : Ansistr; const Size : Int) : Ansistr
7116: Func tlsP_SHA256( const Secret, Seed : Ansistr; const Size : Int) : Ansistr
7117: Func tlsP_SHA512( const Secret, Seed : Ansistr; const Size : Int) : Ansistr
7118: Func tls10PRF( const Secret, ALabel, Seed : Ansistr; const Size : Int) : Ansistr
7119: Func tls12PRF_SHA256(const Secret,ALabel,Seed:Ansistr; const Size : Int): Ansistr
7120: Func tls12PRF_SHA512(const Secret,ALabel,Seed :Ansistr; const Size: Int): Ansistr
7121: Func TLSPRF(const ProtoVersion:TTLSProtocolVersion;const Secret,ALabel,Seed:AString;const
Size:Int):AString;
7122: Func tls10KeyBlock(const MasterSecret,ServerRandom,ClientRandom:Ansistr;const Size:Int):AnsiStr
7123: Func tls12SHA256KeyBlock(const MasterSecret,ServerRandom,ClientRandom: Ansistr;const Size:Int):Ansistr;
7124: Func tls12SHA512KeyBlock(const MasterSecret,ServerRandom,ClientRandom: Ansistr;const Size:Int):Ansistr;
7125: Func TLSKeyBlock(const ProtocolVersion:TTLSProtocolVersion;const MasterSecret,ServerRandom,ClientRandom:
Ansistr;const Size:Int):Ansistr
7126: Func tls10MasterSecret(const PreMasterSecret,ClientRandom, ServerRandom:Ansistr) :Ansistr;
7127: Func tls12SHA256MasterSecret(const PreMasterSecret,ClientRandom,ServerRandom:AnsiStr):AnsiStr;
7128: Func tls12SHA512MasterSecret(const PreMasterSecret,ClientRandom,ServerRandom:AnsiStr): AnsiStr;
7129: Func TLSMasterSecret(const ProtocolVersion:TTLSProtocolVersion;const PreMasterSecret,ClientRandom,
ServerRandom:Ansistr):Ansistr
7130: TTLSKeys', 'record KeyBlock : Ansistr; ClientMACKey : AnsiStr'
7131: +'ing; ServerMACKey : Ansistr; ClientEncKey : Ansistr; ServerEncKey : '
7132: +'Ansistr; ClientIV : Ansistr; ServerIV : Ansistr; end
7133: Proc GenerateTLSKeys(const ProtocolVersion:TTLSProtocolVersion;const MACKeyBits,CipherKeyBits,
IVBits:Int;const MasterSecret,ServerRandom,ClientRandom:Ansistr;var TLSKeys: TTLSKeys)
7134: Proc GenerateFinalTLSKeys(const ProtocolVersion:TTLSProtocolVersion;const IsExportable:Bool;const
ExpandedKeyBits:Int;const ServerRandom,ClientRandom:Ansistr;var TLSKeys:TTLSKeys)
7135: 'TLS_PLAINTEXT_FRAGMENT_MAXSIZE','LongInt'( 16384 - 1);
7136: 'TLS_COMPRESSED_FRAGMENT_MAXSIZE','LongInt'( 16384 + 1024);
7137: Proc SelfTestcTLSUtils
7138: end;

7139:
7140: (*----------------------------------------------------------------------------*)
7141: Proc SIRegister_Reversi(CL: TPSPascalCompiler);
7142: begin
7143: sPosData','record
corner:boolean;square2x2:boolean;edge:bool;stable:Int;internal:Int;disks:Int;mx:Int;my:Int; end
7144: // pBoard', '^tBoard // will not work
7145: Func rCalculateData( cc : byte; cx, cy : Int) : sPosData
7146: Func rCheckMove( color : byte; cx, cy : Int) : Int
7147: //Func rDoStep( data : pBoard) : word
7148: Func winExecAndWait( const sAppPath :Str; wVisible : word) :Bool
7149: end;
7150:
7151: Proc SIRegister_IWDBCommon(CL: TPSPascalCompiler);
7152: begin
7153: Func InEditMode( ADataset : TDataset) :Bool
7154: Func CheckDataSource( ADataSource : TDataSource) :Bool;
7155: Func CheckDataSource1(ADataSource:TDataSource;const AFieldName:str;var VField:TField):bool;
7156: Func GetFieldText( AField:TField) :Str
7157: end;
7158:
7159: Proc SIRegister_SortGrid(CL: TPSPascalCompiler);
7160: begin
7161: TPrintMode', '( pmPrint, pmPreview, pmPageCount )
7162: TMyPrintRange', '( prAll, prSelected )
7163: TSortStyle', '(ssAutomatic,ssNormal,ssNumeric,ssNumericExtended,ssDateTime,ssTime,ssCustom )
7164: TSortDirection', '( sdAscending, sdDescending )
7165: TSetChecked', 'Proc ( Sender : TObject; ACol, ARow : Int; State :Bool)
7166: TGetCombobox', 'Proc ( Sender : TObject; ACol, ARow : integ'
7167: +er; var Strs : TStringList; var Width, Height : Int; var Sorted :Bool)
7168: TSetCombobox', 'Proc ( Sender : TObject; ACol, ARow : Int; Str :Str)
7169: TSetEllipsis', 'Proc ( Sender : TObject; ACol, ARow : Int)
7170: SIRegister_TSortOptions(CL);
7171: SIRegister_TPrintOptions(CL);
7172: TSortedListEntry', 'record Str :Str; RowNum : Int; SortOption : TSortOptions; end
7173: SIRegister_TSortedList(CL);
7174: TCellBevelStyle', '( cbNone, cbRaised, cbLowered )
7175: TCellBevel', 'record Style: TCellBevelStyle;UpperLeftColor:TColor;LowerRightColor:TColor;end
7176: TVertAlignment', '( taTopJustify, taBottomJustify, taMiddle )
7177: TFormatOptions', 'record Brush : TBrush; Font : TFont; Alignment'
7178: +Horz : TAlignment;AlignmentVert:TVertAlignment;Bevel:TCellBevel;HideText:Boolean; end
7179: SIRegister_TFontSetting(CL);
7180: SIRegister_TFontList(CL);
7181: AddTypeS(TFormatDrawCellEvent', 'Proc ( Sender : TObject; Col, Row :'
7182: +Int;State:TGridDrawState;var FormatOptions:TFormatOptions;var CheckBox,Combobox,Ellipsis:Bool);
7183: TSetFilterEvent', 'Proc ( ARows : TStrings; var Accept :Bool)
7184: TSearchEvent', 'Proc ( ARows : TStrings; var Accept :Bool)
7185: TUpdateGridEvent', 'Proc ( Sender : TObject; ARow : Int)
7186: TSizeChangedEvent', 'Proc ( Sender : TObject; OldColCount, OldRowCount : Int)
7187: TBeginSortEvent', 'Proc ( Sender : TObject; var Col : Int)
7188: TEndSortEvent', 'Proc ( Sender : TObject; Col : Int)
7189: TGetSortStyleEvent', 'Proc ( Sender : TObject; Col : integer; var SortStyle : TSortStyle)
7190: TCellValidateEvent', 'Proc ( Sender : TObject; ACol, ARow :'
7191: + Int; const OldValue :Str; var NewValue :Str; var Valid :Bool)
7192: SIRegister_TSortGrid(CL);
7193: Func ExtendedCompare( const Str1, Str2 :Str) : Int
7194: Func NormalCompare( const Str1, Str2 :Str) : Int
7195: Func DateTimeCompare( const Str1, Str2 :Str) : Int
7196: Func NumericCompare( const Str1, Str2 :Str) : Int
7197: Func TimeCompare( const Str1, Str2 :Str) : Int
7198: //Func Compare( Item1, Item2 : Pointer) : Int
7199: end;
7200:
7201: ************************************ Proc Register_IB(CL: TPSPascalCompiler);
7202: Proc IBAlloc( var P, OldSize, NewSize : Int)
7203: Proc IBError( ErrMess : TIBClientError; const Args : array of const)
7204: Proc IBDataBaseError
7205: Func StatusVector : PISC_STATUS
7206: Func StatusVectorArray : PStatusVector
7207: Func CheckStatusVector( ErrorCodes : array of ISC_STATUS) :Bool
7208: Func StatusVectorAsText :Str
7209: Proc SetIBDataBaseErrorMessages( Value : TIBDataBaseErrorMessages)
7210: Func GetIBDataBaseErrorMessages : TIBDataBaseErrorMessages
7211:
7212: //***********************unit uPSI_BoldUtils;***********************************
7213: Func CharCount( c : char; const s :Str) : Int
7214: Func BoldNamesEqual( const name1, name2 :Str) :Bool
7215: Proc BoldAppendToStrings(strings:TStrings; const aString:str;const ForceNewLine:Bool)
7216: Func BoldSeparateStringList(strings:TStringList;const Separatr,PreString,PostString:Str)Str
7217: Func BoldSeparatedAppend( const S1, S2 :Str; const Separator :Str) :Str
7218: Func BoldTrim( const S :Str) :Str
7219: Func BoldIsPrefix( const S, Prefix :Str) :Bool
7220: Func BoldStrEqual( P1, P2 : PChar; Len : Int) :Bool
7221: Func BoldStrAnsiEqual( P1, P2 : PChar; Len : Int) :Bool
7222: Func BoldAnsiEqual( const S1, S2 :Str) :Bool
7223: Func BoldStrStringEqual( const S1 :Str; P2 : PChar; Len : Int) :Bool
7224: Func BoldCaseIndependentPos( const Substr, S :Str) : Int
7225: //Proc EnumToStrings( aTypeInfo : pTypeInfo; Strings : TStrings)
7226: Func CapitalisedToSpaced( Capitalised :Str) :Str

7227: Func SpacedToCapitalised( Spaced :Str) :Str

7228: Func BooleanToString( BoolValue :Bool) :Str
7229: Func StringToBoolean( StrValue :Str) :Bool
7230: Func GetUpperLimitForMultiplicity( const Multiplicity :Str) : Int
7231: Func GetLowerLimitForMultiplicity( const Multiplicity :Str) : Int
7232: Func StringListToVarArray( List : TStringList) : variant
7233: Func IsLocalMachine( const Machinename : WideString) :Bool
7234: Func GetComputerNameStr :Str
7235: Func TimeStampComp( const Time1, Time2 : TTimeStamp) : Int
7236: Func BoldStrToDateFmt(const S:str;const DateFormat:str;const DateSeparatorChar:char):TDateTime
7237: Func BoldDateToStrFmt(const aDate:TDateTime;DateFormat:str;const DateSeparatorChar:char):Str;
7238: Func BoldParseFormattedDateList(const value:str;const formats:TStrings;var Date:TDateTime):Boolean;
7239: Func BoldParseFormattedDate(const value:str;const formats:array of string; var Date:TDateTime):Boolean;
7240: Proc EnsureTrailing( var Str :Str; ch : char)
7241: Func BoldDirectoryExists( const Name :Str) :Bool
7242: Func BoldForceDirectories( Dir :Str) :Bool
7243: Func BoldRootRegistryKey :Str
7244: Func GetModuleFileNameAsString( IncludePath :Bool) :Str
7245: Func BoldVariantToStrings( V : OleVariant; Strings : TStrings) : Int
7246: Func LogicalAnd( A, B : Int) :Bool
7247: record TByHandleFileInformation dwFileAttributes: DWORD; '
7248: +ftCreationTime : TFileTime; ftLastAccessTime : TFileTime; ftLastWriteTime '
7249: +: TFileTime; dwVolumeSerialNumber : DWORD; nFileSizeHigh : DWORD; nFileSiz'
7250: +eLow : DWORD; nNumberOfLinks : DWORD; nFileIndexHigh : DWORD; nFileIndexLow:DWORD; end
7251: Func GetFileInformationByHandle(hFile:THandle;var lpFileInformation:TByHandleFileInformation):BOOL;
7252: Func IsFirstInstance :Bool
7253: Proc ActivateFirst( AString : PChar)
7254: Proc ActivateFirstCommandLine
7255: Func MakeAckPkt(const BlockNumber: Word):Str;
7256: Proc SendError(UDPBase:TIdUDPBase;APeerIP:str;const APort:Int;const ErrNumb:Word;ErrStr:str;
7257: Proc SendError(UDPClient:TIdUDPClient;const ErrNumber:Word; ErrorString:str);overload;
7258: Proc SendError(UDPBase:TIdUDPBase;APeerIP:str;const APort:Int; E:Exception);overload;
7259: Proc SendError(UDPClient: TIdUDPClient; E: Exception); overload;
7260: Func IdStrToWord(const Value:Str): Word;
7261: Func IdWordToStr(const Value: Word): WordStr;
7262: Func HasInstructionSet( const InstructionSet : TCPUInstructionSet) :Bool
7263: Func CPUFeatures : TCPUFeatures
7264:
7265: Proc SIRegister_xrtl_util_CPUUtils(CL: TPSPascalCompiler);
7266: begin
7267: AddTypeS('TXRTLBitIndex', 'Int
7268: Func XRTLSwapBits( Data :Card; Bit1Index, Bit2Index : TXRTLBitIndex) :Card
7269: Func XRTLBitTest( Data :Card; BitIndex : TXRTLBitIndex) :Bool
7270: Func XRTLBitSet( Data :Card; BitIndex : TXRTLBitIndex) :Card
7271: Func XRTLBitReset( Data :Card; BitIndex : TXRTLBitIndex) :Card
7272: Func XRTLBitComplement( Data :Card; BitIndex : TXRTLBitIndex) :Card
7273: Func XRTLSwapHiLo16( X : Word) : Word
7274: Func XRTLSwapHiLo32( X :Card) :Card
7275: Func XRTLSwapHiLo64( X : Int64) : Int64
7276: Func XRTLROL32( A, S :Card) :Card
7277: Func XRTLROR32( A, S :Card) :Card
7278: Func XRTLROL16( A : Word; S :Card) : Word
7279: Func XRTLROR16( A : Word; S :Card) : Word
7280: Func XRTLROL8( A : Byte; S :Card) : Byte
7281: Func XRTLROR8( A : Byte; S :Card) : Byte
7282: //Proc XRTLXorBlock( I1, I2, O1 : PByteArray; Len : Int)
7283: //Proc XRTLIncBlock( P : PByteArray; Len : Int)
7284: Proc XRTLUMul64( const A, B : Int; var MulL, MulH : Int)
7285: Func XRTLPopulation( A :Card):Card
7286: end;
7287: Func XRTLURLDecode( const ASrc : WideString) : WideString
7288: Func XRTLURLEncode( const ASrc : WideString) : WideString
7289: Func XRTLURINormalize( const AURI : WideString) : WideString
7290: Proc XRTLURIParse(const AURI:WideString;var VProtocol,VHost,VPath,VDocument,VPort,VBookmark,VUserName,
VPassword:WideString)
7291: Func XRTLExtractLongPathName(APath:Str):Str;
7292:
7293: Proc SIRegister_cFundamentUtils(CL: TPSPascalCompiler);
7294: begin
7295: Int8', 'ShortInt
7296: AddTypeS('Int16', 'SmallInt
7297: Int32', 'LongInt
7298: UInt8', 'Byte
7299: UInt16', 'Word
7300: UInt32', 'LongWord
7301: UInt64', 'Int64
7302: Word8', 'UInt8
7303: Word16', 'UInt16
7304: Word32', 'UInt32
7305: Word64', 'UInt64
7306: LargeInt', 'Int64
7307: NativeInt', 'Int
7308: AddTypeS('NativeUInt', 'Cardinal
7309: Const('BitsPerByte','LongInt'( 8);
7310: Const('BitsPerWord','LongInt'( 16);
7311: Const('BitsPerLongWord','LongInt'( 32);
7312: //Const('BitsPerCardinal','LongInt'( BytesPerCardinal * 8);
7313: //Const('BitsPerNativeWord','LongInt'( BytesPerNativeWord * 8);
7314: Func MinI( const A,B Int) : Int

7315: Func MaxI( const A,B:Int) : Int

7316: Func MinC( const A,B:Card) :Card
7317: Func MaxC( const A,B:Card) :Card
7318: Func SumClipI( const A, I : Int) : Int
7319: Func SumClipC( const A :Card; const I : Int) :Card
7320: Func InByteRange( const A : Int64) :Bool
7321: Func InWordRange( const A : Int64) :Bool
7322: Func InLongWordRange( const A : Int64): Bool
7323: Func InShortIntRange( const A : Int64): Bool
7324: Func InSmallIntRange( const A : Int64 : Bool
7325: Func InLongIntRange( const A : Int64) : Bool
7326: AddTypeS('Bool8', 'ByteBool
7327: AddTypeS('Bool16', 'WordBool
7328: AddTypeS('Bool32', 'LongBool
7329: AddTypeS('TCompareResult', '( crLess, crEqual, crGreater, crUndefined )
7330: AddTypeS('TCompareResultSet', 'set of TCompareResult
7331: Func ReverseCompareResult( const C : TCompareResult) : TCompareResult
7332: Const('MinSingle','Single').setExtended( 1.5E-45);
7333: Const('MaxSingle','Single').setExtended( 3.4E+38);
7334: Const('MinDouble','Double').setExtended( 5.0E-324);
7335: Const('MaxDouble','Double').setExtended( 1.7E+308);
7336: Const('MinExtended','Extended').setExtended(3.4E-4932);
7337: Const('MaxExtended','Extended').setExtended(1.1E+4932);
7338: Const('MinCurrency','Currency').SetExtended( - 922337203685477.5807);
7339: Const('MaxCurrency','Currency').SetExtended( 922337203685477.5807);
7340: Func MinF( const A, B : Float) : Float
7341: Func MaxF( const A, B : Float) : Float
7342: Func ClipF( const Value : Float; const Low, High : Float) : Float
7343: Func InSingleRange( const A : Float) :Bool
7344: Func InDoubleRange( const A : Float) :Bool
7345: Func InCurrencyRange( const A : Float) :Bool;
7346: Func InCurrencyRange1( const A : Int64) :Bool;
7347: Func FloatExponentBase2( const A : Extended; var Exponent : Int) :Bool
7348: Func FloatExponentBase10( const A : Extended; var Exponent : Int):Bool
7349: Func FloatIsInfinity( const A : Extended) :Bool
7350: Func FloatIsNaN( const A : Extended) :Bool
7351: Const('SingleCompareDelta','Extended').setExtended( 1.0E-34);
7352: Const('DoubleCompareDelta','Extended').setExtended( 1.0E-280);
7353: Const('ExtendedCompareDelta','Extended').setExtended( 1.0E-4400);
7354: Const('DefaultCompareDelta','Extended').SetExtended( 1.0E-34);
7355: Func FloatZero( const A : Float; const CompareDelta : Float) :Bool
7356: Func FloatOne( const A : Float; const CompareDelta : Float) :Bool
7357: Func FloatsEqual( const A, B : Float; const CompareDelta : Float) :Bool
7358: Func FloatsCompare( const A, B : Float; const CompareDelta : Float) : TCompareResult
7359: Const('SingleCompareEpsilon','Extended').setExtended( 1.0E-5);
7360: Const('DoubleCompareEpsilon','Extended').setExtended( 1.0E-13);
7361: Const('ExtendedCompareEpsilon','Extended').setExtended( 1.0E-17);
7362: Const('DefaultCompareEpsilon','Extended').setExtended( 1.0E-10);
7363: Func ApproxEqual( const A, B : Extended; const CompareEpsilon : Double) :Bool
7364: Func ApproxCompare( const A, B : Extended; const CompareEpsilon : Double): TCompareResult
7365: Func cClearBit( const Value, BitIndex : LongWord) : LongWord
7366: Func cSetBit( const Value, BitIndex : LongWord) : LongWord
7367: Func cIsBitSet( const Value, BitIndex : LongWord) :Bool
7368: Func cToggleBit( const Value, BitIndex : LongWord) : LongWord
7369: Func cIsHighBitSet( const Value : LongWord) :Bool
7370: Func SetBitScanForward( const Value : LongWord) : Int;
7371: Func SetBitScanForward1( const Value, BitIndex : LongWord) : Int;
7372: Func SetBitScanReverse( const Value : LongWord) : Int;
7373: Func SetBitScanReverse1( const Value, BitIndex : LongWord) : Int;
7374: Func ClearBitScanForward( const Value : LongWord) : Int;
7375: Func ClearBitScanForward1( const Value, BitIndex : LongWord) : Int;
7376: Func ClearBitScanReverse( const Value : LongWord) : Int;
7377: Func ClearBitScanReverse1( const Value, BitIndex : LongWord) : Int;
7378: Func cReverseBits( const Value : LongWord) : LongWord;
7379: Func cReverseBits1( const Value : LongWord; const BitCount : Int) : LongWord;
7380: Func cSwapEndian( const Value : LongWord) : LongWord
7381: Func cTwosComplement( const Value : LongWord) : LongWord
7382: Func RotateLeftBits16( const Value : Word; const Bits : Byte) : Word
7383: Func RotateLeftBits32( const Value : LongWord; const Bits : Byte) : LongWord
7384: Func RotateRightBits16( const Value : Word; const Bits : Byte) : Word
7385: Func RotateRightBits32( const Value : LongWord; const Bits : Byte) : LongWord
7386: Func cBitCount( const Value : LongWord) : LongWord
7387: Func cIsPowerOfTwo( const Value : LongWord) :Bool
7388: Func LowBitMask( const HighBitIndex : LongWord) : LongWord
7389: Func HighBitMask( const LowBitIndex : LongWord) : LongWord
7390: Func RangeBitMask( const LowBitIndex, HighBitIndex : LongWord) : LongWord
7391: Func SetBitRange(const Value:LongWord;const LowBitIndex,HighBitIndex: LongWord): LongWord
7392: Func ClearBitRange(const Value:LongWord;const LowBitIndex,HighBitIndex:LongWord): LongWord
7393: Func ToggleBitRange(const Value:LongWord;const LowBitIndex,HighBitIndex:LongWord):LongWord
7394: Func IsBitRangeSet(const Value:LongWord;const LowBitIndex,HighBitIndex:LongWord):Bool
7395: Func IsBitRangeClear(const Value:LongWord;const LowBitIndex,HighBitIndex:LongWord):Boolean
7396: // AddTypeS('CharSet', 'set of AnsiChar
7397: AddTypeS('CharSet', 'set of Char //!!!
7398: AddTypeS('AnsiCharSet', 'TCharSet
7399: AddTypeS('ByteSet', 'set of Byte
7400: AddTypeS('AnsiChar', 'Char
7401: // Func AsCharSet( const C : array of AnsiChar) : CharSet
7402: Func AsByteSet( const C : array of Byte) : ByteSet
7403: Proc ComplementChar( var C : CharSet; const Ch : Char)

7404: Proc ClearCharSet( var C : CharSet)

7405: Proc FillCharSet( var C : CharSet)
7406: Proc FillCharSearchRec; // with 0
7407: Proc ComplementCharSet( var C : CharSet)
7408: Proc AssignCharSet( var DestSet : CharSet; const SourceSet : CharSet)
7409: Proc Union( var DestSet : CharSet; const SourceSet : CharSet)
7410: Proc Difference( var DestSet : CharSet; const SourceSet : CharSet)
7411: Proc Intersection( var DestSet : CharSet; const SourceSet : CharSet)
7412: Proc XORCharSet( var DestSet : CharSet; const SourceSet : CharSet)
7413: Func IsSubSet( const A, B : CharSet) :Bool
7414: //Func IsEqual( const A, B : CharSet) :Bool
7415: Func IsEqualCharset( const A, B : CharSet) :Bool
7416: Func IsEqual( const D1, D2 : TDateTime) :Bool;
7417: Func IsEmpty( const C : CharSet) :Bool
7418: Func IsEmptyCharset( const C : CharSet) :Bool
7419: Func IsComplete( const C : CharSet) :Bool
7420: Func cCharCount( const C : CharSet) : Int
7421: Proc ConvertCaseInsensitive( var C : CharSet)
7422: Func CaseInsensitiveCharSet( const C : CharSet) : CharSet
7423: Func IntRangeLength( const Low, High : Int) : Int64
7424: Func IntRangeAdjacent( const Low1, High1, Low2, High2 : Int) :Bool
7425: Func IntRangeOverlap( const Low1, High1, Low2, High2 : Int) :Bool
7426: Func IntRangeHasElement( const Low, High, Element : Int) :Bool
7427: Func IntRangeIncludeElement( var Low, High : Int; const Element : Int) :Bool
7428: Func IntRangeIncludeElementRange(var Low,High:Int;const LowElement,HighElement:Int):Boolean
7429: Func CardRangeLength( const Low, High :Card) : Int64
7430: Func CardRangeAdjacent( const Low1, High1, Low2, High2 :Card) :Bool
7431: Func CardRangeOverlap( const Low1, High1, Low2, High2 :Card) :Bool
7432: Func CardRangeHasElement( const Low, High, Element :Card) :Bool
7433: Func CardRangeIncludeElement( var Low, High :Card; const Element :Card) :Bool
7434: Func CardRangeIncludeElementRange(var Low,High:Card;const LowElement,HighElemnt:Card):Bool;
7435: AddTypeS('UnicodeChar', 'WideChar
7436: Func Compare( const I1, I2 :Bool) : TCompareResult;
7437: Func Compare1( const I1, I2 : Int) : TCompareResult;
7438: Func Compare2( const I1, I2 : Int64) : TCompareResult;
7439: Func Compare3( const I1, I2 : Extended) :TCompareResult;
7440: Func CompareA( const I1, I2 : Ansistr): TCompareResult
7441: Func CompareW( const I1, I2 : WideString): TCompareResult
7442: Func cSgn( const A : LongInt) : Int;
7443: Func cSgn1( const A : Int64) : Int;
7444: Func cSgn2( const A : Extended) : Int;
7445: AddTypeS('TConvertResult', '( convertOK, convertFormatError, convertOverflow )
7446: Func AnsiCharToInt( const A : AnsiChar) : Int
7447: Func WideCharToInt( const A : WideChar) : Int
7448: Func CharToInt( const A : Char) : Int
7449: Func IntToAnsiChar( const A : Int) : AnsiChar
7450: Func IntToWideChar( const A : Int) : WideChar
7451: Func IntToChar( const A : Int) : Char
7452: Func IsHexAnsiChar( const Ch : AnsiChar) :Bool
7453: Func IsHexWideChar( const Ch : WideChar) :Bool
7454: Func IsHexChar( const Ch : Char) :Bool
7455: Func HexAnsiCharToInt( const A : AnsiChar) : Int
7456: Func HexWideCharToInt( const A : WideChar) : Int
7457: Func HexCharToInt( const A : Char) : Int
7458: Func IntToUpperHexAnsiChar( const A : Int) : AnsiChar
7459: Func IntToUpperHexWideChar( const A : Int) : WideChar
7460: Func IntToUpperHexChar( const A : Int) : Char
7461: Func IntToLowerHexAnsiChar( const A : Int) : AnsiChar
7462: Func IntToLowerHexWideChar( const A : Int) : WideChar
7463: Func IntToLowerHexChar( const A : Int) : Char
7464: Func IntToStringA( const A : Int64) : Ansistr
7465: Func IntToStringW( const A : Int64) : WideString
7466: Func IntToString( const A : Int64) :Str
7467: Func UIntToStringA( const A : NativeUInt) : Ansistr
7468: Func UIntToStringW( const A : NativeUInt) : WideString
7469: Func UIntToString( const A : NativeUInt) :Str
7470: Func LongWordToStrA( const A : LongWord; const Digits : Int) : Ansistr
7471: Func LongWordToStrW( const A : LongWord; const Digits : Int) : WideString
7472: Func LongWordToStrU( const A : LongWord; const Digits : Int) : UnicodeString
7473: Func LongWordToStr( const A : LongWord; const Digits : Int) :Str
7474: Func LongWordToHexA(const A:LongWord;const Digits:Int;const UpperCase:Bool):Ansistr;
7475: Func LongWordToHexW(const A:LongWord;const Digits:Int;const UpperCase:Bool):WideString;
7476: Func LongWordToHex( const A : LongWord; const Digits : Int;const UpperCase:Boolean):str
7477: Func LongWordToOctA( const A : LongWord; const Digits : Int) : Ansistr
7478: Func LongWordToOctW( const A : LongWord; const Digits : Int) : WideString
7479: Func LongWordToOct( const A : LongWord; const Digits : Int) :Str
7480: Func LongWordToBinA( const A : LongWord; const Digits : Int) : Ansistr
7481: Func LongWordToBinW( const A : LongWord; const Digits : Int) : WideString
7482: Func LongWordToBin( const A : LongWord; const Digits : Int) :Str
7483: Func TryStringToInt64A( const S : Ansistr; out A : Int64) :Bool
7484: Func TryStringToInt64W( const S : WideString; out A : Int64) :Bool
7485: Func TryStringToInt64( const S :Str; out A : Int64) :Bool
7486: Func StringToInt64DefA( const S : Ansistr; const Default : Int64): Int64
7487: Func StringToInt64DefW( const S : WideString; const Default : Int64): Int64
7488: Func StringToInt64Def( const S :Str; const Default : Int64) : Int64
7489: Func StringToInt64A( const S : Ansistr) : Int64
7490: Func StringToInt64W( const S : WideString) : Int64
7491: Func StringToInt64( const S :Str) : Int64
7492: Func TryStringToIntA( const S : Ansistr; out A : Int) :Bool

7493: Func TryStringToIntW( const S : WideString; out A : Int) :Bool

7494: Func TryStringToInt( const S :Str; out A : Int) :Bool
7495: Func StringToIntDefA( const S : Ansistr; const Default : Int) : Int
7496: Func StringToIntDefW( const S : WideString; const Default : Int) : Int
7497: Func StringToIntDef( const S :Str; const Default : Int) : Int
7498: Func StringToIntA( const S : Ansistr) : Int
7499: Func StringToIntW( const S : WideString) : Int
7500: Func StringToInt( const S :Str) : Int
7501: Func TryStringToLongWordA( const S : Ansistr; out A : LongWord) :Bool
7502: Func TryStringToLongWordW( const S : WideString; out A : LongWord) :Bool
7503: Func TryStringToLongWord( const S :Str; out A : LongWord) :Bool
7504: Func StringToLongWordA( const S : Ansistr) : LongWord
7505: Func StringToLongWordW( const S : WideString) : LongWord
7506: Func StringToLongWord( const S :Str) : LongWord
7507: Func HexToUIntA( const S : Ansistr) : NativeUInt
7508: Func HexToUIntW( const S : WideString) : NativeUInt
7509: Func HexToUInt( const S :Str) : NativeUInt
7510: Func TryHexToLongWordA( const S : Ansistr; out A : LongWord) :Bool
7511: Func TryHexToLongWordW( const S : WideString; out A : LongWord) :Bool
7512: Func TryHexToLongWord( const S :Str; out A : LongWord) :Bool
7513: Func HexToLongWordA( const S : Ansistr) : LongWord
7514: Func HexToLongWordW( const S : WideString) : LongWord
7515: Func HexToLongWord( const S :Str) : LongWord
7516: Func TryOctToLongWordA( const S : Ansistr; out A : LongWord) :Bool
7517: Func TryOctToLongWordW( const S : WideString; out A : LongWord) :Bool
7518: Func TryOctToLongWord( const S :Str; out A : LongWord) :Bool
7519: Func OctToLongWordA( const S : Ansistr) : LongWord
7520: Func OctToLongWordW( const S : WideString) : LongWord
7521: Func OctToLongWord( const S :Str) : LongWord
7522: Func TryBinToLongWordA( const S : Ansistr; out A : LongWord) :Bool
7523: Func TryBinToLongWordW( const S : WideString; out A : LongWord) :Bool
7524: Func TryBinToLongWord( const S :Str; out A : LongWord) :Bool
7525: Func BinToLongWordA( const S : Ansistr) : LongWord
7526: Func BinToLongWordW( const S : WideString) : LongWord
7527: Func BinToLongWord( const S :Str) : LongWord
7528: Func FloatToStringA( const A : Extended) : Ansistr
7529: Func FloatToStringW( const A : Extended) : WideString
7530: Func FloatToString( const A : Extended) :Str
7531: Func FloatToStringA( const A : Extended) :Str
7532: Func TryStringToFloatA( const A : Ansistr; out B : Extended) :Bool
7533: Func TryStringToFloatW( const A : WideString; out B : Extended) :Bool
7534: Func TryStringToFloat( const A :Str; out B : Extended) :Bool
7535: Func StringToFloatA( const A : Ansistr) : Extended
7536: Func StringToFloatW( const A : WideString) : Extended
7537: Func StringToFloat( const A :Str) : Extended
7538: Func StringToFloatDefA( const A : Ansistr; const Default : Extended) : Extended
7539: Func StringToFloatDefW( const A : WideString; const Default : Extended) : Extended
7540: Func StringToFloatDef( const A :Str; const Default : Extended) : Extended
7541: Func EncodeBase64(const S,Alphabet:Ansistr;const Pad:Boolean;const PadMultiple:Int;const
PadChar:AnsiChar):Ansistr
7542: Func DecodeBase64( const S, Alphabet:Ansistr;const PadSet:CharSet):Ansistr
7543: unit uPSI_cFundamentUtils;
7544: Const('b64_MIMEBase64',Str).String('ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/
7545: Const('b64_UUEncode','String').String('!"#$%&''()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_';
7546: Const('b64_XXEncode','String').String('+-0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz';
7547: Const('CCHARSET','Stringb64_XXEncode);
7548: Const('CHEXSET','String'0123456789ABCDEF
7549: Const('HEXDIGITS','String'0123456789ABCDEF
7550: StHexDigits : array[0..$F] of Char = '0123456789ABCDEF';
7551: Const('DIGISET','String'0123456789
7552: Const('LETTERSET','String'ABCDEFGHIJKLMNOPQRSTUVWXYZ'
7553: Const('DIGISET2','TCharset').SetSet('0123456789'
7554: Const('LETTERSET2','TCharset').SetSet('ABCDEFGHIJKLMNOPQRSTUVWXYZ'
7555: Const('HEXSET2','TCharset').SetSET('0123456789ABCDEF;
7556: Const('NUMBERSET','TCharset').SetSet('0123456789;
7557: Const('NUMBERS','String'0123456789;
7558: Const('LETTERS','String'ABCDEFGHIJKLMNOPQRSTUVWXYZ;
7559: Const('NUMBLETTS','String').SetString('0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ;
7560: Const('NUMBLETTSET','TCharset').SetSet('0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ;
7561: Func CharSetToStr( const C : CharSet) : Ansistr
7562: Func StrToCharSet( const S : Ansistr) : CharSet
7563: Func MIMEBase64Decode( const S : Ansistr) : Ansistr
7564: Func MIMEBase64Encode( const S : Ansistr) : Ansistr
7565: Func UUDecode( const S: Ansistr) : Ansistr
7566: Func XXDecode( const S Ansistr) : Ansistr
7567: Func BytesToHex( const P : array of Byte; const UpperCase :Bool) : Ansistr
7568: Func InterfaceToStrA( const I : IInterface) : Ansistr
7569: Func InterfaceToStrW( const I : IInterface) : WideString
7570: Func InterfaceToStr( const I : IInterface) :Str
7571: Func ObjectClassName( const O : TObject) :Str
7572: Func ClassClassName( const C : TClass) :Str
7573: Func ObjectToStr( const O : TObject) :Str
7574: Func ObjectToString( const O : TObject) :Str
7575: Func CharSetToStr( const C : CharSet) : Ansistr
7576: Func StrToCharSet( const S : Ansistr) : CharSet
7577: Func HashStrA(const S : Ansistr; const Index : Int; const Count: Int;const AsciiCaseSensitive :Bool;
const Slots : LongWord) : LongWord
7578: Func HashStrW(const S:WideString;const Index:Int;const Count:Int;const AsciiCaseSensitive:Bool;const
Slots:LongWord):LongWord

7579: Func HashStr(const S:str;const Index:Int;const Count:Int;const AsciiCaseSensitive:Bool;const Slots:

LongWord):LongWord
7580: Func HashInt( const I : Int; const Slots : LongWord) : LongWord
7581: Func HashLongWord( const I : LongWord; const Slots : LongWord) : LongWord
7582: Const('Bytes1KB','LongInt'( 1024);
7583: SIRegister_IInterface(CL);
7584: Proc SelfTestCFundamentUtils
7585:
7586: Func CreateSchedule : IJclSchedule
7587: Func NullStamp : TTimeStamp
7588: Func CompareTimeStamps(const Stamp1, Stamp2 : TTimeStamp) : Int64
7589: Func EqualTimeStamps(const Stamp1, Stamp2 : TTimeStamp) :Bool
7590: Func IsNullTimeStamp(const Stamp : TTimeStamp) :Bool
7591:
7592: Proc SIRegister_uwinplot(CL: TPSPascalCompiler);
7593: begin
7594: AddTypeS(TFunc', 'function(X : Float) : Float;
7595: Func InitGraphics( Width, Height : Int) :Bool
7596: Proc SetWindow( Canvas : TCanvas; X1, X2, Y1, Y2 : Int; GraphBorder :Bool)
7597: Proc SetOxScale( Scale : TScale; OxMin, OxMax, OxStep : Float)
7598: Proc SetOyScale( Scale : TScale; OyMin, OyMax, OyStep : Float)
7599: Proc GetOxScale( var Scale : TScale; var OxMin, OxMax, OxStep : Float)
7600: Proc GetOyScale( var Scale : TScale; var OyMin, OyMax, OyStep : Float)
7601: Proc SetGraphTitle( Title :Str)
7602: Proc SetOxTitle( Title :Str)
7603: Proc SetOyTitle( Title :Str)
7604: Func GetGraphTitle :Str
7605: Func GetOxTitle :Str
7606: Func GetOyTitle :Str
7607: Proc PlotOxAxis( Canvas : TCanvas)
7608: Proc PlotOyAxis( Canvas : TCanvas)
7609: Proc PlotGrid( Canvas : TCanvas; Grid : TGrid)
7610: Proc WriteGraphTitle( Canvas : TCanvas)
7611: Func SetMaxCurv( NCurv : Byte) :Bool
7612: Proc SetPointParam( CurvIndex, Symbol, Size : Int; Color : TColor)
7613: Proc SetLineParam(CurvIndex: Int; Style : TPenStyle; Width : Int; Color : TColor)
7614: Proc SetCurvLegend( CurvIndex : Int; Legend :Str)
7615: Proc SetCurvStep( CurvIndex, Step : Int)
7616: Func GetMaxCurv : Byte
7617: Proc GetPointParam( CurvIndex : Int; var Symbol, Size : Int; var Color : TColor)
7618: Proc GetLineParam(CurvIndex:Int;var Style:TPenStyle;var Width:Int;var Color:TColor);
7619: Func GetCurvLegend( CurvIndex : Int) :Str
7620: Func GetCurvStep( CurvIndex : Int) : Int
7621: Proc PlotPoint( Canvas : TCanvas; X, Y : Float; CurvIndex : Int)
7622: Proc PlotCurve( Canvas : TCanvas; X, Y : TVector; Lb, Ub, CurvIndex : Int)
7623: Proc PlotCurveWithErrorBars(Canvas : TCanvas; X,Y,S: TVector; Ns,Lb,Ub,CurvIndex:Int)
7624: Proc PlotFunc(Canvas: TCanvas; Func: TFunc; Xmin,Xmax: Float; Npt,CurvIndex: Int)
7625: Proc WriteLegend( Canvas : TCanvas; NCurv : Int; ShowPoints, ShowLines :Bool)
7626: Proc ConRec( Canvas : TCanvas; Nx, Ny, Nc : Int; X, Y, Z : TVector; F : TMatrix)
7627: Func Xpixel(X:Float) : Int
7628: Func Ypixel(Y:Float) : Int
7629: Func Xuser( X:Int) : Float
7630: Func Yuser( Y:Int) : Float
7631: end;
7632:
7633: Proc FFT( NumSamples : Int; InArray, OutArray : TCompVector)
7634: Proc IFFT( NumSamples : Int; InArray, OutArray : TCompVector)
7635: Proc FFT_Int( NumSamples : Int; RealIn, ImagIn : TIntVector; OutArray : TCompVector)
7636: Proc FFT_Int_Cleanup
7637: Proc CalcFrequency(NumSamples,FrequencyIndex: Int;InArray: TCompVector;var FT : Complex)
7638: //unit uPSI_JclStreams;
7639: Func StreamSeek(Stream: TStream; const Offset: Int64; const Origin : TSeekOrigin) : Int64
7640: Func StreamCopy( Source : TStream; Dest : TStream; BufferSize : Int) : Int64
7641: Func CompareStreams( A, B : TStream; BufferSize : Int) :Bool
7642: Func JCompareFiles( const FileA, FileB : TFileName; BufferSize : Int) :Bool
7643:
7644: Proc SIRegister_FmxUtils(CL: TPSPascalCompiler);
7645: begin
7646: FindClass('TOBJECT'),'EInvalidDest
7647: FindClass('TOBJECT'),'EFCantMove
7648: Proc fmxCopyFile( const FileName, DestName :Str)
7649: Proc fmxMoveFile( const FileName, DestName :Str)
7650: Func fmxGetFileSize( const FileName :Str) : LongInt
7651: Func fmxFileDateTime( const FileName :Str) : TDateTime
7652: Func fmxHasAttr( const FileName :Str; Attr : Word) :Bool
7653: Func fmxExecuteFile( const FileName, Params, DefaultDir:Str; ShowCmd : Int):THandle;
7654: end;
7655:
7656: Proc SIRegister_FindFileIter(CL: TPSPascalCompiler);
7657: begin
7658: SIRegister_IFindFileIterator(CL);
7659: Func CreateFindFile(const Path:str; IncludeAttr:Int;out iffi:IFindFileIterator):Bool;
7660: end;
7661:
7662: Proc SIRegister_PCharUtils(CL: TPSPascalCompiler);
7663: begin
7664: Func SkipWhite( cp : PChar) : PChar
7665: Func ReadStringDoubleQuotedMaybe( cp : PChar; var AStr :Str) : PChar
7666: Func ReadStringSingleQuotedMaybe( cp : PChar; var AStr :Str) : PChar

7667: Func ReadIdent( cp : PChar; var ident :Str) : PChar

7668: end;
7669:
7670: Proc SIRegister_JclStrHashMap(CL: TPSPascalCompiler);
7671: begin
7672: SIRegister_TStringHashMapTraits(CL);
7673: Func CaseSensitiveTraits : TStringHashMapTraits
7674: Func CaseInsensitiveTraits : TStringHashMapTraits
7675: THashNode','record Str:str;Ptr:Pointer; Left:PHashNode;Right:PHashNode;end
7676: //PHashArray', '^THashArray // will not work
7677: SIRegister_TStringHashMap(CL);
7678: THashValue', 'Cardinal
7679: Func StrHash( const s :Str) : THashValue
7680: Func TextHash( const s :Str) : THashValue
7681: Func DataHash( var AValue, ASize :Card) : THashValue
7682: Func Iterate_FreeObjects(AUserData:Pointer;const AStr:str; var AData:Pointer):Boolean
7683: Func Iterate_Dispose(AUserData: Pointer;const AStr:str; var AData: Pointer):Bool
7684: Func Iterate_FreeMem(AUserData: Pointer;const AStr:str; var AData Pointer):Bool
7685: SIRegister_TCaseSensitiveTraits(CL);
7686: SIRegister_TCaseInsensitiveTraits(CL);
7687: //**********************************************************unit uPSI_umath;
7688: Func uExpo( X : Float) : Float
7689: Func uExp2( X : Float) : Float
7690: Func uExp10( X : Float) : Float
7691: Func uLog( X : Float) : Float
7692: Func uLog2( X : Float) : Float
7693: Func uLog10( X : Float) : Float
7694: Func uLogA( X, A : Float) : Float
7695: Func uIntPower( X : Float; N : Int): Float
7696: Func uPower( X, Y : Float) : Float
7697: Func SgnGamma( X : Float) : Int
7698: Func Stirling( X : Float) : Float
7699: Func StirLog( X : Float) : Float
7700: Func Gamma( X : Float) : Float
7701: Func LnGamma( X : Float) : Float
7702: Func DiGamma( X : Float) : Float
7703: Func TriGamma( X : Float) : Float
7704: Func IGamma( X : Float) : Float
7705: Func JGamma( X : Float) : Float
7706: Func InvGamma( X : Float) : Float
7707: Func Erf( X : Float) : Float
7708: Func Erfc( X : Float) : Float
7709: Func Correl(X, Y : TVector; Lb, Ub : Int) : Float;
7710: { Correlation coefficient between samples X and Y }
7711: Func DBeta(A, B, X : Float) : Float;
7712: { Density of Beta distribution with parameters A and B }
7713: Func LambertW( X : Float; UBranch, Offset :Bool) : Float
7714: Func Beta(X, Y : Float) : Float
7715: Func Binomial( N, K : Int) : Float
7716: Func PBinom( N : Int; P : Float; K : Int) : Float
7717: Proc Cholesky( A, L : TMatrix; Lb, Ub : Int)
7718: Proc LU_Decomp( A : TMatrix; Lb, Ub : Int)
7719: Proc LU_Solve( A : TMatrix; B : TVector; Lb, Ub : Int; X : TVector)
7720: Func DNorm( X : Float) : Float
7721: Func DGamma(A, B, X : Float) : Float;
7722: { Density of Gamma distribution with parameters A and B }
7723: Func DKhi2(Nu : Int; X : Float) : Float;
7724: { Density of Khi-2 distribution with Nu d.o.f. }
7725: Func DStudent(Nu : Int; X : Float) : Float;
7726: { Density of Student distribution with Nu d.o.f. }
7727: Func DSnedecor(Nu1, Nu2 : Int; X : Float) : Float;
7728: { Density of Fisher-Snedecor distribution with Nu1 and Nu2 d.o.f. }
7729: Func IBeta(A, B, X : Float) : Float;
7730: { Incomplete Beta function}
7731: Func Correl(X, Y : TVector; Lb, Ub : Int) : Float;
7732:
7733: Proc SIRegister_unlfit(CL: TPSPascalCompiler);
7734: begin Proc SetOptAlgo( Algo : TOptAlgo)
7735: Proc SetOptAlgo(Algo : TOptAlgo);
7736: { ------------------------------------------------------------------
7737: Sets the optimization algorithm according to Algo, which must be
7738: NL_MARQ, NL_SIMP, NL_BFGS, NL_SA, NL_GA. Default is NL_MARQ }
7739: Func GetOptAlgo : TOptAlgo
7740: Proc SetMaxParam( N : Byte)
7741: Func GetMaxParam : Byte
7742: Proc SetParamBounds( I : Byte; ParamMin, ParamMax : Float)
7743: Proc GetParamBounds( I : Byte; var ParamMin, ParamMax : Float)
7744: Func NullParam( B : TVector; Lb, Ub : Int) :Bool
7745: Proc NLFit(RegFunc:TRegFunc;DerivProc:TDerivProc;X,Y:TVector;Lb Ub:Int;MaxIter:Int;Tol:
Float;B:TVector;FirstPar,LastPar:Int;V:TMatrix)
7746: Proc WNLFit(RegFunc:TRegFunc;DerivProc:TDerivProc;X,Y,S:TVector;Lb,Ub:Int;MaxIter:Int;Tol
:Float;B:TVector;FirstPar,LastPar:Int;V:TMatrix)
7747: Proc SetMCFile( FileName :Str)
7748: Proc SimFit(RegFunc:TRegFunc;X,Y:TVector;Lb,Ub:Int;B:TVector;FirstPar,LastPar:Int;V:TMatrix;
7749: Proc WSimFit(RegFunc:TRegFunc;X,Y,S:TVector;Lb,Ub:Int;B:TVector;FirstPar,LastPar:Int;V:TMatrix);
7750: end;
7751:
7752: (*----------------------------------------------------------------------------*)
7753: Proc SIRegister_usimplex(CL: TPSPascalCompiler);

7754: begin
7755: Proc SaveSimplex( FileName :Str)
7756: Proc Simplex(Func:TFuncNVar;X:TVector;Lb,Ub:Int; MaxIter:Int;Tol:Float;var F_min:Float);
7757: end;
7758: (*----------------------------------------------------------------------------*)
7759: Proc SIRegister_uregtest(CL: TPSPascalCompiler);
7760: begin
7761: Proc RegTest(Y,Ycalc:TVector;LbY,UbY:Int;V:TMatrix;LbV,UbV:Int;var Test:TRegTest)
7762: Proc WRegTest(Y,Ycalc,S:TVector;LbY,UbY:Int;V:TMatrix;LbV,UbV:Int;var Test:TRegTest);
7763: end;
7764:
7765: Proc SIRegister_ustrings(CL: TPSPascalCompiler);
7766: begin
7767: Func LTrim( S:Str) :Str
7768: Func RTrim( S:Str) :Str
7769: Func uTrim( S:Str) :Str
7770: Func StrChar(N : Byte; C : Char) :Str
7771: Func RFill( S:Str; L : Byte) :Str
7772: Func LFill( S:Str; L : Byte) :Str
7773: Func CFill( S:Str; L : Byte) :Str
7774: Func Replace(S :Str; C1, C2 : Char) :Str
7775: Func Extract(S :Str; var Index : Byte; Delim : Char) :Str
7776: Proc Parse( S :Str; Delim : Char; Field : TStrVector; var N : Byte)
7777: Proc SetFormat( NumLength, MaxDec : Int; FloatPoint, NSZero :Bool)
7778: Func FloatStr( X : Float) :Str
7779: Func IntStr( N : LongInt) :Str
7780: Func uCompStr( Z : Complex) :Str
7781: end;
7782:
7783: Proc SIRegister_uhyper(CL: TPSPascalCompiler);
7784: begin
7785: Func uSinh( X : Float) : Float
7786: Func uCosh( X : Float) : Float
7787: Func uTanh( X : Float) : Float
7788: Func uArcSinh( X : Float) : Float
7789: Func uArcCosh( X : Float) : Float
7790: Func ArcTanh( X : Float) : Float
7791: Proc SinhCosh( X : Float; var SinhX, CoshX : Float)
7792: end;
7793:
7794: Proc SIRegister_urandom(CL: TPSPascalCompiler);
7795: begin
7796: type RNG_Type =
7797: (RNG_MWC, { Multiply-With-Carry }
7798: RNG_MT, { Mersenne Twister }
7799: RNG_UVAG); { Universal Virtual Array Generator }
7800: Proc SetRNG( RNG : RNG_Type)
7801: Proc InitGen( Seed : RNG_IntType)
7802: Proc SRand( Seed : RNG_IntType)
7803: Func IRanGen : RNG_IntType
7804: Func IRanGen31 : RNG_IntType
7805: Func RanGen1 : Float
7806: Func RanGen2 : Float
7807: Func RanGen3 : Float
7808: Func RanGen53 : Float
7809: end;
7810:
7811: // Optimization by Simulated Annealing
7812: Proc SIRegister_usimann(CL: TPSPascalCompiler);
7813: begin
7814: Proc InitSAParams( NT, NS, NCycles : Int; RT : Float)
7815: Proc SA_CreateLogFile( FileName :Str)
7816: Proc SimAnn(Func: TFuncNVar; X,Xmin,Xmax: TVector; Lb, Ub : Int; var F_min : Float);
7817: end;
7818:
7819: Proc SIRegister_uranuvag(CL: TPSPascalCompiler);
7820: begin
7821: Proc InitUVAGbyString( KeyPhrase :Str)
7822: Proc InitUVAG( Seed : RNG_IntType)
7823: Func IRanUVAG : RNG_IntType
7824: end;
7825:
7826: Proc SIRegister_ugenalg(CL: TPSPascalCompiler);
7827: begin
7828: Proc InitGAParams( NP, NG : Int; SR, MR, HR : Float)
7829: Proc GA_CreateLogFile( LogFileName :Str)
7830: Proc GenAlg(Func: TFuncNVar; X,Xmin,Xmax : TVector; Lb, Ub : Int; var F_min : Float);
7831: end;
7832:
7833: TVector', 'array of Float
7834: Proc SIRegister_uqsort(CL: TPSPascalCompiler);
7835: begin
7836: Proc QSort( X : TVector; Lb, Ub : Int)
7837: Proc DQSort( X : TVector; Lb, Ub : Int)
7838: end;
7839:
7840: Proc SIRegister_uinterv(CL: TPSPascalCompiler);
7841: begin
7842: Proc Interval( X1, X2 : Float; MinDiv, MaxDiv : Int; var Min, Max, Step : Float)

7843: Proc AutoScale(X: TVector; Lb, Ub : Int; Scale : TScale; var XMin, XMax, XStep:Float)
7844: end;
7845:
7846: Proc SIRegister_D2XXUnit(CL: TPSPascalCompiler);
7847: begin
7848: FT_Result', 'Int
7849: //TDWordptr', '^DWord // will not work
7850: TFT_Program_Data', 'record Signature1 : DWord; Signature2 : DWor'
7851: d; Version : DWord; VendorID : Word; ProductID : Word; Manufacturer : PCha'
7852: r; ManufacturerID : PChar; Description : PChar; SerialNumber : PChar; MaxP'
7853: ower : Word; PnP : Word; SelfPowered : Word; RemoteWakeup : Word; Rev4 : B'
7854: yte; IsoIn : Byte; IsoOut : Byte; PullDownEnable : Byte; SerNumEnable : By'
7855: te; USBVersionEnable : Byte; USBVersion : Word; Rev5 : Byte; IsoInA : Byte'
7856: ; IsoInB : Byte; IsoOutA : Byte; IsoOutB : Byte; PullDownEnable5 : Byte; S'
7857: erNumEnable5 : Byte; USBVersionEnable5 : Byte; USBVersion5 : Word; AIsHigh'
7858: Current : Byte; BIsHighCurrent : Byte; IFAIsFifo : Byte; IFAIsFifoTar : By'
7859: te; IFAIsFastSer : Byte; AIsVCP : Byte; IFBIsFifo : Byte; IFBIsFifoTar : B'
7860: yte; IFBIsFastSer : Byte; BIsVCP : Byte; UseExtOsc : Byte; HighDriveIOs : '
7861: Byte; EndpointSize : Byte; PullDownEnableR : Byte; SerNumEnableR : Byte; I'
7862: nvertTXD : Byte; InvertRXD : Byte; InvertRTS : Byte; InvertCTS : Byte; Inv'
7863: ertDTR : Byte; InvertDSR : Byte; InvertDCD : Byte; InvertRI : Byte; Cbus0 '
7864: : Byte; Cbus1 : Byte; Cbus2 : Byte; Cbus3 : Byte; Cbus4 : Byte; RIsVCP : B'
7865: yte; end
7866: end;
7867:
7868: //*************************************** PaintFX****************************
7869: Proc SIRegister_TJvPaintFX(CL: TPSPascalCompiler);
7870: begin
7871: //with RegClassS(CL,'TComponent', 'TJvPaintFX') do
7872: with AddClassN(FindClass('TComponent'),'TJvPaintFX') do begin
7873: Proc Solarize( const Src : TBitmap; var Dst : TBitmap; Amount : Int)
7874: Proc Posterize( const Src : TBitmap; var Dst : TBitmap; Amount : Int)
7875: Proc Blend( const Src1, Src2 : TBitmap; var Dst : TBitmap; Amount : Single)
7876: Proc Blend2( const Src1, Src2 : TBitmap; var Dst : TBitmap; Amount: Single)
7877: Proc ExtractColor( const Dst : TBitmap; AColor : TColor)
7878: Proc ExcludeColor( const Dst : TBitmap; AColor : TColor)
7879: Proc Turn( Src, Dst : TBitmap)
7880: Proc TurnRight( Src, Dst : TBitmap)
7881: Proc HeightMap( const Dst : TBitmap; Amount : Int)
7882: Proc TexturizeTile( const Dst : TBitmap; Amount : Int)
7883: Proc TexturizeOverlap( const Dst : TBitmap; Amount : Int)
7884: Proc RippleRandom( const Dst : TBitmap; Amount : Int)
7885: Proc RippleTooth( const Dst : TBitmap; Amount : Int)
7886: Proc RippleTriangle( const Dst : TBitmap; Amount : Int)
7887: Proc Triangles( const Dst : TBitmap; Amount : Int)
7888: Proc DrawMandelJulia(const Dst:TBitmap;x0,y0,x1,y1:Single;Niter:Int;Mandel:Bool)
7889: Proc FilterXBlue( const Dst : TBitmap; Min, Max : Int)
7890: Proc FilterXGreen( const Dst : TBitmap; Min, Max : Int)
7891: Proc FilterXRed( const Dst : TBitmap; Min, Max : Int)
7892: Proc FilterBlue( const Dst : TBitmap; Min, Max : Int)
7893: Proc FilterGreen( const Dst : TBitmap; Min, Max : Int)
7894: Proc FilterRed( const Dst : TBitmap; Min, Max : Int)
7895: Proc Emboss( var Bmp : TBitmap)
7896: Proc Plasma( Src1, Src2, Dst : TBitmap; Scale, Turbulence : Single)
7897: Proc Shake( Src, Dst : TBitmap; Factor : Single)
7898: Proc ShakeDown( Src, Dst : TBitmap; Factor : Single)
7899: Proc KeepBlue( const Dst : TBitmap; Factor : Single)
7900: Proc KeepGreen( const Dst : TBitmap; Factor : Single)
7901: Proc KeepRed( const Dst : TBitmap; Factor : Single)
7902: Proc Mandelbrot( const Dst : TBitmap; Factor : Int)
7903: Proc MaskMandelbrot( const Dst : TBitmap; Factor : Int)
7904: Proc FoldRight( Src1, Src2, Dst : TBitmap; Amount : Single)
7905: Proc QuartoOpaque( Src, Dst : TBitmap)
7906: Proc SemiOpaque( Src, Dst : TBitmap)
7907: Proc ShadowDownLeft( const Dst : TBitmap)
7908: Proc ShadowDownRight( const Dst : TBitmap)
7909: Proc ShadowUpLeft( const Dst : TBitmap)
7910: Proc ShadowUpRight( const Dst : TBitmap)
7911: Proc Darkness( const Dst : TBitmap; Amount : Int)
7912: Proc Trace( const Dst : TBitmap; Intensity : Int)
7913: Proc FlipRight( const Dst : TBitmap)
7914: Proc FlipDown( const Dst : TBitmap)
7915: Proc SpotLight( const Dst : TBitmap; Amount : Int; Spot : TRect)
7916: Proc SplitLight( const Dst : TBitmap; Amount : Int)
7917: Proc MakeSeamlessClip( var Dst : TBitmap; Seam : Int)
7918: Proc Wave( const Dst : TBitmap; Amount, Inference, Style : Int)
7919: Proc Mosaic( const Bm : TBitmap; Size : Int)
7920: Proc SmoothRotate( var Src, Dst : TBitmap; CX, CY : Int; Angle : Single)
7921: Proc SmoothResize( var Src, Dst : TBitmap)
7922: Proc Twist( var Bmp, Dst : TBitmap; Amount : Int)
7923: Proc SplitBlur( const Dst : TBitmap; Amount : Int)
7924: Proc GaussianBlur( const Dst : TBitmap; Amount : Int)
7925: Proc Smooth( const Dst : TBitmap; Weight : Int)
7926: Proc GrayScale( const Dst : TBitmap)
7927: Proc AddColorNoise( const Dst : TBitmap; Amount : Int)
7928: Proc AddMonoNoise( const Dst : TBitmap; Amount : Int)
7929: Proc Contrast( const Dst : TBitmap; Amount : Int)
7930: Proc Lightness( const Dst : TBitmap; Amount : Int)
7931: Proc Saturation( const Dst : TBitmap; Amount : Int)

7932: Proc Spray( const Dst : TBitmap; Amount : Int)

7933: Proc AntiAlias( const Dst : TBitmap)
7934: Proc AntiAliasRect( const Dst : TBitmap; XOrigin, YOrigin, XFinal, YFinal : Int)
7935: Proc SmoothPoint( const Dst : TBitmap; XK, YK : Int)
7936: Proc FishEye( var Bmp, Dst : TBitmap; Amount : Single)
7937: Proc Marble(const Src:TBitmap; var Dst:TBitmap;Scale:Single;Turbulence:Int)
7938: Proc Marble2(const Src:TBitmap;var Dst:TBitmap;Scale:Single;Turbulence:Int)
7939: Proc Marble3(const Src:TBitmap;var Dst:TBitmap;Scale:Single;Turbulence:Int)
7940: Proc Marble4(const Src:TBitmap;var Dst:TBitmap;Scale:Single;Turbulence:Int)
7941: Proc Marble5(const Src:TBitmap;var Dst:TBitmap;Scale:Single;Turbulence:Int)
7942: Proc Marble6(const Src:TBitmap;var Dst:TBitmap;Scale:Single;Turbulence:Int)
7943: Proc Marble7(const Src:TBitmap;var Dst:TBitmap;Scale:Single;Turbulence:Int)
7944: Proc Marble8(const Src:TBitmap;var Dst:TBitmap;Scale:Single;Turbulence:Int)
7945: Proc SqueezeHor( Src, Dst : TBitmap; Amount : Int; Style : TLightBrush)
7946: Proc SplitRound( Src, Dst : TBitmap; Amount : Int; Style : TLightBrush)
7947: Proc Tile( Src, Dst : TBitmap; Amount : Int)
7948: Proc Stretch( Src, Dst : TBitmap; Filter : TFilterProc; AWidth : Single)
7949: Proc Grow( Src1, Src2, Dst : TBitmap; Amount : Single; X, Y : Int)
7950: Proc Invert( Src : TBitmap)
7951: Proc MirrorRight( Src : TBitmap)
7952: Proc MirrorDown( Src : TBitmap)
7953: end;
7954: end;
7955:
7956: (*----------------------------------------------------------------------------*)
7957: Proc SIRegister_JvPaintFX(CL: TPSPascalCompiler);
7958: begin
7959: AddTypeS('TLightBrush','( lbBrightness, lbContrast, lbSaturation, lbFishe'
7960: +'ye, lbrotate, lbtwist, lbrimple, mbHor, mbTop, mbBottom, mbDiamond, mbWast'
7961: +'e, mbRound, mbRound2, mbSplitRound, mbSplitWaste )
7962: SIRegister_TJvPaintFX(CL);
7963: Func SplineFilter( Value : Single) : Single
7964: Func BellFilter( Value : Single) : Single
7965: Func TriangleFilter( Value : Single) : Single
7966: Func BoxFilter( Value : Single) : Single
7967: Func HermiteFilter( Value : Single) : Single
7968: Func Lanczos3Filter( Value : Single) : Single
7969: Func MitchellFilter( Value : Single) : Single
7970: end;
7971:
7972: (*----------------------------------------------------------------------------*)
7973: Proc SIRegister_Chart(CL: TPSPascalCompiler);
7974: begin
7975: 'TeeMsg_DefaultFunctionName','String 'TeeFunction
7976: TeeMsg_DefaultSeriesName','String 'Series
7977: TeeMsg_DefaultToolName','String 'ChartTool
7978: ChartComponentPalette','String 'TeeChart
7979: TeeMaxLegendColumns',LongInt'( 2);
7980: TeeDefaultLegendSymbolWidth','LongInt'( 20);
7981: TeeTitleFootDistance,LongInt( 5);
7982: SIRegister_TCustomChartWall(CL);
7983: SIRegister_TChartWall(CL);
7984: SIRegister_TChartLegendGradient(CL);
7985: TLegendStyle', '( lsAuto, lsSeries, lsValues, lsLastValues, lsSeriesGroups )
7986: TLegendAlignment', '( laLeft, laRight, laTop, laBottom )
7987: FindClass('TOBJECT'),'LegendException
7988: TOnGetLegendText', 'Proc ( Sender : TCustomAxisPanel; Legen'
7989: +'dStyle : TLegendStyle; Index : Int; var LegendText :Str)
7990: FindClass('TOBJECT'),'TCustomChartLegend
7991: TLegendSymbolSize', '( lcsPercent, lcsPixels )
7992: TLegendSymbolPosition', '( spLeft, spRight )
7993: TSymbolDrawEvent','Procedure(Sender:TObject;Series:TChartSeries;ValueIndex:Int;R:TRect);
7994: TSymbolCalcHeight', 'Func : Int
7995: SIRegister_TLegendSymbol(CL);
7996: SIRegister_TTeeCustomShapePosition(CL);
7997: TCheckBoxesStyle', '( cbsCheck, cbsRadio )
7998: SIRegister_TLegendTitle(CL);
7999: SIRegister_TLegendItem(CL);
8000: SIRegister_TLegendItems(CL);
8001: TLegendCalcSize', 'Proc ( Sender : TCustomChartLegend; var ASize : Int)
8002: FindClass('TOBJECT'),'TCustomChart
8003: SIRegister_TCustomChartLegend(CL);
8004: SIRegister_TChartLegend(CL);
8005: SIRegister_TChartTitle(CL);
8006: SIRegister_TChartFootTitle(CL);
8007: TChartClick', 'Procedure(ender:TCustomChart;Button:TMouseButton;Shift:TShiftState;X,Y:Int)
8008: TChartClickAxis', 'Proc ( Sender : TCustomChart; Axis : TCh'
8009: +'artAxis; Button : TMouseButton; Shift : TShiftState; X, Y : Int)
8010: TChartClickSeries', 'Proc ( Sender : TCustomChart; Series :'
8011: +TChartSeries; ValueIndex : Int; Button: TMouseButton; Shift:TShiftState;X,Y:Int)
8012: TChartClickTitle', 'Proc ( Sender : TCustomChart; ATitle : '
8013: +'TChartTitle; Button : TMouseButton; Shift : TShiftState; X, Y : Int)
8014: TOnGetLegendPos', 'Proc (Sender: TCustomChart; Index: Int; var X,Y,XColor:Int)
8015: TOnGetLegendRect', 'Proc ( Sender : TCustomChart; var Rect : TRect)
8016: TAxisSavedScales', 'record Auto:Boolean;AutoMin:Bool;AutoMax:Bool;Min:Double;Max:Double;end
8017: TAllAxisSavedScales', 'array of TAxisSavedScales
8018: SIRegister_TChartBackWall(CL);
8019: SIRegister_TChartRightWall(CL);
8020: SIRegister_TChartBottomWall(CL);

8021: SIRegister_TChartLeftWall(CL);
8022: SIRegister_TChartWalls(CL);
8023: TChartAllowScrollEvent,Procedure(Sender:TChartAxis;var AMin,AMax:Double;var AllowScroll:Bool);
8024: SIRegister_TCustomChart(CL);
8025: SIRegister_TChart(CL);
8026: SIRegister_TTeeSeriesTypes(CL);
8027: SIRegister_TTeeToolTypes(CL);
8028: SIRegister_TTeeDragObject(CL);
8029: SIRegister_TColorPalettes(CL);
8030: Proc RegisterTeeSeries(ASeriesClass:TChartSeriesClass;ADescription,
AGalleryPage:PString;ANumGallerySeries:Int;
8031: Proc RegisterTeeSeries1( ASeriesClass : TChartSeriesClass; ADescription : PString);
8032: Proc RegisterTeeFunction(AFunctClass:TTeeFunctionClass;ADescription,
AGalleryPage:PString;ANumGallerySeries: Int;
8033: Proc RegisterTeeBasicFunction(AFunctionClass: TTeeFunctionClass; ADescription : PString)
8034: Proc RegisterTeeSeriesFunction(ASeriesClass: TChartSeriesClass;AFunctionClass:TTeeFunctionClass;
ADescription,AGalleryPage:PString;ANumGallerySeries:Int;ASubIndex : Int)
8035: Proc UnRegisterTeeSeries( const ASeriesList : array of TChartSeriesClass)
8036: Proc UnRegisterTeeFunctions( const AFunctionList : array of TTeeFunctionClass)
8037: Proc AssignSeries( var OldSeries, NewSeries : TChartSeries)
8038: Func CreateNewTeeFunction(ASeries:TChartSeries;AClass:TTeeFunctionClass): TTeeFunction
8039: Func CreateNewSeries( AOwner: TComponent; AChar :TCustomAxisPanel;AClass : TChartSeriesClass;
AFunctionClass : TTeeFunctionClass) : TChartSeries
8040: Func CloneChartSeries( ASeries : TChartSeries) : TChartSeries;
8041: Func CloneChartSeries1(ASeries: TChartSeries; AChart: TCustomAxisPanel): TChartSeries;
8042: Func CloneChartSeries2(ASeries:TChartSeries;AOwner:TComponent;AChart:TCustomAxisPanel):TChartSeries;;
8043: Func CloneChartTool( ATool : TTeeCustomTool; AOwner : TComponent) : TTeeCustomTool
8044: Func ChangeSeriesType(var ASeries:TChartSeries;NewType:TChartSeriesClass) : TChartSeries
8045: Proc ChangeAllSeriesType( AChart : TCustomChart; AClass : TChartSeriesClass)
8046: Func GetNewSeriesName( AOwner : TComponent) : TComponentName
8047: Proc RegisterTeeTools( const ATools : array of TTeeCustomToolClass)
8048: Proc UnRegisterTeeTools( const ATools : array of TTeeCustomToolClass)
8049: Func GetGallerySeriesName( ASeries : TChartSeries) :Str
8050: Proc PaintSeriesLegend(ASeries:TChartSeries;ACanvas:TCanvas;const R:TRect;ReferenceChart:TCustomChart);
8051: SIRegister_TChartTheme(CL); //TChartThemeClass', 'class of TChartTheme
8052: //TCanvasClass', 'class of TCanvas3D
8053: Func SeriesNameOrIndex( ASeries : TCustomChartSeries) :Str
8054: Func SeriesTitleOrName( ASeries : TCustomChartSeries) :Str
8055: Proc FillSeriesItems( AItems : TStrings; AList : TCustomSeriesList; UseTitles :Bool)
8056: Proc ShowMessageUser( const S :Str)
8057: Func HasNoMandatoryValues( ASeries : TChartSeries) :Bool
8058: Func HasLabels( ASeries : TChartSeries):Bool
8059: Func HasColors( ASeries : TChartSeries):Bool
8060: Func SeriesGuessContents( ASeries : TChartSeries) : TeeFormatFlag
8061: Proc TeeDrawBitmapEditor(Canvas: TCanvas;Element: TCustomChartElement;Left,Top:Int)
8062: end;
8063:
8064: Proc SIRegister_TeeProcs(CL: TPSPascalCompiler);
8065: begin
8066: //'TeeFormBorderStyle',' bsNone);
8067: SIRegister_TMetafile(CL);
8068: 'TeeDefVerticalMargin','LongInt'( 4);
8069: 'TeeDefHorizMargin','LongInt'( 3);
8070: 'crTeeHand','LongInt'( TCursor ( 2020 ));
8071: 'TeeMsg_TeeHand','String 'crTeeHand
8072: 'TeeNormalPrintDetail','LongInt'( 0);
8073: 'TeeHighPrintDetail','LongInt'( - 100);
8074: 'TeeDefault_PrintMargin','LongInt'( 15);
8075: 'MaxDefaultColors','LongInt'( 19);
8076: 'TeeTabDelimiter',Char #9);
8077: TDateTimeStep', '( dtOneMicroSecond, dtOneMillisecond, dtOneSeco'
8078: +'nd, dtFiveSeconds, dtTenSeconds, dtFifteenSeconds, dtThirtySeconds, dtOneM'
8079: +'inute, dtFiveMinutes, dtTenMinutes, dtFifteenMinutes, dtThirtyMinutes, dtO'
8080: +'neHour, dtTwoHours, dtSixHours, dtTwelveHours, dtOneDay, dtTwoDays, dtThre'
8081: +'eDays, dtOneWeek, dtHalfMonth, dtOneMonth, dtTwoMonths, dtThreeMonths, dtF'
8082: +'ourMonths, dtSixMonths, dtOneYear, dtNone )
8083: SIRegister_TCustomPanelNoCaption(CL);
8084: FindClass('TOBJECT'),'TCustomTeePanel
8085: SIRegister_TZoomPanning(CL);
8086: SIRegister_TTeeEvent(CL);
8087: //SIRegister_TTeeEventListeners(CL);
8088: TTeeMouseEventKind', '( meDown, meUp, meMove )
8089: SIRegister_TTeeMouseEvent(CL);
8090: SIRegister_TCustomTeePanel(CL);
8091: //TChartGradient', 'TTeeGradient
8092: //TChartGradientClass', 'class of TChartGradient
8093: TPanningMode', '( pmNone, pmHorizontal, pmVertical, pmBoth )
8094: SIRegister_TTeeZoomPen(CL);
8095: SIRegister_TTeeZoomBrush(CL);
8096: TTeeZoomDirection', '( tzdHorizontal, tzdVertical, tzdBoth )
8097: SIRegister_TTeeZoom(CL);
8098: FindClass('TOBJECT'),'TCustomTeePanelExtended
8099: TTeeBackImageMode', '( pbmStretch, pbmTile, pbmCenter, pbmCustom )
8100: SIRegister_TBackImage(CL);
8101: SIRegister_TCustomTeePanelExtended(CL);
8102: //TChartBrushClass', 'class of TChartBrush
8103: SIRegister_TTeeCustomShapeBrushPen(CL);
8104: TChartObjectShapeStyle', '( fosRectangle, fosRoundRectangle, fosEllipse )
8105: TTextFormat', '( ttfNormal, ttfHtml )

8106: SIRegister_TTeeCustomShape(CL);
8107: SIRegister_TTeeShape(CL);
8108: SIRegister_TTeeExportData(CL);
8109: Func TeeStr( const Num : Int) :Str
8110: Func DateTimeDefaultFormat( const AStep : Double) :Str
8111: Func TEEDaysInMonth( Year, Month : Word) : Word
8112: Func FindDateTimeStep( const StepValue : Double) : TDateTimeStep
8113: Func NextDateTimeStep( const AStep : Double) : Double
8114: Func PointInLine( const P : TPoint; const px, py, qx, qy : Int):Bool;
8115: Func PointInLine1( const P, FromPoint, ToPoint : TPoint) :Bool;
8116: Func PointInLine2(const P,FromPoint,ToPoint:TPoint;const TolerancePixels:Int):Boo;
8117: Func PointInLine3( const P : TPoint; const px, py, qx, qy, TolerancePixels:Int):Bool;
8118: Func PointInLineTolerance(const P:TPoint;const px,py,qx,qy,TolerancePixels:Int):Bool;
8119: Func PointInPolygon( const P : TPoint; const Poly : array of TPoint) :Bool
8120: Func PointInTriangle( const P, P0, P1, P2 : TPoint) :Bool;
8121: Func PointInTriangle1( const P : TPoint; X0, X1, Y0, Y1 : Int) :Bool;
8122: Func PointInHorizTriangle( const P : TPoint; Y0, Y1, X0, X1 : Int) :Bool
8123: Func PointInEllipse( const P : TPoint; const Rect : TRect) :Bool;
8124: Func PointInEllipse1( const P: TPoint;Left,Top,Right, Bottom : Int) :Bool;
8125: Func DelphiToLocalFormat( const Format :Str) :Str
8126: Func LocalToDelphiFormat( const Format :Str) :Str
8127: Proc TEEEnableControls(Enable:Bool; const ControlArray : array of TControl)
8128: Func TeeRoundDate(const ADate : TDateTime; AStep : TDateTimeStep) : TDateTime
8129: Proc TeeDateTimeIncrement(IsDateTime:Boolean;Increment:Boolean;var Value:Double;const AnIncrement:Double;
tmpWhichDateTime:TDateTimeStep)
8130: TTeeSortCompare', 'Func ( a, b : Int) : Int
8131: TTeeSortSwap', 'Proc ( a, b : Int)
8132: Proc TeeSort(StartIndex,EndIndex:Int;CompareFunc:TTeeSortCompare;SwapFunc:TTeeSortSwap);
8133: Func TeeGetUniqueName( AOwner : TComponent; const AStartName :Str) :Str
8134: Func TeeExtractField( St :Str; Index : Int) :Str;
8135: Func TeeExtractField1( St :Str; Index : Int; const Separator :Str) :Str;
8136: Func TeeNumFields( St :Str) : Int;
8137: Func TeeNumFields1( const St, Separator :Str) : Int;
8138: Proc TeeGetBitmapEditor( AObject : TObject; var Bitmap : TBitmap)
8139: Proc TeeLoadBitmap( Bitmap : TBitmap; const Name1, Name2 :Str)
8140: // TColorArray', 'array of TColor
8141: Func GetDefaultColor( const Index : Int) : TColor
8142: Proc SetDefaultColorPalette;
8143: Proc SetDefaultColorPalette1( const Palette : array of TColor);
8144: 'TeeCheckBoxSize','LongInt'( 11);
8145: Proc TeeDrawCheckBox(x,y:Int;Canvas:TCanvas;Checked:Bool;ABackColor:TColor;CheckBox:Bool);
8146: Func TEEStrToFloatDef( const S :Str; const Default : Extended) : Extended
8147: Func TryStrToFloat( const S :Str; var Value : Double) :Bool
8148: Func CrossingLines(const X1,Y1,X2,Y2,X3,Y3,X4,Y4: Double; out x, y : Double) :Bool
8149: Proc TeeTranslateControl( AControl : TControl);
8150: Proc TeeTranslateControl1(AControl: TControl;const ExcludeChilds: array of TControl);
8151: Func ReplaceChar(const AString:str;const Search: Char; const Replace : Char) :Str
8152: //Proc RectToFourPoints( const ARect : TRect; const Angle : Double; var P : TFourPoints)
8153: Func TeeAntiAlias( Panel : TCustomTeePanel; ChartRect :Bool) : TBitmap
8154: //Proc DrawBevel(Canvas:TTeeCanvas;Bevel:TPanelBevel;var R:TRect;Width:Int;Round:Int);
8155: //Func ScreenRatio( ACanvas : TCanvas3D) : Double
8156: Func TeeReadBoolOption( const AKey :Str; DefaultValue :Bool) :Bool
8157: Proc TeeSaveBoolOption( const AKey :Str; Value :Bool)
8158: Func TeeReadIntOption( const AKey :Str; DefaultValue : Int) : Int
8159: Proc TeeSaveIntOption( const AKey :Str; Value : Int)
8160: Func TeeReadStringOption( const AKey, DefaultValue :Str) :Str
8161: Proc TeeSaveStringOption( const AKey, Value :Str)
8162: Func TeeDefaultXMLEncoding :Str
8163: Proc ConvertTextToXML(Stream: TStream; XMLHeader :Bool)
8164: TeeWindowHandle', 'Int
8165: Proc TeeGotoURL( Handle : TeeWindowHandle; const URL :Str)
8166: Proc HtmlTextOut( ACanvas : TCanvas; x, y : Int; Text :Str)
8167: Func HtmlTextExtent( ACanvas : TCanvas; const Text :Str) : TSize
8168: end;
8169:
8170: using mXBDEUtils
8171: *******************************************************************************
8172: Proc SetAlias( aAlias, aDirectory :str)
8173: Proc CheckRegistryEntry(Reg:TRegistry;const Path,Value:Str;const Default,Desired:Variant;Size:Byte);
8174: Func GetFileVersionNumber( const FileName :Str) : TVersionNo
8175: Proc SetBDE( aPath, aNode, aValue :Str)
8176: Func RestartDialog(Wnd: HWnd; Reason: PChar; Flags: Int): Int; stdcall;
8177: Func GetSystemDirectory( lpBuffer :Str; uSize : UINT) : UINT
8178: Func GetSystemDirectoryW( lpBuffer : pchar; uSize : UINT) : UINT
8179: Func GetTempPath( nBufferLength : DWORD; lpBuffer :Str) : DWORD
8180: Func GetWindowsDirectoryW( nBufferLength : DWORD; lpBuffer :Str) : DWORD
8181: Func GetTempFileName(lpPathName,lpPrefixString:str;uUnique:UINT;lpTempFileName:str):UINT;
8182:
8183: Proc SIRegister_cDateTime(CL: TPSPascalCompiler);
8184: begin
8185: AddClassN(FindClass('TOBJECT'),'EDateTime
8186: Func DatePart( const D : TDateTime) : Int
8187: Func TimePart( const D : TDateTime) : Double
8188: Func Century( const D : TDateTime) : Word
8189: Func Year( const D : TDateTime) : Word
8190: Func Month( const D : TDateTime) : Word
8191: Func Day( const D : TDateTime) : Word
8192: Func Hour( const D : TDateTime) : Word
8193: Func Minute( const D : TDateTime) : Word

8194: Func Second( const D : TDateTime) : Word

8195: Func Millisecond( const D : TDateTime) : Word
8196: ('OneDay','Extended').setExtended( 1.0);
8197: ('OneHour','Extended').SetExtended( OneDay / 24);
8198: ('OneMinute','Extended').SetExtended( OneHour / 60);
8199: ('OneSecond','Extended').SetExtended( OneMinute / 60);
8200: ('OneMillisecond','Extended').SetExtended( OneSecond/ 1000);
8201: ('OneWeek','Extended').SetExtended( OneDay * 7);
8202: ('HoursPerDay','Extended').SetExtended( 24);
8203: ('MinutesPerHour','Extended').SetExtended( 60);
8204: ('SecondsPerMinute','Extended').SetExtended( 60);
8205: Proc SetYear( var D : TDateTime; const Year : Word)
8206: Proc SetMonth( var D : TDateTime; const Month : Word)
8207: Proc SetDay( var D : TDateTime; const Day : Word)
8208: Proc SetHour( var D : TDateTime; const Hour : Word)
8209: Proc SetMinute( var D : TDateTime; const Minute : Word)
8210: Proc SetSecond( var D : TDateTime; const Second : Word)
8211: Proc SetMillisecond( var D : TDateTime; const Milliseconds : Word)
8212: Func IsEqual( const D1, D2 : TDateTime) :Bool;
8213: Func IsEqual1( const D1 : TDateTime; const Ye, Mo, Da : Word):Boolean;
8214: Func IsEqual2( const D1 : TDateTime; const Ho, Mi, Se, ms : Word):Boolean;
8215: Func IsAM( const D : TDateTime) :Bool
8216: Func IsPM( const D : TDateTime) :Bool
8217: Func IsMidnight( const D : TDateTime) :Bool
8218: Func IsNoon( const D : TDateTime) :Bool
8219: Func IsSunday( const D : TDateTime) :Bool
8220: Func IsMonday( const D : TDateTime) :Bool
8221: Func IsTuesday( const D : TDateTime) :Bool
8222: Func IsWedneday( const D : TDateTime) :Bool
8223: Func IsThursday( const D : TDateTime) :Bool
8224: Func IsFriday( const D : TDateTime) :Bool
8225: Func IsSaturday( const D : TDateTime) :Bool
8226: Func IsWeekend( const D : TDateTime) :Bool
8227: Func Noon( const D : TDateTime) : TDateTime
8228: Func Midnight( const D : TDateTime) : TDateTime
8229: Func FirstDayOfMonth( const D : TDateTime) : TDateTime
8230: Func LastDayOfMonth( const D : TDateTime) : TDateTime
8231: Func NextWorkday( const D : TDateTime) : TDateTime
8232: Func PreviousWorkday( const D : TDateTime) : TDateTime
8233: Func FirstDayOfYear( const D : TDateTime) : TDateTime
8234: Func LastDayOfYear( const D : TDateTime) : TDateTime
8235: Func EasterSunday( const Year : Word) : TDateTime
8236: Func GoodFriday( const Year : Word) : TDateTime
8237: Func AddMilliseconds( const D : TDateTime; const N : Int64) : TDateTime
8238: Func AddSeconds( const D : TDateTime; const N : Int64) : TDateTime
8239: Func AddMinutes( const D : TDateTime; const N : Int) : TDateTime
8240: Func AddHours( const D : TDateTime; const N : Int) : TDateTime
8241: Func AddDays( const D : TDateTime; const N : Int) : TDateTime
8242: Func AddWeeks( const D : TDateTime; const N : Int) : TDateTime
8243: Func AddMonths( const D : TDateTime; const N : Int) : TDateTime
8244: Func AddYears( const D : TDateTime; const N : Int) : TDateTime
8245: Func DayOfYear( const Ye, Mo, Da : Word) : Int
8246: Func DayOfYear( const D : TDateTime) : Int
8247: Func DaysInMonth( const Ye, Mo : Word) : Int
8248: Func DaysInMonth( const D : TDateTime) : Int
8249: Func DaysInYear( const Ye : Word) : Int
8250: Func DaysInYearDate( const D : TDateTime) : Int
8251: Func WeekNumber( const D : TDateTime) : Int
8252: Func ISOFirstWeekOfYear( const Ye : Word) : TDateTime
8253: Proc ISOWeekNumber( const D : TDateTime; var WeekNumber, WeekYear : Word)
8254: Func DiffMilliseconds( const D1, D2 : TDateTime) : Int64
8255: Func DiffSeconds( const D1, D2 : TDateTime) : Int
8256: Func DiffMinutes( const D1, D2 : TDateTime) : Int
8257: Func DiffHours( const D1, D2 : TDateTime) : Int
8258: Func DiffDays( const D1, D2 : TDateTime) : Int
8259: Func DiffWeeks( const D1, D2 : TDateTime) : Int
8260: Func DiffMonths( const D1, D2 : TDateTime) : Int
8261: Func DiffYears( const D1, D2 : TDateTime) : Int
8262: Func GMTBias : Int
8263: Func GMTTimeToLocalTime( const D : TDateTime) : TDateTime
8264: Func LocalTimeToGMTTime( const D : TDateTime) : TDateTime
8265: Func NowAsGMTTime : TDateTime
8266: Func DateTimeToISO8601String( const D : TDateTime) : Ansistr
8267: Func ISO8601StringToTime( const D : Ansistr) : TDateTime
8268: Func ISO8601StringAsDateTime( const D : Ansistr) : TDateTime
8269: Func DateTimeToANSI( const D : TDateTime) : Int
8270: Func ANSIToDateTime( const Julian : Int) : TDateTime
8271: Func DateTimeToISOInt( const D : TDateTime) : Int
8272: Func DateTimeToISOString( const D : TDateTime) : Ansistr
8273: Func ISOIntToDateTime( const ISOInt : Int) : TDateTime
8274: Func TwoDigitRadix2000YearToYear( const Y : Int) : Int
8275: Func DateTimeAsElapsedTime(const D:TDateTime; const IncludeMilliseconds:Boolean):Ansistr
8276: Func UnixTimeToDateTime( const UnixTime : LongWord) : TDateTime
8277: Func DateTimeToUnixTime( const D : TDateTime) : LongWord
8278: Func EnglishShortDayOfWeekStrA( const DayOfWeek : Int) : Ansistr
8279: Func EnglishShortDayOfWeekStrU( const DayOfWeek : Int) : UnicodeString
8280: Func EnglishLongDayOfWeekStrA( const DayOfWeek : Int) : Ansistr
8281: Func EnglishLongDayOfWeekStrU( const DayOfWeek : Int) : UnicodeString
8282: Func EnglishShortMonthStrA( const Month : Int) : Ansistr

8283: Func EnglishShortMonthStrU( const Month : Int) : UnicodeString

8284: Func EnglishLongMonthStrA( const Month : Int) : Ansistr
8285: Func EnglishLongMonthStrU( const Month : Int) : UnicodeString
8286: Func EnglishShortDayOfWeekA( const S : Ansistr) : Int
8287: Func EnglishShortDayOfWeekU( const S : UnicodeString) : Int
8288: Func EnglishLongDayOfWeekA( const S : Ansistr) : Int
8289: Func EnglishLongDayOfWeekU( const S : UnicodeString) : Int
8290: Func EnglishShortMonthA( const S : Ansistr) : Int
8291: Func EnglishShortMonthU( const S : UnicodeString) : Int
8292: Func EnglishLongMonthA( const S : Ansistr) : Int
8293: Func EnglishLongMonthU( const S : UnicodeString) : Int
8294: Func RFC850DayOfWeekA( const S : Ansistr) : Int
8295: Func RFC850DayOfWeekU( const S : UnicodeString) : Int
8296: Func RFC1123DayOfWeekA( const S : Ansistr) : Int
8297: Func RFC1123DayOfWeekU( const S : UnicodeString) : Int
8298: Func RFCMonthA( const S : Ansistr) : Word
8299: Func RFCMonthU( const S : UnicodeString) : Word
8300: Func GMTTimeToRFC1123TimeA( const D : TDateTime;const IncludeSeconds:Boolean) : Ansistr
8301: Func GMTTimeToRFC1123TimeU( const D : TDateTime;const IncludeSeconds:Boolean):UnicodeString
8302: Func GMTDateTimeToRFC1123DateTimeA(const D:TDateTime;const IncludeDayOfWeek:Bool):AnsiStr;
8303: Func GMTDateTimeToRFC1123DateTimeU(const D:TDateTime;const IncludeDayOfWeek:Bool):UnicodStr;
8304: Func DateTimeToRFCDateTimeA( const D : TDateTime) : Ansistr
8305: Func DateTimeToRFCDateTimeU( const D : TDateTime) : UnicodeString
8306: Func NowAsRFCDateTimeA : Ansistr
8307: Func NowAsRFCDateTimeU : UnicodeString
8308: Func RFCDateTimeToGMTDateTime( const S : Ansistr) : TDateTime
8309: Func RFCDateTimeToDateTime( const S : Ansistr) : TDateTime
8310: Func RFCTimeZoneToGMTBias( const Zone : Ansistr) : Int
8311: Func TimePeriodStr( const D : TDateTime) : Ansistr
8312: Proc SelfTestCDate
8313: end;
8314: //*******************************************CFileUtils
8315: Func PathHasDriveLetterA( const Path : Ansistr) :Bool
8316: Func PathHasDriveLetter( const Path :Str) :Bool
8317: Func PathIsDriveLetterA( const Path : Ansistr) :Bool
8318: Func PathIsDriveLetter( const Path :Str) :Bool
8319: Func PathIsDriveRootA( const Path : Ansistr) :Bool
8320: Func PathIsDriveRoot( const Path :Str) :Bool
8321: Func PathIsRootA( const Path : Ansistr) :Bool
8322: Func PathIsRoot( const Path :Str) :Bool
8323: Func PathIsUNCPathA( const Path : Ansistr) :Bool
8324: Func PathIsUNCPath( const Path :Str) :Bool
8325: Func PathIsAbsoluteA( const Path : Ansistr) :Bool
8326: Func PathIsAbsolute( const Path :Str) :Bool
8327: Func PathIsDirectoryA( const Path : Ansistr) :Bool
8328: Func PathIsDirectory( const Path :Str) :Bool
8329: Func PathInclSuffixA( const Path : Ansistr; const PathSep : Char) : Ansistr
8330: Func PathInclSuffix( const Path :Str; const PathSep : Char) :Str
8331: Func PathExclSuffixA( const Path : Ansistr; const PathSep : Char) : Ansistr
8332: Func PathExclSuffix( const Path :Str; const PathSep : Char) :Str
8333: Proc PathEnsureSuffixA( var Path : Ansistr; const PathSep : Char)
8334: Proc PathEnsureSuffix( var Path :Str; const PathSep : Char)
8335: Proc PathEnsureNoSuffixA( var Path : Ansistr; const PathSep : Char)
8336: Proc PathEnsureNoSuffix( var Path :Str; const PathSep : Char)
8337: //Func PathCanonicalA( const Path : Ansistr; const PathSep : Char) : Ansistr
8338: Func PathCanonical( const Path :Str; const PathSep : Char) :Str
8339: Func PathExpandA(const Path:Ansistr;const BasePath:AnsiStr;const PathSep:Char):AnsiStr
8340: Func PathExpand(const Path:str; const BasePath :Str; const PathSep : Char) :Str
8341: Func PathLeftElementA( const Path : Ansistr; const PathSep : Char) : Ansistr
8342: Func PathLeftElement( const Path :Str; const PathSep : Char) :Str
8343: Proc PathSplitLeftElementA(const Path:AString;var LeftElement,RightPath:AString;const PathSep:Char);
8344: Proc PathSplitLeftElement(const Path:str; var LeftElement,RightPath:Str;const PathSep:Char);
8345: Proc DecodeFilePathA(const FilePath:AnsiStr;var Path,FileName:AnsiStr;const PathSep:Char;
8346: Proc DecodeFilePath(const FilePath:str; var Path,FileName:str;const PathSep: Char)
8347: Func FileNameValidA( const FileName : Ansistr) : Ansistr
8348: Func FileNameValid( const FileName :Str) :Str
8349: Func FilePathA(const FileName,Path:Ansistr;const BasePath:AnsiStr;const PathSep:Char):Ansistr;
8350: Func FilePath(const FileName,Path:str;const BasePath:Str;const PathSep:Char):Str
8351: Func DirectoryExpandA(const Path:Ansistr;const BasePath:Ansistr;const PathSep:Char):Ansistr
8352: Func DirectoryExpand(const Path:str;const BasePath:str;const PathSep:Char):str
8353: Func UnixPathToWinPath( const Path : Ansistr) : Ansistr
8354: Func WinPathToUnixPath( const Path : Ansistr) : Ansistr
8355: Proc CCopyFile( const FileName, DestName :Str)
8356: Proc CMoveFile( const FileName, DestName :Str)
8357: Func CDeleteFiles( const FileMask :Str) :Bool
8358: Func FileSeekEx(const FHandle:TFileHandle;const FileOffset:Int64;const FilePos:TFileSeekPos):Int64;
8359: Proc FileCloseEx( const FileHandle : TFileHandle)
8360: Func FileExistsA( const FileName : Ansistr) :Bool
8361: Func CFileExists( const FileName :Str) :Bool
8362: Func CFileGetSize( const FileName :Str) : Int64
8363: Func FileGetDateTime( const FileName :Str) : TDateTime
8364: Func FileGetDateTime2( const FileName :Str) : TDateTime
8365: Func FileIsReadOnly( const FileName :Str) :Bool
8366: Proc FileDeleteEx( const FileName :Str)
8367: Proc FileRenameEx( const OldFileName, NewFileName :Str)
8368: Func ReadFileStrA( const FileName:Ansistr; const FileSharing : TFileSharing; const FileCreationMode :
TFileCreationMode; const FileOpenWait : PFileOpenWait) : Ansistr
8369: Func DirectoryEntryExists( const Name :Str) :Bool
8370: Func DirectoryEntrySize( const Name :Str) : Int64

8371: Func CDirectoryExists( const DirectoryName :Str) :Bool

8372: Func DirectoryGetDateTime( const DirectoryName :Str) : TDateTime
8373: Proc CDirectoryCreate( const DirectoryName :Str)
8374: Func GetFirstFileNameMatching( const FileMask :Str) :Str
8375: Func DirEntryGetAttr( const FileName : Ansistr) : Int
8376: Func DirEntryIsDirectory( const FileName : Ansistr) :Bool
8377: Func FileHasAttr( const FileName :Str; const Attr : Word) :Bool
8378: AddTypeS('TLogicalDriveType', '( DriveRemovable, DriveFixed, DriveRemote, '
8379: +'DriveCDRom, DriveRamDisk, DriveTypeUnknown )
8380: Func DriveIsValid( const Drive : Char) :Bool
8381: Func DriveGetType( const Path : Ansistr) : TLogicalDriveType
8382: Func DriveFreeSpace( const Path : Ansistr) : Int64
8383:
8384: Proc SIRegister_cTimers(CL: TPSPascalCompiler);
8385: begin
8386: AddClassN(FindClass('TOBJECT'),'ETimers
8387: Const('TickFrequency','LongInt'( 1000);Func GetTick : LongWord
8388: Func TickDelta( const D1, D2 : LongWord) : Int
8389: Func TickDeltaW( const D1, D2 : LongWord) : LongWord
8390: AddTypeS('THPTimer', 'Int64
8391: Proc StartTimer( var Timer : THPTimer)
8392: Proc StopTimer( var Timer : THPTimer)
8393: Proc ResumeTimer( var StoppedTimer : THPTimer)
8394: Proc InitStoppedTimer( var Timer : THPTimer)
8395: Proc InitElapsedTimer( var Timer : THPTimer; const Milliseconds : Int)
8396: Func MillisecondsElapsed( const Timer: THPTimer; const TimerRunning :Bool) : Int
8397: Func MicrosecondsElapsed( const Timer: THPTimer; const TimerRunning :Bool) : Int64
8398: Proc WaitMicroseconds( const MicroSeconds : Int)
8399: Func GetHighPrecisionFrequency : Int64
8400: Func GetHighPrecisionTimerOverhead : Int64
8401: Proc AdjustTimerForOverhead(var StoppedTimer:THPTimer; const Overhead:Int64)
8402: Proc SelfTestCTimer
8403: end;
8404:
8405: Proc SIRegister_cRandom(CL: TPSPascalCompiler);
8406: begin
8407: Func RandomSeed : LongWord
8408: Proc AddEntropy( const Value : LongWord)
8409: Func RandomUniform : LongWord;
8410: Func RandomUniform1( const N : Int) : Int;
8411: Func RandomBoolean :Bool
8412: Func RandomByte : Byte
8413: Func RandomByteNonZero : Byte
8414: Func RandomWord : Word
8415: Func RandomInt64 : Int64;
8416: Func RandomInt641( const N : Int64) : Int64;
8417: Func RandomHex( const Digits : Int) :Str
8418: Func RandomFloat : Extended
8419: Func RandomAlphaStr( const Length : Int) : Ansistr
8420: Func RandomPseudoWord( const Length : Int) : Ansistr
8421: Func RandomPassword(const MinL,MaxLength:Int;const CaseSens,UseSymbols,UseNumbers:Bool):AnsiStr;
8422: Func mwcRandomLongWord : LongWord
8423: Func urnRandomLongWord : LongWord
8424: Func moaRandomFloat : Extended
8425: Func mwcRandomFloat : Extended
8426: Func RandomNormalF : Extended
8427: Proc SelfTestCRandom
8428: end;
8429:
8430: Proc SIRegister_SynEditMiscProcs(CL: TPSPascalCompiler);
8431: begin
8432: // PIntArray', '^TIntArray // will not work
8433: Addtypes('TConvertTabsProc','function(const Line:Ansistr; TabWidth: Int):Ansistr
8434: TConvertTabsProcEx,function(const Line:Ansistr;TabWidth:Int;var HasTabs:boolean):Ansistr
8435: Func synMax( x, y : Int) : Int
8436: Func synMin( x, y : Int) : Int
8437: Func synMinMax( x, mi, ma : Int) : Int
8438: Proc synSwapInt( var l, r : Int)
8439: Func synMaxPoint( const P1, P2 : TPoint) : TPoint
8440: Func synMinPoint( const P1, P2 : TPoint) : TPoint
8441: //Func synGetIntArray( Count :Card; InitialValue : Int) : PIntArray
8442: Proc synInternalFillRect( dc : HDC; const rcPaint : TRect)
8443: Func synGetBestConvertTabsProc( TabWidth : Int) : TConvertTabsProc
8444: Func synConvertTabs( const Line : Ansistr; TabWidth : Int) : Ansistr
8445: Func synGetBestConvertTabsProcEx( TabWidth : Int) : TConvertTabsProcEx
8446: Func synConvertTabsEx(const Line:Ansistr;TabWidth:Int;var HasTabs:bool):Ansistr;
8447: Func synGetExpandedLength( const aStr :Str; aTabWidth : Int) : Int
8448: Func synCharIndex2CaretPos( Index, TabWidth : Int; const Line :Str) : Int
8449: Func synCaretPos2CharIndex(Positin,TabWidth:int;const Line:str;var InsideTabChar:bool):int;
8450: Func synStrScanForCharInSet(const Line:str;Start:Int;AChars:TSynIdentChars):int;
8451: Func synStrRScanForCharInSet(const Line:str;Start:Int;AChars:TSynIdentChars):Int;
8452: TStringType', '(stNone, stHalfNumAlpha, stHalfSymbol, stHalfKat'
8453: +'akana,stWideNumAlpha,stWideSymbol,stWideKatakana,stHiragana,stIdeograph,stControl,stKashida)
8454: ('C3_NONSPACING','LongInt'( 1);
8455: 'C3_DIACRITIC','LongInt'( 2);
8456: 'C3_VOWELMARK','LongInt'( 4);
8457: ('C3_SYMBOL','LongInt'( 8);
8458: ('C3_KATAKANA',LongWord( $0010);
8459: ('C3_HIRAGANA',LongWord( $0020);

8460: ('C3_HALFWIDTH',LongWord( $0040);

8461: ('C3_FULLWIDTH',LongWord( $0080);
8462: ('C3_IDEOGRAPH',LongWord( $0100);
8463: ('C3_KASHIDA',LongWord( $0200);
8464: ('C3_LEXICAL',LongWord( $0400);
8465: ('C3_ALPHA',LongWord( $8000);
8466: ('C3_NOTAPPLICABLE','LongInt'( 0);
8467: Func synStrScanForMultiByteChar( const Line :Str; Start : Int) : Int
8468: Func synStrRScanForMultiByteChar( const Line :Str; Start : Int) : Int
8469: Func synIsStringType( Value : Word) : TStringType
8470: Func synGetEOL( Line : PChar) : PChar
8471: Func synEncodeString( s :Str) :Str
8472: Func synDecodeString( s :Str) :Str
8473: Proc synFreeAndNil( var Obj: TObject)
8474: Proc synAssert( Expr :Bool)
8475: Func synLastDelimiter( const Delimiters, S :Str) : Int
8476: TReplaceFlag', '( rfReplaceAll, rfIgnoreCase )
8477: TReplaceFlags', 'set of TReplaceFlag )
8478: Func synStringReplace(const S, OldPattern,NewPattern:str;Flags:TReplaceFlags):str
8479: Func synGetRValue( RGBValue : TColor) : byte
8480: Func synGetGValue( RGBValue : TColor) : byte
8481: Func synGetBValue( RGBValue : TColor) : byte
8482: Func synRGB( r, g, b : Byte) :Card
8483: //THighlighterAttriProc', 'Func ( Highlighter : TSynCustomHigh'
8484: //+'lighter;Attri:TSynHighlighterAttributes;UniqueAttriName:str;Params array of Pointr):Bool;
8485: //Func synEnumHighlighterAttris( Highlighter : TSynCustomHighlighter; SkipDuplicates :Bool;
HighlighterAttriProc : THighlighterAttriProc; Params : array of Pointer) :Bool
8486: Func synCalcFCS( const ABuf, ABufSize :Card) : Word
8487: Proc synSynDrawGradient(const ACanvas:TCanvas;const AStartColor,AEndColor:TColor;ASteps:Int;const ARect :
TRect; const AHorizontal:Bool) end;
8488: Func GET_APPCOMMAND_LPARAM( lParam : LPARAM) : WORD
8489: Func GET_DEVICE_LPARAM( lParam : LPARAM) : WORD
8490: Func GET_KEYSTATE_LPARAM( lParam : LPARAM) : WORD
8491:
8492: Proc SIRegister_synautil(CL: TPSPascalCompiler);
8493: begin
8494: Func STimeZoneBias : Int
8495: Func TimeZone :Str
8496: Func Rfc822DateTime( t : TDateTime) :Str
8497: Func CDateTime( t : TDateTime) :Str
8498: Func SimpleDateTime( t : TDateTime) :Str
8499: Func AnsiCDateTime( t : TDateTime) :Str
8500: Func GetMonthNumber( Value :Str) : Int
8501: Func GetTimeFromStr( Value :Str) : TDateTime
8502: Func GetDateMDYFromStr( Value :Str) : TDateTime
8503: Func DecodeRfcDateTime( Value :Str) : TDateTime
8504: Func GetUTTime : TDateTime
8505: Func SetUTTime( Newdt : TDateTime) :Bool
8506: Func SGetTick : LongWord
8507: Func STickDelta( TickOld, TickNew : LongWord) : LongWord
8508: Func CodeInt( Value : Word) : Ansistr
8509: Func DecodeInt( const Value : Ansistr; Index : Int) : Word
8510: Func CodeLongInt( Value : LongInt) : Ansistr
8511: Func DecodeLongInt( const Value : Ansistr; Index : Int) : LongInt
8512: Func DumpStr( const Buffer : Ansistr) :Str
8513: Func DumpExStr( const Buffer : Ansistr) :Str
8514: Proc Dump( const Buffer : Ansistr; DumpFile :Str)
8515: Proc DumpEx( const Buffer : Ansistr; DumpFile :Str)
8516: Func TrimSPLeft( const S :Str) :Str
8517: Func TrimSPRight( const S :Str) :Str
8518: Func TrimSP( const S :Str) :Str
8519: Func SeparateLeft( const Value, Delimiter :Str) :Str
8520: Func SeparateRight( const Value, Delimiter :Str) :Str
8521: Func SGetParameter( const Value, Parameter :Str) :Str
8522: Proc ParseParametersEx(Value,Delimiter:str;const Parameters : TStrings)
8523: Proc ParseParameters( Value :Str; const Parameters : TStrings)
8524: Func IndexByBegin( Value :Str; const List : TStrings) : Int
8525: Func GetEmailAddr( const Value :Str) :Str
8526: Func GetEmailDesc( Value :Str) :Str
8527: Func CStrToHex( const Value : Ansistr) :Str
8528: Func CIntToBin( Value : Int; Digits : Byte) :Str
8529: Func CBinToInt( const Value :Str) : Int
8530: Func ParseURL(URL:str;var Prot,User,Pass,Host,Port,Path,Para:str):str
8531: Func CReplaceString( Value, Search, Replace : Ansistr) : Ansistr
8532: Func CRPosEx( const Sub, Value :Str; From : Int) : Int
8533: Func CRPos( const Sub, Value :Str) : Int
8534: Func FetchBin( var Value :Str; const Delimiter :Str) :Str
8535: Func CFetch( var Value :Str; const Delimiter :Str) :Str
8536: Func FetchEx(var Value:Str;const Delimiter,Quotation:str):Str
8537: Func IsBinaryString( const Value : Ansistr) :Bool
8538: Func PosCRLF( const Value : Ansistr; var Terminator : Ansistr) : Int
8539: Proc StringsTrim( const value : TStrings)
8540: Func PosFrom( const SubStr, Value :Str; From : Int) : Int
8541: Func IncPoint( const p : ___pointer; Value : Int) : ___pointer
8542: Func GetBetween( const PairBegin, PairEnd, Value :Str) :Str
8543: Func CCountOfChar( const Value :Str; aChr : char) : Int
8544: Func UnquoteStr( const Value :Str; Quote : Char) :Str
8545: Func QuoteStr( const Value :Str; Quote : Char) :Str
8546: Proc HeadersToList( const Value : TStrings)

8547: Proc ListToHeaders( const Value : TStrings)

8548: Func SwapBytes( Value : Int) : Int
8549: Func ReadStrFromStream( const Stream : TStream; len : Int) : Ansistr
8550: Proc WriteStrToStream( const Stream : TStream; Value : Ansistr)
8551: Func GetTempFile( const Dir, prefix : Ansistr) : Ansistr
8552: Func CPadString( const Value:Ansistr;len:Int;Pad:AnsiChar): Ansistr
8553: Func CXorString( Indata1, Indata2 : Ansistr) : Ansistr
8554: Func NormalizeHeader( Value : TStrings; var Index : Int) :Str
8555: end;
8556:
8557: Proc SIRegister_StCRC(CL: TPSPascalCompiler);
8558: begin
8559: ('CrcBufSize','LongInt'( 2048);
8560: Func Adler32Prim( var Data, DataSize :Card; CurCrc : LongInt): LongInt
8561: Func Adler32OfStream( Stream : TStream; CurCrc : LongInt) : LongInt
8562: Func Adler32OfFile( FileName : Ansistr) : LongInt
8563: Func Crc16Prim( var Data, DataSize, CurCrc :Card) :Card
8564: Func Crc16OfStream( Stream : TStream; CurCrc :Card) :Card
8565: Func Crc16OfFile( FileName : Ansistr) :Card
8566: Func Crc32Prim( var Data, DataSize :Card; CurCrc : LongInt) : LongInt
8567: Func Crc32OfStream( Stream : TStream; CurCrc : LongInt) : LongInt
8568: Func Crc32OfFile( FileName : Ansistr) : LongInt
8569: Func InternetSumPrim( var Data, DataSize, CurCrc :Card) :Card
8570: Func InternetSumOfStream( Stream : TStream; CurCrc :Card) :Card
8571: Func InternetSumOfFile( FileName : Ansistr) :Card
8572: Func Kermit16Prim( var Data, DataSize, CurCrc :Card) :Card
8573: Func Kermit16OfStream( Stream : TStream; CurCrc :Card) :Card
8574: Func Kermit16OfFile( FileName : Ansistr) :Card
8575: end;
8576:
8577: Proc SIRegister_ComObj(cl: TPSPascalCompiler);
8578: begin
8579: Func CreateOleObject(const ClassName:Str): IDispatch;
8580: Func GetActiveOleObject(const ClassName:Str): IDispatch;
8581: Func ProgIDToClassID(const ProgID:Str): TGUID;
8582: Func ClassIDToProgID(const ClassID: TGUID):Str;
8583: Func CreateClassID:Str;
8584: Func CreateGUIDString:Str;
8585: Func CreateGUIDID:Str;
8586: Proc OleError(ErrorCode: longint)
8587: Proc OleCheck(Result: HResult);
8588: end;
8589:
8590: Func xCreateOleObject( const ClassName :Str) : Variant //or IDispatch
8591: Func xGetActiveOleObject( const ClassName :Str) : Variant
8592: //Func DllGetClassObject(const CLSID:TCLSID;const IID TIID;var Obj):HResult
8593: Func DllCanUnloadNow : HResult
8594: Func DllRegisterServer : HResult
8595: Func DllUnregisterServer : HResult
8596: Func VarFromInterface( Unknown : IUnknown) : Variant
8597: Func VarToInterface( const V : Variant) : IDispatch
8598: Func VarToAutoObject( const V : Variant) : TAutoObject
8599: //Proc DispInvoke(Dispatch:IDispatch;CallDesc:PCallDesc;DispIDs:PDispIDList;Params:Pointer;Res:PVariant);
8600: //Proc DispInvokeError( Status : HResult; const ExcepInfo : TExcepInfo)
8601: Proc OleError( ErrorCode : HResult)
8602: Proc OleCheck( Result : HResult)
8603: Func StringToClassID( const S :Str) : TCLSID
8604: Func ClassIDToString( const ClassID : TCLSID) :Str
8605: Func xProgIDToClassID( const ProgID :Str) : TCLSID
8606: Func xClassIDToProgID( const ClassID : TCLSID) :Str
8607: Func xWideCompareStr( const S1, S2 : WideString) : Int
8608: Func xWideSameStr( const S1, S2 : WideString) :Bool
8609: Func xGUIDToString( const ClassID : TGUID) :Str
8610: Func xStringToGUID( const S :Str) : TGUID
8611: Func xGetModuleName( Module : HMODULE) :Str
8612: Func xAcquireExceptionObject : TObject
8613: Func xIfThen(AValue :Bool; const ATrue: Int; const AFalse: Int): Int
8614: Func xUtf8Encode( const WS : WideString) : UTF8String
8615: Func xUtf8Decode( const S : UTF8String) : WideString
8616: Func xExcludeTrailingPathDelimiter( const S :Str) :Str
8617: Func xIncludeTrailingPathDelimiter( const S :Str) :Str
8618: Func XRTLHandleCOMException : HResult
8619: Proc XRTLCheckArgument( Flag :Bool)
8620: //Proc XRTLCheckOutArgument( out Arg)
8621: Proc XRTLInterfaceConnect(const Source:IUnknown;const IID:TIID;const Sink:IUnknown;var
Connection:Longint);
8622: Proc XRTLInterfaceDisconnect(const Source:IUnknown;const IID:TIID;var Connection:Longint)
8623: Func XRTLRegisterActiveObject(const Unk:IUnknown;ClassID:TCLSID;Flags:DWORD;var
RegisterCookie:Int):HResult
8624: Func XRTLUnRegisterActiveObject( var RegisterCookie : Int) : HResult
8625: //Func XRTLGetActiveObject( ClassID : TCLSID; RIID : TIID; out Obj) : HResult
8626: Proc XRTLEnumActiveObjects( Strings : TStrings)
8627: Func XRTLDefaultCategoryManager: IUnknown;
8628: Func XRTLIsCategoryEmpty(CatID:TGUID;const CategoryManager:IUnknown=nil):Bool;
8629: // ICatRegister helper functions
8630: Func XRTLCreateComponentCategory(CatID: TGUID; CatDescription: WideString;
8631: LocaleID: TLCID = LOCALE_USER_DEFAULT;
8632: const CategoryManager: IUnknown = nil): HResult;
8633: Func XRTLRemoveComponentCategory(CatID: TGUID; CatDescription: WideString;

8634: LocaleID: TLCID = LOCALE_USER_DEFAULT;

8635: const CategoryManager: IUnknown = nil): HResult;
8636: Func XRTLRegisterCLSIDInCategory(ClassID: TGUID; CatID: TGUID;
8637: const CategoryManager: IUnknown = nil): HResult;
8638: Func XRTLUnRegisterCLSIDInCategory(ClassID: TGUID; CatID: TGUID;
8639: const CategoryManager: IUnknown = nil): HResult;
8640: // ICatInformation helper functions
8641: Func XRTLGetCategoryDescription(CatID: TGUID; var CatDescription: WideString;
8642: LocaleID: TLCID = LOCALE_USER_DEFAULT;
8643: const CategoryManager: IUnknown = nil): HResult;
8644: Func XRTLGetCategoryList(Strings: TStrings; LocaleID: TLCID = LOCALE_USER_DEFAULT;
8645: const CategoryManager: IUnknown = nil): HResult;
8646: Func XRTLGetCategoryCLSIDList(CatID: TGUID; Strings: TStrings;
8647: const CategoryManager: IUnknown = nil): HResult;
8648: Func XRTLGetCategoryProgIDList(CatID: TGUID; Strings: TStrings;
8649: const CategoryManager: IUnknown = nil): HResult;
8650: Func XRTLFetch(var AInput: WideString; const ADelim: WideString = ' ';
8651: const ADelete:Bool = True): WideString;
8652: Func XRTLRPos(const ASub, AIn: WideString; AStart: Int = -1): Int;
8653: Func XRTLGetVariantAsString( const Value : Variant) :Str
8654: Func XRTLDateTimeToTimeZoneTime(DT:TDateTime;TimeZone:TXRTLTimeZone):TDateTime
8655: Func XRTLGetTimeZones : TXRTLTimeZones
8656: Func XFileTimeToDateTime( FileTime : TFileTime) : TDateTime
8657: Func DateTimeToFileTime( DateTime : TDateTime) : TFileTime
8658: Func GMTNow : TDateTime
8659: Func GMTToLocalTime( GMT : TDateTime) : TDateTime
8660: Func LocalTimeToGMT( LocalTime : TDateTime) : TDateTime
8661: Proc XRTLNotImplemented
8662: Proc XRTLRaiseError( E : Exception)
8663: Proc XRTLRaise( E : Exception);
8664: Proc XRaise( E : Exception);
8665: Proc XRTLInvalidOperation(ClassName:str;OperationName:str;Description:Str)
8666:
8667: Proc SIRegister_xrtl_util_Value(CL: TPSPascalCompiler);
8668: begin
8669: SIRegister_IXRTLValue(CL);
8670: SIRegister_TXRTLValue(CL);
8671: //AddTypeS('PXRTLValueArray', '^TXRTLValueArray // will not work
8672: AddTypeS('TXRTLValueArray', 'array of IXRTLValue
8673: Func XRTLValue( const AValue :Card) : IXRTLValue;
8674: Func XRTLSetValue(const IValue:IXRTLValue; const AValue:Card) :Card;
8675: Func XRTLGetAsCardinal( const IValue : IXRTLValue) :Card
8676: Func XRTLGetAsCardinalDef(const IValue:IXRTLValue;const DefValue:Card): Card
8677: Func XRTLValue1( const AValue : Int) : IXRTLValue;
8678: Func XRTLSetValue1( const IValue : IXRTLValue; const AValue : Int) : Int;
8679: Func XRTLGetAsInt( const IValue : IXRTLValue) : Int
8680: Func XRTLGetAsIntDef( const IValue : IXRTLValue; const DefValue : Int) : Int
8681: Func XRTLValue2( const AValue : Int64) : IXRTLValue;
8682: Func XRTLSetValue2( const IValue : IXRTLValue; const AValue : Int64) : Int64;
8683: Func XRTLGetAsInt64( const IValue : IXRTLValue) : Int64
8684: Func XRTLGetAsInt64Def(const IValue:IXRTLValue;const DefValue:Int64) : Int64
8685: Func XRTLValue3( const AValue : Single) : IXRTLValue;
8686: Func XRTLSetValue3( const IValue : IXRTLValue; const AValue:Single) : Single;
8687: Func XRTLGetAsSingle( const IValue : IXRTLValue) : Single
8688: Func XRTLGetAsSingleDef(const IValue: RTLValue;const DefValue: Single):Single
8689: Func XRTLValue4( const AValue : Double) : IXRTLValue;
8690: Func XRTLSetValue4( const IValue : IXRTLValue; const AValue : Double) : Double;
8691: Func XRTLGetAsDouble( const IValue : IXRTLValue) : Double
8692: Func XRTLGetAsDoubleDef(const IValue:IXRTLValue;const DefValue:Double):Double
8693: Func XRTLValue5( const AValue : Extended) : IXRTLValue;
8694: Func XRTLSetValue5(const IValue:IXRTLValue;const AValue:Extended): Extended;
8695: Func XRTLGetAsExtended( const IValue : IXRTLValue) : Extended
8696: Func XRTLGetAsExtendedDef(const IValue:IXRTLValue;const DefValue:Extended): Extended
8697: Func XRTLValue6( const AValue : IInterface) : IXRTLValue;
8698: Func XRTLSetValue6(const IValue:IXRTLValue;const AValue:IInterface):IInterface;
8699: Func XRTLGetAsInterface( const IValue : IXRTLValue) : IInterface;
8700: //Func XRTLGetAsInterface1( const IValue : IXRTLValue; out Obj) : IInterface;
8701: Func XRTLGetAsInterfaceDef(const IValue:IXRTLValue;const DefValue:IInterface):IInterface;
8702: Func XRTLValue7( const AValue : WideString) : IXRTLValue;
8703: Func XRTLSetValue7(const IValue:IXRTLValue;const AValue:WideString):WideString;
8704: Func XRTLGetAsWideString( const IValue : IXRTLValue) : WideString
8705: Func XRTLGetAsWideStringDef(

Maxbox Functions

Uploaded by

Maxbox Functions

Uploaded by

maXbox4 4.7.6.

87: Func AddChildObjectFirst(Parent:TTreeNode;const S:str;Ptr:Pointer):TTreeNode

175: Func AnsiStrPos( Str, SubStr : PChar) : PChar

264: Func BitsLowest3(X: Word) : Int;

353: Func CheckSynchronize(Timeout: Int):Bool

442: Func Content:Str

523: Func CreateMappedRes(Instance:THandle;ResName:PChar;const OldColors,NewColors:array of TColor):HBITMAP

700: Func Elapsed( const Update :Bool) :Card

789: Func ExtractFileDrive( FileName :Str) :Str

878: Func FindCloseW(FindFile: Int): LongBool; stdcall;

963: Func ForceDirectories( const Dir :Str) :Bool

1051: Func GetCdInfo( InfoType : TJclCdMediaInfo; Drive : Char) :Str

1140: Func GetFileCount(adirmask:Str): Int; //files count in directory!

1227: Func GetMemoryLoad : Byte

1315: Func GetResourceName( ObjStream : TStream; var AName :Str) :Bool

1404: Func GetVolumeName( const Drive :Str) :Str

1493: Func HSLToRGB1( const H, S, L : Single) : TColor32;

1582: Func IndexOf(const S : WideString) : Int

1670: Func IsAssembly(const FileName:Str):Bool;

1759: Func IsValidJPEG(stream: TStream):Bool;

1847: Func LongWordToFourChar( ACardinal : LongWord) :Str

1932: Func MIDISingleNoteTuningData( Key : TMIDINote; Frequency : Single) : TSingleNoteTuningData

2018: Func NextRecordset( var RecordsAffected : Int) : _Recordset

2106: Func PathCompactPath1(const Canv:TCanvas;const Path:str;const Width:Int;CmpFmt:TCompactPath):str;

2190: Func queryDLLInterfaceTwo( var queryList : TStringList) : TStringList

2279: Func RectIsNull( const R : TRect) :Bool

2368: Func RoundTo(const AValue:Extende;const ADigit:TRoundToEXRangeExtended):Extended;;

2456: Func SecondsBetween( const ANow, AThen : TDateTime) : Int64

2541: Func SizeOf: Longint;

2630: Func StringReplace(const SourceString,OldPattern,NewPattern:str;Flags:TReplaceFlags):str;

2803: Func TokenFloat : Extended

2890: Func UTF8CharSize( Lead : Char) : Int

2979: Proc DynArrayToVariant(var V: Variant;const DynArray: ___Pointer;TypeInfo: ___Pointer)

3068: Func WordToStr( const Value : Word) :Str

3155: Proc Delay(MSecs: Longint);

3242: Proc DragDone( Drop :Bool)

3330: Func DateToSQL( Value : TDateTime) :Str

3419: Func JFileTimeToDosDateTime( const FileTime : TFileTime) : TDosDateTime;

3508: //Func StrCenter( const S : Ansistr; L : Int; C : AnsiChar) : Ansistr

3597: Func CharIsDigit( const C : AnsiChar) :Bool

3683: Func CurrentRecordDeleted( DataSet : TBDEDataSet) :Bool

3769: { Spaces returns string consists on N space chars }

3856: Func IntPower(Base, Exponent: Int): Int;

3942: Func FindFormByClassName(FormClassName:Str): TForm;

4029: Func IsExpressionKeyword( S1 : PAnsiChar) :Bool

4118: Func CenterStr(const S:Str; Len: Int):Str;

4207: Func ValidFileName(const FileName:Str):Bool;

4296: Proc DrawTextInRect(DC:HDC;R:TRect;const Text:str;Style:TglTextStyle;Fnt:TFont;Flags:UINT);

4384: Func VarSQLTimeStampCreate1( const AValue : TDateTime) : Variant;

4471: {$IFDEF MSWINDOWS}

4560: NullHandle','LongInt').SetInt( 0);

4645: Func SpacesW(const N: Int): WideString;

4734: Func Switch(const Param:Str):Str;

4909: Func iconversion(InP: PAnsiChar; OutP: Pointer; InBytes, OutBytes:Card;

4998: Func XorString(const Key, Src: ShortString): ShortString;

5085: {$ENDIF MSWINDOWS}

5173: Func StringToPChar(var S:Str): PChar;

5261: Proc CalcTextPos(HostRect:TRect;var TextLeft,TextTop:Int;var

5348: 'ESBCbrtPi','Extended').setExtended( 1.4645918875615232630);

5437: Func MinLArray(const B :array of LongInt) : LongInt

5526: Func InverseGamma(const X: Extended) : Extended

5612: //Func TaskAllocWideString( const S :Str) : PWChar');

5701: Proc XRTLSqr( const AInt : TXRTLInt; var AResult : TXRTLInt)

5785: Proc TeX_PlotCurve( X, Y : TVector; Lb, Ub, CurvIndex : Int)

5873: Func StrStCopyS( const S : ShortString; Pos, Count :Card) : ShortString

5955: Func DollarToDecimal( FracDollar : Extended; Fraction : Int) : Extended

6038: Func CritBinom( Trials : Int; ProbabilityS, Alpha : Single) : Int

6127: Func StTimeToDateTime(T : TStTime) : TDateTime

6216: //**********unit unit ; StBCD Package of SysTools******************************************

6304: Func DisableThreadLibraryCalls( hLibModule : HMODULE) : BOOL

6389: Func PathCanonicalize( pszBuf : PChar; pszPath : PChar) : BOOL

6478: URLIS_APPLIABLE','LongInt'( 4);

6566: ASSOCSTR_INFOTIP','LongInt'( 11);

6727: //Func PeMapImgExportedVariables(const Module:HMODULE;const VariablesList:TStrings):Bool

6811: Func GlobalGroupExists( const Server, Group :Str) :Bool

6899: +'xtCustom, hctImageJpeg, hctImagePng, hctImageGif, hctImageCustom, hctAppli'

2979: Proc DynArrayToVariant(var V: Variant;const DynArray: _Pointer;TypeInfo: _Pointer)

6216: //unit unit ; StBCD Package of SysTools********************************