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

maXbox3 3.9.9.195
14/05/2015 08:37:17 AM
4012: Procedure JvEatWhitespaceChars( S1 : PAnsiChar);
4013: Procedure JvEatWhitespaceChars1( S1 : PWideChar);
4014: Function GetTokenCount : Integer
4015: Procedure ResetTokenCount
4016: end;
4017:
4018: procedure SIRegister_JvDBQueryParamsForm(CL: TPSPascalCompiler);
4019: begin
4020: SIRegister_TJvQueryParamsDialog(CL);
4021: Function EditQueryParams( DataSet : TDataSet; List : TParams; AHelpContext : THelpContext) : Boolean
4022: end;
4023:
4024: ********************************* JvStrUtil / JvStrUtils;*****************************
4025: function FindNotBlankCharPos(const S: string): Integer;
4026: function AnsiChangeCase(const S: string): string;
4027: function GetWordOnPos(const S: string; const P: Integer): string;
4028: function GetWordOnPosEx(const S: string; const P: Integer; var iBeg, iEnd: Integer): string;
4029: function Cmp(const S1, S2: string): Boolean;
4030: { Spaces returns string consists on N space chars }
4031: function Spaces(const N: Integer): string;
4032: { HasChar returns True, if char, Ch, contains in string, S }
4033: function HasChar(const Ch: Char; const S: string): Boolean;
4034: function HasAnyChar(const Chars: string; const S: string): Boolean;
4035: { SubStr returns substring from string, S, separated with Separator string}
4036: function SubStr(const S: string; const Index: Integer; const Separator: string): string;
4037: { SubStrEnd same to previous function but Index numerated from the end of string }
4038: function SubStrEnd(const S: string; const Index: Integer; const Separator: string): string;
4039: { ReplaceString searches for all substrings, OldPattern, in a string, S, replaces them with NewPattern }
4040: function ReplaceString(S: string; const OldPattern, NewPattern: string): string;
4041: function CharInSet(const Ch: Char; const SetOfChar: TSetOfChar): Boolean;
4042: { GetXYByPos is same to previous function, but returns X position in line too}
4043: procedure GetXYByPos(const S: string; const Pos: Integer; var X, Y: Integer);
4044: { AddSlash returns string with added slash char to Dir parameter, if needed }
4045: function AddSlash2(const Dir: TFileName): string;
4046: { AddPath returns FileName with Path, if FileName not contain any path }
4047: function AddPath(const FileName, Path: TFileName): TFileName;
4048: { ExePath returns ExtractFilePath(ParamStr(0)) }
4049: function ExePath: TFileName;
4050: function LoadTextFile(const FileName: TFileName): string;
4051: procedure SaveTextFile(const FileName: TFileName; const Source: string);
4052: { ConcatSep concatenate S and S2 strings with Separator. if S = '', separator don't included }
4053: function ConcatSep(const S, S2, Separator: string): string;
4054: { FileEquMask returns True if file, FileName, is compatible with given dos file mask, Mask }
4055: function FileEquMask(FileName, Mask: TFileName): Boolean;
4056: { FileEquMasks returns True if file, FileName, is compatible with given Masks.
4057: Masks must be separated with comma (';') }
4058: function FileEquMasks(FileName, Masks: TFileName): Boolean;
4059: function StringEndsWith(const Str, SubStr: string): Boolean;
4060: function ExtractFilePath2(const FileName: string): string;
4061: function StrToOem(const AnsiStr: string): string;
4062: { StrToOem translates a string from the Windows character set into the OEM character set. }
4063: function OemToAnsiStr(const OemStr: string): string;
4064: { OemToAnsiStr translates a string from the OEM character set into the Windows character set. }
4065: function IsEmptyStr(const S: string; const EmptyChars: TCharSet): Boolean;
4066: { EmptyStr returns true if the given string contains only character from the EmptyChars. }
4067: function ReplaceStr(const S, Srch, Replace: string): string;
4068: { Returns string with every occurrence of Srch string replaced with Replace string. }
4069: function DelSpace(const S: string): string;
4070: { DelSpace return a string with all white spaces removed. }
4071: function DelChars(const S: string; Chr: Char): string;
4072: { DelChars return a string with all Chr characters removed. }
4073: function DelBSpace(const S: string): string;
4074: { DelBSpace trims leading spaces from the given string. }
4075: function DelESpace(const S: string): string;
4076: { DelESpace trims trailing spaces from the given string. }
4077: function DelRSpace(const S: string): string;
4078: { DelRSpace trims leading and trailing spaces from the given string. }
4079: function DelSpace1(const S: string): string;
4080: { DelSpace1 return a string with all non-single white spaces removed. }
4081: function Tab2Space(const S: string; Numb: Byte): string;
4082: { Tab2Space converts any tabulation character in the given string to the Numb spaces characters. }
4083: function NPos(const C: string; S: string; N: Integer): Integer;
4084: { NPos searches for a N-th position of substring C in a given string. }
4085: function MakeStr(C: Char; N: Integer): string;
4086: function MS(C: Char; N: Integer): string;
4087: { MakeStr return a string of length N filled with character C. }
4088: function AddChar(C: Char; const S: string; N: Integer): string;
4089: { AddChar return a string left-padded to length N with characters C. }
4090: function AddCharR(C: Char; const S: string; N: Integer): string;
4091: { AddCharR return a string right-padded to length N with characters C. }
4092: function LeftStr(const S: string; N: Integer): string;
4093: { LeftStr return a string right-padded to length N with blanks. }
4094: function RightStr(const S: string; N: Integer): string;
4095: { RightStr return a string left-padded to length N with blanks. }
4096: function CenterStr(const S: string; Len: Integer): string;
4097: { CenterStr centers the characters in the string based upon the Len specified. }
4098: function CompStr(const S1, S2: string): Integer;
4099: {CompStr compares S1 to S2, case-sensitivity. return val is -1 if S1 < S2,0 if S1 = S2,or 1 if S1>S2. }
4100: function CompText(const S1, S2: string): Integer;
PC08 E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt
http://www.softwareschule.ch/maxbox.htm T: 297
p: 47