AutoCAD 3DMAX C语言 Pro/E UG JAVA编程 PHP编程 Maya动画 Matlab应用 Android
Photoshop Word Excel flash VB编程 VC编程 Coreldraw SolidWorks A Designer Unity3D
 首页 > Delphi

Delphi6函数大全(5)

51自学网 2015-09-02 http://www.51zixue.net


首部 function AnsiUpperCaseFileName(const S: string): string; $[SysUtils.pas
功能 返回大写文件名
说明 在非多字节字符系统上相当于AnsiUpperCase
参考 function SysUtils.AnsiUpperCase
例子 Edit2.Text := AnsiUpperCaseFileName(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function AnsiPos(const Substr, S: string): Integer; $[SysUtils.pas
功能 返回子串Substr在字符中第一次出现的位置
说明 不存在则返回0
参考 SysUtils.AnsiStrPos
例子 SpinEdit1.Value := AnsiPos(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 function AnsiStrPos(Str, SubStr: PChar): PChar; $[SysUtils.pas
功能 返回指针子串Substr在指针字符中第一次出现的指针位置
说明 不存在则返回nil
参考 function SysUtils.StrByteType
例子 Edit3.Text := AnsiStrPos(PChar(Edit1.Text), PChar(Edit2.Text));
━━━━━━━━━━━━━━━━━━━━━
首部 function AnsiStrRScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas
功能 返回在指针字符串Str搜索字符Chr最后一个出现的地址
说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.com'
参考 function SysUtils.AnsiStrScan
例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.');
━━━━━━━━━━━━━━━━━━━━━
首部 function AnsiStrScan(Str: PChar; Chr: Char): PChar; $[SysUtils.pas
功能 返回在指针字符串Str搜索字符Chr第一个出现的地址
说明 支持多字节字符系统;AnsiStrRScan('kingron.myetang.com', '.') = '.myetang.com'
参考 function SysUtils.StrScan
例子 Edit2.Text := AnsiStrScan(PChar(Edit1.Text), '.');
━━━━━━━━━━━━━━━━━━━━━
首部 function StringReplace(const S, OldPattern, NewPattern: string; Flags: TReplaceFlags): string; $[SysUtils.pas
功能 返回替换后的字符串
说明 rfReplaceAll为替换全部内容;rfIgnoreCase为忽略大小写
参考 function SysUtils.AnsiUpperCase;function SysUtils.AnsiPos;function System.Copy
例子
///////Begin StringReplace
procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Lines.Values['[]'] :=
StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, []);
Memo1.Lines.Values['[rfReplaceAll]'] :=
StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll]);
Memo1.Lines.Values['[rfIgnoreCase]'] :=
StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfIgnoreCase]);
Memo1.Lines.Values['[rfReplaceAll, rfIgnoreCase]'] :=
StringReplace(Edit1.Text, Edit2.Text, Edit3.Text, [rfReplaceAll, rfIgnoreCase]);
end;
///////End StringReplace
━━━━━━━━━━━━━━━━━━━━━
首部 function WrapText(const Line, BreakStr: string; const BreakChars: TSysCharSet; MaxCol: Integer): string; overload; $[SysUtils.pas
首部 function WrapText(const Line: string; MaxCol: Integer = 45): string; overload; $[SysUtils.pas
功能 返回对字符串自动换行
说明 Result := WrapText(Line, sLineBreak, [' ', '-', #9], MaxCol);
参考 function SysUtils.CharLength;function SysUtils.CompareText
例子 Memo1.Text := WrapText(Memo2.Text, SpinEdit1.Value);
━━━━━━━━━━━━━━━━━━━━━
首部 function FindCmdLineSwitch(const Switch: string; const Chars: TSysCharSet; IgnoreCase: Boolean): Boolean; overload; $[SysUtils.pas
首部 function FindCmdLineSwitch(const Switch: string): Boolean; overload; $[SysUtils.pas
首部 function FindCmdLineSwitch(const Switch: string; IgnoreCase: Boolean): Boolean; overload; $[SysUtils.pas
功能 返回程序命令参数是否找到
说明 Result := FindCmdLineSwitch(Switch, SwitchChars, True);
参考 function System.ParamCount;function System.ParamStr;function SysUtils.AnsiCompareText
例子 CheckBox1.Checked := FindCmdLineSwitch(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部 procedure FreeAndNil(var Obj); $[SysUtils.pas
功能 释放对象Obj并赋为空
说明 如果对象已经释放资源将触发异常
参考 type System.TObject
例子
///////Begin FreeAndNil
procedure TForm1.Button1Click(Sender: TObject);
var
Temp: TObject;
begin
Temp := TObject.Create;
Temp.Free;
ShowMessage(Format('%p', [Pointer(Temp)]));

Temp := TObject.Create;
FreeAndNil(Temp);
ShowMessage(Format('%p', [Pointer(Temp)]));
end;
///////End FreeAndNil
━━━━━━━━━━━━━━━━━━━━━
首部 function Supports(const Instance: IInterface; const IID: TGUID; out Intf): Boolean; overload; $[SysUtils.pas
首部 function Supports(const Instance: TObject; const IID: TGUID; out Intf): Boolean; overload; $[SysUtils.pas
首部 function Supports(const Instance: IInterface; const IID: TGUID): Boolean; overload; $[SysUtils.pas
首部 function Supports(const Instance: TObject; const IID: TGUID): Boolean; overload; $[SysUtils.pas
首部 function Supports(const AClass: TClass; const IID: TGUID): Boolean; overload; $[SysUtils.pas
功能 返回对象是否支持指定的接口
说明 Result := AClass.GetInterfaceEntry(IID) <> nil;
参考 type System.TObject
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function CreateGUID(out Guid: TGUID): HResult; $[SysUtils.pas
功能 返回创建全局标识是否成功
说明 返回S_OK表示成功
参考 function Windows.CoCreateGuid
例子
///////Begin CreateGUID
procedure TForm1.Button1Click(Sender: TObject);
var
vGUID: TGUID;
begin
CreateGUID(vGUID);
Edit1.Text := GUIDToString(vGUID);
end;
///////End CreateGUID
━━━━━━━━━━━━━━━━━━━━━
首部 function StringToGUID(const S: string): TGUID; $[SysUtils.pas
功能 返回字符串S转换成全局标识
说明 如果字符串非法将触发异常
参考 fuction Windows.Succeeded
例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text));
━━━━━━━━━━━━━━━━━━━━━
首部 function GUIDToString(const GUID: TGUID): string; $[SysUtils.pas
功能 返回全局标识GUID转换成字符串
说明 <NULL>
参考 fuction Windows.Succeeded
例子 Edit2.Text := GUIDToString(StringToGUID(Edit1.Text));
━━━━━━━━━━━━━━━━━━━━━
首部 function IsEqualGUID(const guid1, guid2: TGUID): Boolean; $[SysUtils.pas
功能 返回两个全局标识是否相同
说明 function IsEqualGUID; external 'ole32.dll' name 'IsEqualGUID';
参考 <NULL>
例子 CheckBox1.Checked := IsEqualGUID(StringToGUID(Edit1.Text), StringToGUID(Edit2.Text));
━━━━━━━━━━━━━━━━━━━━━
首部 function LoadPackage(const Name: string): HMODULE; $[SysUtils.pas
功能 返回载入包资源
说明 <NULL>
参考 function SysUtils.SafeLoadLibrary;function SysUtils.InitializePackage;function Windows.FreeLibrary
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure UnloadPackage(Module: HMODULE); $[SysUtils.pas
功能 取消载入包资源
说明 <NULL>
参考 function SysUtils.FinalizePackage;function Windows.FreeLibrary
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure GetPackageInfo(Module: HMODULE; Param: Pointer; var Flags: Integer; InfoProc: TPackageInfoProc); $[SysUtils.pas
功能 返回包的信息
说明 <NULL>
参考 <NULL>
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function GetPackageDescription(ModuleName: PChar): string; $[SysUtils.pas
功能 返回包的描述
说明 <NULL>
参考 function System.LoadResourceModule;function Windows.LoadLibraryEx
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure InitializePackage(Module: HMODULE); $[SysUtils.pas
功能 初始化包
说明 <NULL>
参考 function Windos.GetProcAddress
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure FinalizePackage(Module: HMODULE); $[SysUtils.pas
功能 终止化包
说明 <NULL>
参考 function Windos.GetProcAddress
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure RaiseLastOSError; $[SysUtils.pas
功能 触发操作系统的最后一个异常
说明 如果没有出现异常则默认调用Api函数异常
参考 function Windows.GetLastError
例子 RaiseLastOSError;
━━━━━━━━━━━━━━━━━━━━━
首部 procedure RaiseLastWin32Error; deprecated; $[SysUtils.pas
功能 触发Win32系统的最后一个异常
说明 如果没有出现异常则默认调用Api函数异常
参考 function SysUtils.RaiseLastOSError;
例子 RaiseLastWin32Error;
━━━━━━━━━━━━━━━━━━━━━
首部 function Win32Check(RetVal: BOOL): BOOL; platform; $[SysUtils.pas
功能 返回检测调用系统Api函数返回结果
说明 如果RetVal为False则触发异常
参考 function SysUtils.RaiseLastOSError
例子 CheckBox2.Checked := Win32Check(CheckBox1.Checked);
━━━━━━━━━━━━━━━━━━━━━
首部 procedure AddTerminateProc(TermProc: TTerminateProc); $[SysUtils.pas
功能 添加一个退出过程到系统中
说明 执行AddTerminateProc(nil)将导致系统异常
参考 const System.TerminateProcList
例子
///////Begin AddTerminateProc
function NewTerminateProc: Boolean;
begin
Result := True;
ShowMessage('NewTerminateProc');
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
AddTerminateProc(NewTerminateProc);
end;
///////End AddTerminateProc
━━━━━━━━━━━━━━━━━━━━━
首部 function CallTerminateProcs: Boolean; $[SysUtils.pas
功能 返回调用退出过程是否成功
说明 不建议调用
参考 const System.TerminateProcList
例子 CallTerminateProcs;
━━━━━━━━━━━━━━━━━━━━━
首部 function GDAL: LongWord; $[SysUtils.pas
功能 <NULL>
说明 <NULL>
参考 <NULL>
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure RCS; $[SysUtils.pas
功能 <NULL>
说明 <NULL>
参考 <NULL>
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 procedure RPR; $[SysUtils.pas
功能 <NULL>
说明 <NULL>
参考 <NULL>
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function SafeLoadLibrary(const Filename: string; ErrorMode: UINT = SEM_NOOPENFILEERRORBOX): HMODULE; $[SysUtils.pas
功能 返回安全方式载入动态连接库资源
说明 <参见LoadLibrary>
参考 function Windows.LoadLibrary
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function GetEnvironmentVariable(const Name: string): string; overload; $[SysUtils.pas
功能 返回过程环境变量
说明 配合SetEnvironmentVariable函数使用
参考 function Windows.GetEnvironmentVariable
例子 Edit1.Text := GetEnvironmentVariable(Edit2.Text);
///////Begin GetEnvironmentVariable
procedure TForm1.Button1Click(Sender: TObject);
begin
SetEnvironmentVariable(PChar(Edit2.Text), PChar(Edit3.Text));
Edit1.Text := GetEnvironmentVariable(Edit2.Text);
end;
///////End GetEnvironmentVariable
━━━━━━━━━━━━━━━━━━━━━
首部 function InterlockedIncrement(var I: Integer): Integer; $[SysUtils.pas
功能 <NULL>
说明 Kylix函数
参考 <NULL>
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function InterlockedDecrement(var I: Integer): Integer; $[SysUtils.pas
功能 <NULL>
说明 Kylix函数
参考 <NULL>
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function InterlockedExchange(var A: Integer; B: Integer): Integer; $[SysUtils.pas
功能 <NULL>
说明 Kylix函数
参考 <NULL>
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━
首部 function InterlockedExchangeAdd(var A: Integer; B: Integer): Integer; $[SysUtils.pas
功能 <NULL>
说明 Kylix函数
参考 <NULL>
例子 <NULL>
━━━━━━━━━━━━━━━━━━━━━  

 
 

上一篇:Delphi6函数大全(4)  下一篇:返回列表