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

maXbox3 3.9.9.195
14/05/2015 08:37:17 AM
4452: {$ENDIF MSWINDOWS}
4453: procedure DirFiles(const ADir, AMask: string; AFileList: TStringList);
4454: procedure RecurseDirFiles(const ADir: string; var AFileList: TStringList);
4455: procedure RecurseDirProgs(const ADir: string; var AFileList: TStringList);
4456: procedure SaveString(const AFile, AText: string);
4457: Procedure SaveStringasFile( const AFile, AText : string)
4458: function LoadStringJ(const AFile: string): string;
4459: Function LoadStringofFile( const AFile : string) : string
4460: Procedure SaveStringtoFile( const AFile, AText : string)
4461: Function LoadStringfromFile( const AFile : string) : string
4462: function HexToColor(const AText: string): TColor;
4463: function UppercaseHTMLTags(const AText: string): string;
4464: function LowercaseHTMLTags(const AText: string): string;
4465: procedure GetHTMLAnchors(const AFile: string; AList: TStringList);
4466: function RelativePath(const ASrc, ADst: string): string;
4467: function GetToken(var Start: Integer; const SourceText: string): string;
4468: function PosNonSpace(Start: Integer; const SourceText: string): Integer;
4469: function PosEscaped(Start: Integer; const SourceText, FindText: string; EscapeChar: Char): Integer;
4470: function DeleteEscaped(const SourceText: string; EscapeChar: Char): string;
4471: function BeginOfAttribute(Start: Integer; const SourceText: string): Integer;
4472: // parses the beginning of an attribute: space + alpha character
4473: function ParseAttribute(var Start:Integer; const SourceText:string; var AName,AValue:string): Boolean;
4474: //parses a name="value" attrib from Start; returns 0 when not found or else the position behind attribute
4475: procedure ParseAttributes(const SourceText: string; Attributes: TStrings);
4476: // parses all name=value attributes to the attributes TStringList
4477: function HasStrValue(const AText, AName: string; var AValue: string): Boolean;
4478: // checks if a name="value" pair exists and returns any value
4479: function GetStrValue(const AText, AName, ADefault: string): string;
4480: // retrieves string value from a line like:
4481: // name="jan verhoeven" email="jan1 dott verhoeven att wxs dott nl"
4482: // returns ADefault when not found
4483: function GetHTMLColorValue(const AText, AName: string; ADefault: TColor): TColor;
4484: // same for a color
4485: function GetIntValue(const AText, AName: string; ADefault: Integer): Integer;
4486: // same for an Integer
4487: function GetFloatValue(const AText, AName: string; ADefault: Extended): Extended;
4488: // same for a float
4489: function GetBoolValue(const AText, AName: string): Boolean;
4490: // same for Boolean but without default
4491: function GetValue(const AText, AName: string): string;
4492: //retrieves string value from a line like: name="jan verhoeven" email="jan1 verhoeven att wxs dott nl"
4493: procedure SetValue(var AText: string; const AName, AValue: string);
4494: // sets a string value in a line
4495: procedure DeleteValue(var AText: string; const AName: string);
4496: // deletes a AName="value" pair from AText
4497: procedure GetNames(AText: string; AList: TStringList);
4498: // get a list of names from a string with name="value" pairs
4499: function GetHTMLColor(AColor: TColor): string;
4500: // converts a color value to the HTML hex value
4501: function BackPosStr(Start: Integer; const FindString, SourceString: string): Integer;
4502: // finds a string backward case sensitive
4503: function BackPosText(Start: Integer; const FindString, SourceString: string): Integer;
4504: // finds a string backward case insensitive
4505: function PosRangeStr(Start: Integer; const HeadString, TailString, SourceString: string;
4506: var RangeBegin: Integer; var RangeEnd: Integer): Boolean;
4507: // finds a text range, e.g. .... case sensitive
4508: function PosRangeText(Start: Integer; const HeadString, TailString, SourceString: string;
4509: var RangeBegin: Integer; var RangeEnd: Integer): Boolean;
4510: // finds a text range, e.g. .... case insensitive
4511: function BackPosRangeStr(Start: Integer; const HeadString, TailString, SourceString: string;
4512: var RangeBegin: Integer; var RangeEnd: Integer): Boolean;
4513: // finds a text range backward, e.g. .... case sensitive
4514: function BackPosRangeText(Start: Integer; const HeadString, TailString, SourceString: string;
4515: var RangeBegin: Integer; var RangeEnd: Integer): Boolean;
4516: // finds a text range backward, e.g. .... case insensitive
4517: function PosTag(Start: Integer; SourceString: string; var RangeBegin: Integer;
4518: var RangeEnd: Integer): Boolean;
4519: // finds a HTML or XML tag:
4520: function InnerTag(Start: Integer; const HeadString, TailString, SourceString: string;
4521: var RangeBegin: Integer; var RangeEnd: Integer): Boolean;
4522: // finds the innertext between opening and closing tags
4523: function Easter(NYear: Integer): TDateTime;
4524: // returns the easter date of a year.
4525: function GetWeekNumber(Today: TDateTime): string;
4526: //gets a datecode. Returns year and weeknumber in format: YYWW
4527: function ParseNumber(const S: string): Integer;
4528: // parse number returns the last position, starting from 1
4529: function ParseDate(const S: string): Integer;
4530: // parse a SQL style data string from positions 1,
4531: // starts and ends with #
4532:
4533: ******************************************unit JvJCLUtils;*******************************************
4534:
4535: function VarIsInt(Value: Variant): Boolean;
4536: // VarIsInt returns VarIsOrdinal-[varBoolean]
4537: { PosIdx returns the index of the first appearance of SubStr in Str. The search starts at index "Index". }
4538: function PosIdx(const SubStr, S: string; Index: Integer = 0): Integer;
4539: function PosIdxW(const SubStr, S: WideString; Index: Integer = 0): Integer;
4540: function PosLastCharIdx(Ch: Char; const S: string; Index: Integer = 0): Integer;
PC08 E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt
http://www.softwareschule.ch/maxbox.htm T: 297
p: 52