得路径最后部分和其他部分 如d:\aa\aa result:=aa sPath:=d:\aa\
function PathGetLeafDir(var sPath: string): string;
//取得当前应用
程序的路径
function PathExeDir(FileName: string = ''): string;
//文件操作部分止
//系统处理起
//提示窗口
procedure MsgBox(const Msg: string);
//错误显示窗口
procedure MsgErrBox(const Msg: string);
//询问窗口 带'是','否'按钮
function MsgYesNoBox(const Msg: string): Boolean;
//询问窗口 带'是','否,'取消'按钮//返回值smbYes,smbNo,smbCancel
function MsgYesNoCancelBox(const Msg: string): Integer;
//使鼠标变忙和恢复正常
procedure DoBusy(Busy: Boolean);
//显示错误信息
procedure ShowLastError(const Msg: string = 'API Error');
//发出错误信息
procedure RaiseLastError(const Msg: string = 'API Error');
//释放Strings连接的相关资源
procedure FreeStringsObjects(SL: TStrings);
//系统处理止
//时间处理起
//整数到时间
function TimeT_To_DateTime(TimeT: Longint): TDateTime;
//转化为秒
function TimeToSecond(const H, M, S: Integer): Integer;
//秒转化
procedure TimeSecondToTime(const secs: Integer; var H, M, S: Word);
//秒转化
function TimeSecondToTimeStr(secs: Integer): string;
//时间处理止
//控件处理起
//设置控件是否能使用
procedure ConEnableControl(AControl: TControl; Enable: Boolean);
//设置控件是否能使用,包子控件
procedure ConEnableChildControls(AControl: TControl; Enable: Boolean);
procedure ConEnableClassControl(AControl: TControl; Enable: Boolean;
ControlClass: TControlClass);
procedure ConFree(aCon: TWinControl);//释放aCon上的控件
//从文件本中导入,类似LoadfromFile
procedure ConLoadTreeViewFromTextFile(Nodes: TTreeNodes; Filename: string);
//存为文本,类似SaveToFile
procedure ConSaveTreeViewToTextFile(Nodes: TTreeNodes; Filename: string);
//在控件上写文本
procedure ConWriteText(aContr: TControl;sText: string);
//控件处理止
//字符串处理起
//取以Delimiters分隔的字符串 bTrail如果为True则把第index个后的也取出来
function StrGetToken(const S: string; index: Integer;
bTrail: Boolean = False;
Delimiters: TSysCharSet = DEFAULT_DELIMITERS): string;
//取以Delimiters分隔的字符串的个数
function StrCountWords(S: string; Delimiters: TSysCharSet =
DEFAULT_DELIMITERS): Integer;
//用NewToken替换S中所有Token bCaseSensitive:=true大小写敏感
function StrReplaceString(var S: string; const Token,
NewToken: string; bCaseSensitive: Boolean): Boolean;
//从第Index个起以Substr替换Count个字符
procedure StrSimple_ReplaceString(var S: string;
const Substr: string; index, Count: Integer);
//去掉S中的回车返行符
procedure StrTruncateCRLF(var S: string);
//判定S是否以回车返行符结束
function StrIsContainingCRLF(const S: string): Boolean;
//把SL中的各项数据转化为以Delimiter分隔的Str
function StrCompositeStrings(SL: TStrings; const Delimiter: string): string;
//封装TStrings的LoadFromFile
function StrSafeLoadStrings(SL: TStrings; const Filename: string): Boolean;
//封装TStrings的SaveToFile
procedure StrSafeSaveStrings(SL: TStrings; const Filename: string);
//字符串处理止
//字体处理起
procedure StringToFont(sFont: string; Font: TFont; bIncludeColor: Boolean = True);
function FontToString(Font: TFont; bIncludeColor: Boolean = True): string;
//字体处理止
//
网络起
//判定是否在线
function NetJudgeOnline:boolean;
//得