Delphi6函数大全（5）[Delphi编程]

<<Delphi6函数大全5-SysUtils.pas>>

首部 function InquireSignal(RtlSigNum: Integer): TSignalState; $[SysUtils.pas
功效 <NULL>
阐明 Kylix函数
参考 <NULL>
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure AbandonSignalHandler(RtlSigNum: Integer); $[SysUtils.pas
功效 <NULL>
阐明 Kylix函数
参考 <NULL>
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure HookSignal(RtlSigNum: Integer); $[SysUtils.pas
功效 <NULL>
阐明 Kylix函数
参考 <NULL>
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure UnhookSignal(RtlSigNum: Integer; OnlyIfHooked: Boolean = True); $[SysUtils.pas
功效 <NULL>
阐明 Kylix函数
参考 <NULL>
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure HookOSExceptions; $[SysUtils.pas
功效 <NULL>
阐明 Kylix函数
参考 <NULL>
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function MapSignal(SigNum: Integer; Context: PSigContext): LongWord; $[SysUtils.pas
功效 <NULL>
阐明 Kylix函数
参考 <NULL>
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure SignalConverter(ExceptionEIP: LongWord; FaultAddr: LongWord; ErrorCode: LongWord); $[SysUtils.pas
功效 <NULL>
阐明 Kylix函数
参考 <NULL>
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure SetSafeCallExceptionMsg(Msg: String); $[SysUtils.pas
功效 <NULL>
阐明 Kylix函数
参考 <NULL>
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure SetSafeCallExceptionAddr(Addr: Pointer); $[SysUtils.pas
功效 <NULL>
阐明 Kylix函数
参考 <NULL>
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function GetSafeCallExceptionMsg: String; $[SysUtils.pas
功效 <NULL>
阐明 Kylix函数
参考 <NULL>
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function GetSafeCallExceptionAddr: Pointer; $[SysUtils.pas
功效 <NULL>
阐明 Kylix函数
参考 <NULL>
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function LoadLibrary(ModuleName: PChar): HMODULE; $[SysUtils.pas
功效 <NULL>
阐明 Kylix函数
参考 <NULL>
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function FreeLibrary(Module: HMODULE): LongBool; $[SysUtils.pas
功效 <NULL>
阐明 Kylix函数
参考 <NULL>
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function GetProcAddress(Module: HMODULE; Proc: PChar): Pointer; $[SysUtils.pas
功效 <NULL>
阐明 Kylix函数
参考 <NULL>
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function GetModuleHandle(ModuleName: PChar): HMODULE; $[SysUtils.pas
功效 <NULL>
阐明 Kylix函数
参考 <NULL>
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function GetPackageModuleHandle(PackageName: PChar): HMODULE; $[SysUtils.pas
功效 <NULL>
阐明 Kylix函数
参考 <NULL>
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure Sleep(milliseconds: Cardinal);{$IFDEF MSWINDOWS} stdcall; {$ENDIF} $[SysUtils.pas
功效 让程序休眠一段时间
阐明 以微米为单位
参考 <NULL>
例子 Sleep(3000);
━━━━━━━━━━━━━━━━━━━━━
首部 function GetModuleName(Module: HMODULE): string; $[SysUtils.pas
功效 返回动态衔接库的名称
阐明 假如参数为0则返回当前途序的名称
参考 function Windows.GetModuleFileName
例子
///////Begin GetModuleName
procedure TForm1.Button1Click(Sender: TObject);
var
vHandle: THandle;
begin
vHandle := LoadLibrary(PChar(Edit1.Text));
Caption := GetModuleName(vHandle);
FreeLibrary(vHandle);
end;
///////End GetModuleName
━━━━━━━━━━━━━━━━━━━━━
首部 function ExceptionErrorMessage(ExceptObject: TObject; ExceptAddr: Pointer; Buffer: PChar; Size: Integer): Integer; $[SysUtils.pas
功效 返回操作指针失利的信息长度
阐明 信息放在缓冲Buffer中
参考 function Windows.VirtualQuery;function Windows.GetModuleFilename
例子
///////Begin ExceptionErrorMessage
procedure TForm1.Button1Click(Sender: TObject);
var
vBuffer: array[0..255] of Char;
begin
ExceptionErrorMessage(Self, Self, vBuffer, 255);
Caption := vBuffer;
end;
///////End ExceptionErrorMessage
━━━━━━━━━━━━━━━━━━━━━
首部 procedure ShowException(ExceptObject: TObject; ExceptAddr: Pointer); $[SysUtils.pas
功效 提醒一个操作指针失利的错误
阐明 支持掌握台程序
参考 function SysUtils.ExceptionErrorMessage;var System.IsConsole;function System.FindResourceHInstance
例子 ShowException(Self, Self);
━━━━━━━━━━━━━━━━━━━━━
首部 procedure Abort; $[SysUtils.pas
功效 惹起放弃的不测处理
阐明 不显示任何错误信息
参考 type SysUtils.EAbort
例子 Abort;
━━━━━━━━━━━━━━━━━━━━━
首部 procedure OutOfMemoryError; $[SysUtils.pas
功效 触发内存益出非常
阐明 <NULL>
参考 var SysUtils.OutOfMemory
例子 OutOfMemoryError;
━━━━━━━━━━━━━━━━━━━━━
首部 procedure Beep; $[SysUtils.pas
功效 触发计算机出声
阐明 MessageBeep(0);
参考 function Windows.MessageBeep
例子 Beep;
━━━━━━━━━━━━━━━━━━━━━
首部 function ByteType(const S: string; Index: Integer): TMbcsByteType; $[SysUtils.pas
功效 返回字符串S位置Index上的字符在MBCS中范例
阐明 多字节字符系统:Multi-Byte Character System (MBCS)
参考 var SysUtils.SysLocale
例子 SpinEdit1.Value := Ord(ByteType(Edit1.Text, SpinEdit2.Value));
━━━━━━━━━━━━━━━━━━━━━
首部 function StrByteType(Str: PChar; Index: Cardinal): TMbcsByteType; $[SysUtils.pas
功效 返回指针字符串Str位置Index上的字符在MBCS中范例
阐明 Index从0开始
参考 var SysUtils.SysLocale
例子 SpinEdit1.Value := Ord(StrByteType(PChar(Edit1.Text), SpinEdit2.Value));
━━━━━━━━━━━━━━━━━━━━━
首部 function ByteToCharLen(const S: string; MaxLen: Integer): Integer; $[SysUtils.pas
功效 返回字符串S中有多少个多字节字符
阐明 MaxLen指定处理字符个数
参考 function SysUtils.ByteToCharIndex
例子 SpinEdit1.Value := ByteToCharLen(Edit1.Text, SpinEdit2.Value);
━━━━━━━━━━━━━━━━━━━━━
首部 function CharToByteLen(const S: string; MaxLen: Integer): Integer; $[SysUtils.pas
功效 返回字符串S中有多少个字符
阐明 MaxLen指定处理多字节字符个数
参考 var SysUtils.SysLocale
例子 SpinEdit1.Value := CharToByteLen(Edit1.Text, SpinEdit2.Value);
━━━━━━━━━━━━━━━━━━━━━
首部 function ByteToCharIndex(const S: string; Index: Integer): Integer; $[SysUtils.pas
功效 返回字符位置对应的多字节字符位置
阐明 ByteToCharIndex('你好', 2) = 1;ByteToCharIndex('你好', 3) = 2
参考 function SysUtils.NextCharIndex
例子 SpinEdit1.Value := ByteToCharIndex(Edit1.Text, SpinEdit2.Value);
━━━━━━━━━━━━━━━━━━━━━
首部 function CharToByteIndex(const S: string; Index: Integer): Integer; $[SysUtils.pas
功效 返回多字节字符位置对应的字符起始位置
阐明 CharToByteIndex('你好', 1) = 1;CharToByteIndex('你好', 2) = 3
参考 function System.Length
例子 SpinEdit1.Value := CharToByteIndex(Edit1.Text, SpinEdit2.Value);
━━━━━━━━━━━━━━━━━━━━━
首部 function StrCharLength(const Str: PChar): Integer; $[SysUtils.pas
功效 返回第一个字符的宽度
阐明 参数为空则返回0
参考 function Windows.CharNext
例子 SpinEdit1.Value := StrCharLength(PChar(Edit1.Text));
━━━━━━━━━━━━━━━━━━━━━
首部 function StrNextChar(const Str: PChar): PChar; $[SysUtils.pas
功效 返回字符指针Str的下一个字符指针
阐明 StrNextChar('1234') = '234';
参考 function Windows.CharNext
例子 Edit2.Text := StrNextChar(PChar(Edit1.Text));
━━━━━━━━━━━━━━━━━━━━━
首部 function CharLength(const S: String; Index: Integer): Integer; $[SysUtils.pas
功效 返回字符串中指定位置的字符宽度
阐明 CharLength('English汉', 1) = 1;CharLength('English汉', 8) = 2
参考 function System.Assert;function SysUtils.StrCharLength
例子 SpinEdit1.Value := CharLength(Edit1.Text, SpinEdit2.Value);
━━━━━━━━━━━━━━━━━━━━━
首部 function NextCharIndex(const S: String; Index: Integer): Integer; $[SysUtils.pas
功效 返回下一个字符的位置
阐明 CharLength('你好', 1) = 3;CharLength('你好', 3) = 5
参考 function System.Assert;function SysUtils.StrCharLength
例子 SpinEdit1.Value := NextCharIndex(Edit1.Text, SpinEdit2.Value);
━━━━━━━━━━━━━━━━━━━━━
首部 function IsPathDelimiter(const S: string; Index: Integer): Boolean; $[SysUtils.pas
功效 返回字符串S中指定位置Index上能否是一个途径脱离符
阐明 IsPathDelimiter('C:\Windows', 3) = True
参考 const SysUtils.PathDelim;function SysUtils.ByteType
例子 CheckBox1.Checked := IsPathDelimiter(Edit1.Text, SpinEdit1.Value);
━━━━━━━━━━━━━━━━━━━━━
首部 function IsDelimiter(const Delimiters, S: string; Index: Integer): Boolean; $[SysUtils.pas
功效 返回字符串S中指定位置Index上能否是一个脱离符Delimiters
阐明 IsDelimiter('@', 'wjhu111@21cn.com', 8) = True
参考 function SysUtils.ByteType
例子 CheckBox1.Checked := IsDelimiter(Edit1.Text, Edit2.Text, SpinEdit1.Value);
━━━━━━━━━━━━━━━━━━━━━
首部 function IncludeTrailingPathDelimiter(const S: string): string; $[SysUtils.pas
功效 返回包含最后途径脱离符
阐明 最后一个字符是途径脱离符则不变;不然加上一个途径脱离符返回
参考 function SysUtils.IsPathDelimiter;function System.Length
例子 Edit1.Text := IncludeTrailingPathDelimiter(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function IncludeTrailingBackslash(const S: string): string; platform; $[SysUtils.pas
功效 返回包含最后斜线
阐明 Result := IncludeTrailingPathDelimiter(S);
参考 function SysUtils.IncludeTrailingPathDelimiter
例子 Edit1.Text := IncludeTrailingBackslash(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function ExcludeTrailingPathDelimiter(const S: string): string; $[SysUtils.pas
功效 返回解除最后途径脱离符
阐明 最后一个字符不是途径脱离符则不变;不然减去最后的途径脱离符返回
参考 function SysUtils.IsPathDelimiter;function System.Length;function System.SetLength
例子 Edit1.Text := ExcludeTrailingPathDelimiter(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function ExcludeTrailingBackslash(const S: string): string; platform; $[SysUtils.pas
功效 返回解除最后斜线
阐明 Result := ExcludeTrailingPathDelimiter(S)
参考 function SysUtils.ExcludeTrailingPathDelimiter
例子 Edit1.Text := ExcludeTrailingBackslash(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function LastDelimiter(const Delimiters, S: string): Integer; $[SysUtils.pas
功效 返回最后一个脱离符的位置
阐明 LastDelimiter('.', 'kingron.myetang.com') = 16
参考 function SysUtils.StrScan;function SysUtils.ByteType
例子 SpinEdit1.Value := LastDelimiter(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function AnsiCompareFileName(const S1, S2: string): Integer; $[SysUtils.pas
功效 返回对比两个文件名
阐明 当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;辨别大小写
参考 function SysUtils.AnsiCompareStr
例子 SpinEdit1.Value := AnsiCompareFileName(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function SameFileName(const S1, S2: string): Boolean; $[SysUtils.pas
功效 返回两个文件名能否相等
阐明 辨别大小写
参考 function SysUtils.AnsiCompareFileName
例子 CheckBox1.Checked := SameFileName(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function AnsiLowerCaseFileName(const S: string): string; $[SysUtils.pas
功效 返回小写文件名
阐明 在非多字节字符系统上相当于AnsiLowerCase
参考 function SysUtils.AnsiLowerCase
例子 Edit2.Text := AnsiLowerCaseFileName(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━