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

maXbox3 3.9.9.195
14/05/2015 08:37:17 AM
3754: { Cmp compares two strings and returns True if they are equal. Case-insensitive.}
3755: function Cmp(const S1, S2: string): Boolean;
3756: { StringCat add S2 string to S1 and returns this string }
3757: function StringCat(var S1: string; S2: string): string;
3758: { HasChar returns True, if Char, Ch, contains in string, S }
3759: function HasChar(const Ch: Char; const S: string): Boolean;
3760: function HasAnyChar(const Chars: string; const S: string): Boolean;
3761: function CharInSet(const Ch: Char; const SetOfChar: TSetOfChar): Boolean;
3762: function CountOfChar(const Ch: Char; const S: string): Integer;
3763: function DefStr(const S: string; Default: string): string;
3764: {**** files routines}
3765: { GetWinDir returns Windows folder name }
3766: function GetWinDir: TFileName;
3767: function GetSysDir: String;
3768: { GetTempDir returns Windows temporary folder name }
3769: function GetTempDir: string;
3770: { GenTempFileName returns temporary file name on drive, there FileName is placed }
3771: function GenTempFileName(FileName: string): string;
3772: { GenTempFileNameExt same to previous function, but returning filename has given extension, FileExt }
3773: function GenTempFileNameExt(FileName: string; const FileExt: string): string;
3774: { ClearDir clears folder Dir }
3775: function ClearDir(const Dir: string): Boolean;
3776: { DeleteDir clears and than delete folder Dir }
3777: function DeleteDir(const Dir: string): Boolean;
3778: { FileEquMask returns True if file, FileName, is compatible with given dos file mask, Mask }
3779: function FileEquMask(FileName, Mask: TFileName): Boolean;
3780: { FileEquMasks returns True if file, FileName, is compatible with given Masks.
3781: Masks must be separated with comma (';') }
3782: function FileEquMasks(FileName, Masks: TFileName): Boolean;
3783: procedure DeleteFiles(const Folder: TFileName; const Masks: string);
3784: { LZFileExpand expand file, FileSource into FileDest.File must be compressed,using MS Compress program }
3785: function LZFileExpand(const FileSource, FileDest: string): Boolean;
3786: { FileGetInfo fills SearchRec record for specified file attributes}
3787: function FileGetInfo(FileName: TFileName; var SearchRec: TSearchRec): Boolean;
3788: { HasSubFolder returns True, if folder APath contains other folders }
3789: function HasSubFolder(APath: TFileName): Boolean;
3790: { IsEmptyFolder returns True, if there are no files or folders in given folder, APath}
3791: function IsEmptyFolder(APath: TFileName): Boolean;
3792: { AddSlash add slash Char to Dir parameter, if needed }
3793: procedure AddSlash(var Dir: TFileName);
3794: { AddSlash returns string with added slash Char to Dir parameter, if needed }
3795: function AddSlash2(const Dir: TFileName): string;
3796: { AddPath returns FileName with Path, if FileName not contain any path }
3797: function AddPath(const FileName, Path: TFileName): TFileName;
3798: function AddPaths(const PathList, Path: string): string;
3799: function ParentPath(const Path: TFileName): TFileName;
3800: function FindInPath(const FileName, PathList: string): TFileName;
3801: function FindInPaths(const fileName,paths: String): String;
3802: {$IFNDEF BCB1}
3803: { BrowseForFolder displays Browse For Folder dialog }
3804: function BrowseForFolder(const Handle: HWND; const Title: string; var Folder: string): Boolean;
3805: {$ENDIF BCB1}
3806: Function BrowseForFolder(const ATitle: string; AllowCreate : Boolean; var ADirectory : string;
AHelpContext : THelpContext) : Boolean
3807: Function BrowseForComputer(const ATitle : string; AllowCreate : Boolean; var ADirectory : string;
AHelpContext : THelpContext) : Boolean
3808: Function BrowseDirectory(var AFolderName:string;const DlgText:string;AHelpContext:THelpContext):Boolean
3809: Function BrowseComputer(var AComputerName:string;const DlgText:string;AHelpContext:THelpContext):Boolean
3810:
3811: { DeleteReadOnlyFile clears R/O file attribute and delete file }
3812: function DeleteReadOnlyFile(const FileName: TFileName): Boolean;
3813: { HasParam returns True, if program running with specified parameter, Param }
3814: function HasParam(const Param: string): Boolean;
3815: function HasSwitch(const Param: string): Boolean;
3816: function Switch(const Param: string): string;
3817: { ExePath returns ExtractFilePath(ParamStr(0)) }
3818: function ExePath: TFileName;
3819: function CopyDir(const SourceDir, DestDir: TFileName): Boolean;
3820: function FileTimeToDateTime(const FT: TFileTime): TDateTime;
3821: function MakeValidFileName(const FileName: TFileName; const ReplaceBadChar: Char): TFileName;
3822: {**** Graphic routines }
3823: { TTFontSelected returns True, if True Type font is selected in specified device context }
3824: function TTFontSelected(const DC: HDC): Boolean;
3825: { TrueInflateRect inflates rect in other method, than InflateRect API function }
3826: function TrueInflateRect(const R: TRect; const I: Integer): TRect;
3827: {**** Windows routines }
3828: { SetWindowTop put window to top without recreating window }
3829: procedure SetWindowTop(const Handle: HWND; const Top: Boolean);
3830: {**** other routines }
3831: { KeyPressed returns True, if Key VK is now pressed }
3832: function KeyPressed(VK: Integer): Boolean;
3833: procedure SwapInt(var Int1, Int2: Integer);
3834: function IntPower(Base, Exponent: Integer): Integer;
3835: function ChangeTopException(E: TObject): TObject;
3836: function StrToBool(const S: string): Boolean;
3837: {$IFNDEF COMPILER3_UP}
3838: { AnsiStrLIComp compares S1 to S2, without case-sensitivity, up to a maximum
3839: Length of MaxLen bytes. The compare operation is controlled by the
3840: current Windows locale. The return value is the same as for CompareStr. }
PC08 E:\maxbox3\mXGit39988\maxbox3\docs\maxbox_extract_funclist399.txt
http://www.softwareschule.ch/maxbox.htm T: 297
p: 44