Delphi函数大全

最新推荐文章于 2024-01-01 08:55:17 发布
最新推荐文章于 2024-01-01 08:55:17 发布
阅读量1.3k 收藏 1
点赞数
文章标签： delphi function integer string deprecated outofmemoryerror
 

Delphi函数大全

首部  function Languages: TLanguages; $[SysUtils.pas
功能  返回系统语言对象
说明  通过此函数可以得到系统的语言环境
参考  type SysUtils.TLanguages
例子 
///Begin Languages
procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
begin
  Memo1.Clear;
  for I := 0 to Languages.Count - 1 do
    Memo1.Lines.Add(Languages.Name[I]);
end;
///End Languages
━━━━━━━━━━━━━━━━━━━━━ 
首部  function AllocMem(Size: Cardinal): Pointer; $[SysUtils.pas
功能  返回一个指定大小Size的内存块
说明  配合用FreeMem释放资源
参考  function System.GetMem
例子 
///Begin AllocMem
procedure TForm1.Button1Click(Sender: TObject);
var
  I: PInteger;
begin
  I := AllocMem(SizeOf(Integer));
  I^ := 100;
  Edit1.Text := IntToStr(I^);
  FreeMem(I, SizeOf(Integer));
end;
///End AllocMem
━━━━━━━━━━━━━━━━━━━━━ 
首部  procedure AddExitProc(Proc: TProcedure); $[SysUtils.pas
功能  添加一个退出处理的过程
说明  建议用finalization部分取代
参考 
例子 
Begin AddExitProc
uses
  ShellApi;

procedure ExitProc;
begin
  ShellExecute(0, 'Open', 'Calc.exe', nil, nil, SW_SHOW);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  AddExitProc(ExitProc);
end;
End AddExitProc
━━━━━━━━━━━━━━━━━━━━━ 
首部  function NewStr(const S: string): PString; deprecated; $[SysUtils.pas
功能  返回一个新的字符串指针地址
说明  字符串S为空时返回NullStr
参考  procedure System.New
例子 
Begin NewStr,DisposeStr
procedure TForm1.Button1Click(Sender: TObject);
var
  P: PString;
begin
  P := NewStr(Edit1.Text);
  Edit2.Text := P^;
  DisposeStr(P);
end;
End NewStr,DisposeStr
━━━━━━━━━━━━━━━━━━━━━ 
首部  procedure DisposeStr(P: PString); deprecated; $[SysUtils.pas
功能  释放字符串指针P资源
说明  配合函数NewStr使用
参考  procedure System.Dispose
例子  <如上参见,如下参见>
━━━━━━━━━━━━━━━━━━━━━ 
首部  procedure AssignStr(var P: PString; const S: string); deprecated; $[SysUtils.pas
功能  将字符串S更新给字符串指针P
说明  更新值时会释放以前字符串指针的资源
参考  function SysUtils.NewStr;function SysUtils.DisposeStr
例子 
Begin AssignStr
procedure TForm1.Button1Click(Sender: TObject);
var
  P: PString;
begin
  P := nil;
  AssignStr(P, Edit1.Text);
  Edit2.Text := P^;
  DisposeStr(P);
end;
End AssignStr
━━━━━━━━━━━━━━━━━━━━━ 
首部  procedure AppendStr(var Dest: string; const S: string); deprecated; $[SysUtils.pas
功能  在字符串Dest后追加字符串S
说明  相当于Dest := Dest + S;Delphi6已经不建议使用
参考 
例子 
Begin AppendStr
procedure TForm1.Button1Click(Sender: TObject);
var
  S: string;
begin
  S := Edit2.Text;
  AppendStr(S, Edit1.Text);
  Edit2.Text := S;
end;
End AppendStr
━━━━━━━━━━━━━━━━━━━━━ 
首部  function UpperCase(const S: string): string; $[SysUtils.pas
功能  返回字符串S的大写形式
说明  非小写字符不处理
参考  procedure System.SetLength
例子  Edit2.Text := UpperCase(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━ 
首部  function LowerCase(const S: string): string; $[SysUtils.pas
功能  返回字符串S的小写形式
说明  非大写字符不处理
参考  procedure System.SetLength
例子  Edit2.Text := LowerCase(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━ 
首部  function CompareStr(const S1, S2: string): Integer; $[SysUtils.pas
功能  返回比较两个字符
说明  当S1>S2返回值>0;当S1


 

相思的泪打湿无眼的枕，相爱的情折磨失意的魂；相恋的人徘徊离别的街，相牵的人感受分离的苦 
 
2005-7-26 10:53 #1
              
 
 
真诚的海 (海海)
自成一派

与海有关的都归偶管

 

     
UID 140532
精华 10
积分 487
帖子 12774
阅读权限 60
注册 2004-12-1
来自 N次元空间
状态 在线  [广告]: 《电脑报》2005年度有奖调查
--------------------------------------------------------------------------------
 首部  function FileSetDate(const FileName: string; Age: Integer): Integer; overload; $[SysUtils.pas
首部  function FileSetDate(Handle: Integer; Age: Integer): Integer; overload; platform; $[SysUtils.pas
功能  返回设置文件的修改时间
说明  修改成功则返回0
参考  function Windows.SetFileTime
例子  SpinEdit1.Value := FileSetDate(Edit1.Text, DateTimeToFileDate(StrToDateTime(Edit2.Text)));
━━━━━━━━━━━━━━━━━━━━━ 
首部  function FileGetAttr(const FileName: string): Integer; platform; $[SysUtils.pas
功能  返回文件的属性
说明  读取失败则返回$FFFFFFFF
参考  function Windows.GetFileAttributes
例子  SpinEdit1.Value := FileGetAttr(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function FileSetAttr(const FileName: string; Attr: Integer): Integer; platform; $[SysUtils.pas
功能  返回设置文件的属性
说明  设置成功则返回0
参考  function Windows.SetFileAttributes
例子  SpinEdit1.Value := FileSetAttr(Edit1.Text, SpinEdit2.Value);
━━━━━━━━━━━━━━━━━━━━━
首部  function FileIsReadOnly(const FileName: string): Boolean; $[SysUtils.pas
功能  返回文件是否只读
说明  文件不存在看作只读
参考  function Windows.GetFileAttributes
例子  CheckBox1.Checked := FileIsReadOnly(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function FileSetReadOnly(const FileName: string; ReadOnly: Boolean): Boolean; $[SysUtils.pas
功能  返回设置文件是否只读是否成功
说明  文件不存在则返回False
参考  function Windows.GetFileAttributes;function Windows.SetFileAttributes
例子  CheckBox1.Checked := FileSetReadOnly(Edit1.Text, CheckBox2.Checked);
━━━━━━━━━━━━━━━━━━━━━ 
首部  function DeleteFile(const FileName: string): Boolean; $[SysUtils.pas
功能  返回删除文件是否成功
说明  文件不存在则返回False
参考  function Windows.DeleteFile
例子  CheckBox1.Checked := DeleteFile(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━ 
首部  function RenameFile(const OldName, NewName: string): Boolean; $[SysUtils.pas
功能  返回重命名文件是否成功
说明  文件不存在则返回False
参考  function Windows.MoveFile
例子  CheckBox1.Checked := RenameFile(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function ChangeFileExt(const FileName, Extension: string): string; $[SysUtils.pas
功能  返回改变扩展名后的文件名
说明  [注意]扩展名Extension前要加点;ChangeFileExt('a.jpg', 'bmp')='abmp'
参考  function SysUtils.LastDelimiter;function System.Copy
例子  Edit1.Text := ChangeFileExt(Edit2.Text, Edit3.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function ExtractFilePath(const FileName: string): string; $[SysUtils.pas
功能  返回文件名所在的路径
说明  ExtractFilePath('C:/')='C:/';ExtractFilePath('//Server/Tool/Calc.exe')='//Server/Tool/'
参考  function SysUtils.LastDelimiter;function System.Copy
例子  Edit1.Text := ExtractFilePath(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function ExtractFileDir(const FileName: string): string; $[SysUtils.pas
功能  返回文件名所在的目录
说明  ExtractFileDir('C:/')='C:/';ExtractFileDir('//Server/Tool/Calc.exe')='//Server/Tool'
参考  function SysUtils.LastDelimiter;function System.Copy
例子  Edit1.Text := ExtractFileDir(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function ExtractFileDrive(const FileName: string): string; $[SysUtils.pas
功能  返回文件名所在驱动器
说明  ExtractFileDrive('C:/')='C:';ExtractFileDrive('//Server/Tool/Calc.exe')='//Server/Tool'
参考  function System.Copy
例子  Edit1.Text := ExtractFileDrive(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function ExtractFileName(const FileName: string): string; $[SysUtils.pas
功能  返回绝对文件名
说明  ExtractFileName('C:/')='';ExtractFileName('//Server/Tool/Calc.exe')='Calc.exe'
参考  function SysUtils.LastDelimiter;function System.Copy
例子  Edit1.Text := ExtractFileName(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function ExtractFileExt(const FileName: string): string; $[SysUtils.pas
功能  返回文件名的扩展名
说明  ExtractFileExt('C:/')='';ExtractFileExt('//Server/Tool/Calc.exe')='.exe'
参考  function SysUtils.LastDelimiter;function System.Copy
例子  Edit1.Text := ExtractFileExt(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function ExpandFileName(const FileName: string): string; $[SysUtils.pas
功能  返回文件名的完整表示
说明  ExpandFileName('hello.pas')='C:/Program Files/Borland/Delphi6/Projects/hello.pas'
参考  function Windows.GetFullPathName
例子  Edit1.Text := ExpandFileName(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function ExpandFileNameCase(const FileName: string; out MatchFound: TFilenameCaseMatch): string; $[SysUtils.pas
功能  分情况返回文件名的完整表示
说明  type TFilenameCaseMatch = (mkNone, mkExactMatch, mkSingleMatch, mkAmbiguous);
参考  function Windows.GetFullPathName;function SysUtils.SameFileName;function SysUtils.FindFirst
例子
///Begin ExpandFileNameCase
procedure TForm1.Button1Click(Sender: TObject);
var
  vFilenameCaseMatch: TFilenameCaseMatch;
begin
  Edit1.Text := ExpandFileNameCase(Edit2.Text, vFilenameCaseMatch);
  SpinEdit1.Value := Ord(vFilenameCaseMatch);
end;
///End ExpandFileNameCase
━━━━━━━━━━━━━━━━━━━━━
首部  function ExpandUNCFileName(const FileName: string): string; $[SysUtils.pas
功能  返回LINUX文件名的完整表示
说明  ExpandUNCFileName('C:/')='C:/'
参考  function SysUtils.ExpandFileName
例子  Edit1.Text := ExpandUNCFileName(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function ExtractRelativePath(const BaseName, DestName: string): string; $[SysUtils.pas
功能  返回参数的相对路径
说明  ExtractRelativePath('C:/Windows/', 'C:/Windows/System')='System'
参考  function SysUtils.SameFilename;function SysUtils.ExtractFileDrive
例子  Edit1.Text := ExtractRelativePath(Edit2.Text, Edit3.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function ExtractShortPathName(const FileName: string): string; $[SysUtils.pas
功能  返回参数的DOS路径
说明  ExtractShortPathName('C:/Program Files/Borland')='C:/PROGRA~1/BORLAND'
参考  function Windows.GetShortPathName
例子  Edit1.Text := ExtractShortPathName(Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function FileSearch(const Name, DirList: string): string; $[SysUtils.pas
功能  返回目录列表中DirList搜索的第一个结果
说明  FileSearch('Calc.exe', 'd:/winxp/system32;c:/windows')='d:/winxp/system32/calc.exe'
参考  function SysUtils.FileExists;function SysUtils.AnsiLastChar
例子  Edit1.Text := FileSearch(Edit2.Text, Edit3.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function DiskFree(Drive: Byte): Int64; $[SysUtils.pas
功能  返回驱动器可用空间
说明  参数Drive为0表示当前路径,为1表示=A驱,为2表示=B驱...;获取失败则返回-1
参考  function Windows.GetDiskFreeSpaceExA
例子  SpinEdit1.Value := DiskFree(SpinEdit2.Value);
━━━━━━━━━━━━━━━━━━━━━
首部  function DiskSize(Drive: Byte): Int64; $[SysUtils.pas
功能  返回驱动器全部空间
说明  参数Drive为0表示当前路径,为1表示=A驱,为2表示=B驱...;获取失败则返回-1
参考  function Windows.GetDiskFreeSpaceExA
例子  SpinEdit1.Value := DiskSize(SpinEdit2.Value);
━━━━━━━━━━━━━━━━━━━━━
首部  function FileDateToDateTime(FileDate: Integer): TDateTime; $[SysUtils.pas
功能  返回将文件日期时间类型转换日期时间类型
说明  FileDate非法是将触发异常
参考  function SysUtils.EncodeDate;function SysUtils.EncodeTime
例子  <参见FileAge>
━━━━━━━━━━━━━━━━━━━━━
首部  function DateTimeToFileDate(DateTime: TDateTime): Integer; $[SysUtils.pas
功能  返回将日期时间类型转换文件日期时间类型
说明  年份在1980到2107之外则返回0
参考  function SysUtils.DecodeDate;function SysUtils.DecodeTime
例子  <参见FileSetDate>
━━━━━━━━━━━━━━━━━━━━━ 
首部  function GetCurrentDir: string; $[SysUtils.pas
功能  返回当前操作目录
说明  [注意]调用文件对话框会改变当前操作目录
参考  function System.GetDir
例子  Edit1.Text := GetCurrentDir;
━━━━━━━━━━━━━━━━━━━━━ 
首部  function SetCurrentDir(const Dir: string): Boolean; $[SysUtils.pas
功能  返回设置当前操作目录是否成功
说明  [注意]调用文件对话框会改变当前操作目录
参考  function Windows.SetCurrentDirectory
例子  CheckBox1.Checked := SetCurrentDir(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function CreateDir(const Dir: string): Boolean; $[SysUtils.pas
功能  返回创建目录是否成功
说明  不支持多级目录;已经存在则返回False
参考  function Windows.CreateDirectory
例子  CheckBox1.Checked := CreateDir(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function RemoveDir(const Dir: string): Boolean; $[SysUtils.pas
功能  返回删除目录是否成功
说明  必须是空目录
参考  function Windows.RemoveDirectory
例子  CheckBox1.Checked := RemoveDir(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function StrLen(const Str: PChar): Cardinal; $[SysUtils.pas
功能  返回指针字符串的长度
说明  当指针字符串Str为nil时将触发异常
参考 
例子  SpinEdit2.Value := StrLen(PChar(Edit1.Text));
━━━━━━━━━━━━━━━━━━━━━
首部  function StrEnd(const Str: PChar): PChar; $[SysUtils.pas
功能  返回指针字符串的结尾
说明  当指针字符串Str为nil时将触发异常
参考 
例子  Edit2.Text := StrEnd(PChar(Edit1.Text)) - SpinEdit1.Value;
━━━━━━━━━━━━━━━━━━━━━
首部  function StrMove(Dest: PChar; const Source: PChar; Count: Cardinal): PChar; $[SysUtils.pas
功能  返回将指针字符串Source指定内存数量Count复制覆盖到指针字符串Dest中
说明  Dest没有分配资源将触发异常s
参考  function System.Move
例子
///Begin StrMove
procedure TForm1.Button1Click(Sender: TObject);
var
  vBuffer: PChar;
begin
  vBuffer := '0123456789';
  StrMove(vBuffer, PChar(Edit1.Text), SpinEdit1.Value);
  Edit2.Text := vBuffer;
end;
///End StrMove
━━━━━━━━━━━━━━━━━━━━━
首部  function StrCopy(Dest: PChar; const Source: PChar): PChar; $[SysUtils.pas
功能  返回将指针字符串Source复制到指针字符串Dest中
说明  Dest应已经分配足够的空间非则将触发异常
参考 
例子
///Begin StrCopy
procedure TForm1.Button1Click(Sender: TObject);
var
  vBuffer: PChar;
begin
  GetMem(vBuffer, Length(Edit1.Text) + 1);
  StrCopy(vBuffer, PChar(Edit1.Text));
  Edit2.Text := vBuffer;
  FreeMem(vBuffer);
end;
///End StrCopy
━━━━━━━━━━━━━━━━━━━━━
首部  function StrECopy(Dest:PChar; const Source: PChar): PChar; $[SysUtils.pas
功能  返回将指针字符串Source复制到指针字符串Dest中的结尾
说明  可以连接指针字符串
参考 
例子
///Begin StrECopy
procedure TForm1.Button1Click(Sender: TObject);
var
  vBuffer: array[0..255] of Char;
begin
  StrECopy(StrECopy(vBuffer, PChar(Edit1.Text)), PChar(Edit2.Text));
  Edit3.Text := vBuffer;
end;
///End StrECopy
━━━━━━━━━━━━━━━━━━━━━
首部  function StrLCopy(Dest: PChar; const Source: PChar; MaxLen: Cardinal): PChar; $[SysUtils.pas
功能  返回将指针字符串Source指定长度MaxLen复制到指针字符串Dest中
说明  Dest应已经分配足够的空间非则将触发异常
参考 
例子
///Begin StrLCopy
procedure TForm1.Button1Click(Sender: TObject);
var
  vBuffer: array[0..255] of Char;
begin
  StrLCopy(vBuffer, PChar(Edit1.Text), SpinEdit1.Value);
  Edit2.Text := vBuffer;
end;
///End StrLCopy
━━━━━━━━━━━━━━━━━━━━━
首部  function StrPCopy(Dest: PChar; const Source: string): PChar; $[SysUtils.pas
功能  返回将指针字符串Source复制到指针字符串Dest中
说明  StrLCopy(Dest, PChar(Source), Length(Source))
参考  function SysUtils.StrLCopy
例子
///Begin StrPCopy
procedure TForm1.Button1Click(Sender: TObject);
var
  vBuffer: array[0..255] of Char;
begin
  StrPCopy(vBuffer, PChar(Edit1.Text));
  Edit2.Text := vBuffer;
end;
///End StrPCopy
━━━━━━━━━━━━━━━━━━━━━
首部  function StrPLCopy(Dest: PChar; const Source: string; MaxLen: Cardinal): PChar; $[SysUtils.pas
功能  返回将字符串Source指定长度MaxLen复制到指针字符串Dest中
说明  StrLCopy(Dest, PChar(Source), MaxLen)
参考  function SysUtils.StrLCopy
例子
///Begin StrPLCopy
procedure TForm1.Button1Click(Sender: TObject);
var
  vBuffer: array[0..255] of Char;
begin
  StrPLCopy(vBuffer, Edit1.Text, SpinEdit1.Value);
  Edit2.Text := vBuffer;
end;
///End StrPLCopy
━━━━━━━━━━━━━━━━━━━━━
首部  function StrCat(Dest: PChar; const Source: PChar): PChar; $[SysUtils.pas
功能  返回连接指针字符串Dest和指针字符串Source
说明  StrCopy(StrEnd(Dest), Source)
参考  function SysUntils.StrCopy
例子
///Begin StrCat
procedure TForm1.Button1Click(Sender: TObject);
var
  vBuffer: array[0..255] of Char;
begin
  StrPCopy(vBuffer, Edit1.Text);
  StrCat(vBuffer, PChar(Edit2.Text));
  Edit3.Text := vBuffer;
end;
///End StrCat
━━━━━━━━━━━━━━━━━━━━━
首部  function StrLCat(Dest: PChar; const Source: PChar; MaxLen: Cardinal): PChar; $[SysUtils.pas
功能  返回连接指针字符串Dest和指针字符串Source
说明  [注意]MaxLen指定连接后的最大长度不是指针字符串Source的长度
参考 
例子
///Begin StrLCat
procedure TForm1.Button1Click(Sender: TObject);
var
  vBuffer: array[0..255] of Char;
begin
  StrPCopy(vBuffer, Edit1.Text);
  StrLCat(vBuffer, PChar(Edit2.Text), SpinEdit1.Value);
  Edit3.Text := vBuffer;
end;
///End StrLCat
━━━━━━━━━━━━━━━━━━━━━
首部  function StrComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas
功能  返回比较两个指针字符串
说明  当S1>S2返回值>0;当S1

[ Last edited by 真诚的海 on 2005-7-26 at 10:54 ]


 

相思的泪打湿无眼的枕，相爱的情折磨失意的魂；相恋的人徘徊离别的街，相牵的人感受分离的苦 
 
2005-7-26 10:53 #2
              
 
 
真诚的海 (海海)
自成一派

与海有关的都归偶管

 

     
UID 140532
精华 10
积分 487
帖子 12774
阅读权限 60
注册 2004-12-1
来自 N次元空间
状态 在线  [广告]: 论坛全面开放Blog，大家都来使用吧！
--------------------------------------------------------------------------------
 首部  function StrAlloc(Size: Cardinal): PChar; $[SysUtils.pas
功能  返回分配指定空间的内存资源给指针字符串
说明  空间的大小也将保存;用StrDispose才能全部释放
参考  function System.GetMem
例子
///Begin StrAlloc
procedure TForm1.Button1Click(Sender: TObject);
var
  P: PChar;
begin
  P := StrAlloc(SpinEdit1.Value);
  ShowMessage(IntToStr(StrLen(P)));
  Dec(P, SizeOf(Cardinal));
  ShowMessage(IntToStr(Cardinal(Pointer(P)^)));
  Inc(P, SizeOf(Cardinal));
  StrDispose(P);
end;
///End StrAlloc

━━━━━━━━━━━━━━━━━━━━━
首部  function StrBufSize(const Str: PChar): Cardinal; $[SysUtils.pas
功能  返回通过函数StrAlloc分配的缓冲区大小
说明  出现异常情况则返回不可预知的结果
参考  function System.SizeOf
例子  SpinEdit1.Value := StrBufSize(StrAlloc(SpinEdit2.Value));
━━━━━━━━━━━━━━━━━━━━━
首部  function StrNew(const Str: PChar): PChar; $[SysUtils.pas
功能  返回复制一个新的指针字符串
说明  如果Str为nil则返回nil
参考  function SysUtils.StrLen;function SysUtils.StrMove;function SysUtils.StrAlloc
例子
///Begin StrNew,StrDispose
procedure TForm1.Button1Click(Sender: TObject);
var
  P: PChar;
begin
  P := StrNew(PChar(Edit1.Text));
  ShowMessage(P);
  StrDispose(P);
end;
///End StrNew,StrDispose
━━━━━━━━━━━━━━━━━━━━━
首部  procedure StrDispose(Str: PChar); $[SysUtils.pas
功能  释放指针字符串Str内存资源
说明  如果Str为nil则不作任何处理;并且释放空间大小信息
参考  function System.Dec;function System.SizeOf;function System.FreeMem
例子  <参见StrNew>
━━━━━━━━━━━━━━━━━━━━━
首部  function Format(const Format: string; const Args: array of const): string; $[SysUtils.pas
功能  返回按指定方式格式化一个数组常量的字符形式
说明  这个函数是我在Delphi中用得最多的函数，现在就列举几个例子给你个直观的理解
"%" [索引 ":"] ["-"] [宽度] ["." 摘要] 类型
Format('x=%d', [12]); //'x=12' //最普通
Format('x=%3d', [12]); //'x= 12' //指定宽度
Format('x=%f', [12.0]); //'x=12.00' //浮点数
Format('x=%.3f', [12.0]); //'x=12.000' //指定小数
Format('x=%.*f', [5, 12.0]); //'x=12.00000' //动态配置
Format('x=%.5d', [12]); //'x=00012' //前面补充0
Format('x=%.5x', [12]); //'x=0000C' //十六进制
Format('x=%1:d%0:d', [12, 13]); //'x=1312' //使用索引
Format('x=%p', [nil]); //'x=00000000' //指针
Format('x=%1.1e', [12.0]); //'x=1.2E+001' //科学记数法
Format('x=%%', []); //'x=%' //得到"%"
S := Format('%s%d', [S, I]); //S := S + StrToInt(I); //连接字符串
参考  proceduer SysUtils.FmtStr
例子  Edit1.Text := Format(Edit2.Text, [StrToFloatDef(Edit.3.Text, 0)]);
━━━━━━━━━━━━━━━━━━━━━
首部  procedure FmtStr(var Result: string; const Format: string; const Args: array of const); $[SysUtils.pas
功能  按指定方式格式化一个数组常量的字符形式返回
说明  <参见Format>
参考  function SysUtils.FormatBuf;function System.Length;function System.SetLength
例子  <参见Format>
━━━━━━━━━━━━━━━━━━━━━
首部  function StrFmt(Buffer, Format: PChar; const Args: array of const): PChar; $[SysUtils.pas
功能  返回按指定方式格式化一个数组常量的字符指针形式
说明  如果Buffer和Format其中只要有一个为nil则返回nil
参考  function SysUtils.FormatBuf
例子  <参见Format>
━━━━━━━━━━━━━━━━━━━━━
首部  function StrLFmt(Buffer: PChar; MaxBufLen: Cardinal; Format: PChar; const Args: array of const): PChar; $[SysUtils.pas
功能  返回按指定方式和长度格式化一个数组常量的字符指针形式
说明  StrLFmt(vBuffer, 6, '%d|12345', [1024]) = '1024|1';
参考  function SysUtils.FormatBuf
例子  <参见Format>
━━━━━━━━━━━━━━━━━━━━━
首 部  function FormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas
功能  返回按指定方式格式化一个数组常量到缓冲区Buffer中
说明 
参考 
例子  <参见Format>
━━━━━━━━━━━━━━━━━━━━━
首部  function WideFormat(const Format: WideString; const Args: array of const): WideString; $[SysUtils.pas
功能  返回按指定方式格式化一个数组常量的多字节字符形式
说明 
参考  procedure SysUtils.WideFmtStr
例子  <参见Format>
━━━━━━━━━━━━━━━━━━━━━
首部  procedure WideFmtStr(var Result: WideString; const Format: WideString; const Args: array of const); $[SysUtils.pas
功能  按指定方式格式化一个数组常量的多字节字符形式返回
说明 
参考  function SysUtils.WideFormatBuf
例子  <参见Format>
━━━━━━━━━━━━━━━━━━━━━
首 部  function WideFormatBuf(var Buffer; BufLen: Cardinal; const Format; FmtLen: Cardinal; const Args: array of const): Cardinal; $[SysUtils.pas
功能  返回按指定方式格式化一个数组常量到缓冲区Buffer中
说明 
参考 
例子  <参见Format>
━━━━━━━━━━━━━━━━━━━━━
首部  function FloatToStr(Value: Extended): string; $[SysUtils.pas
功能  返回浮点数Value转换成字符串
说明  当浮点数大等于1E15将采用科学记数法
参考  function SysUtils.FloatToText
例子  Edit1.Text := FloatToStr(Now);
━━━━━━━━━━━━━━━━━━━━━
首部  function CurrToStr(Value: Currency): string; $[SysUtils.pas
功能  返回货币数Value转换成字符串
说明  货币数只保留四位小数
参考  function SysUtils.FloatToText
例子  Edit1.Text := CurrToStr(Now);
━━━━━━━━━━━━━━━━━━━━━
首部  function FloatToCurr(const Value: Extended): Currency; $[SysUtils.pas
功能  返回浮点数Value转换成货币数
说明  如果浮点数Value超出范围则将触发异常
参考  const SysUtiles.MinCurrency;const SysUtiles.MaxCurrency
例子  Edit1.Text := CurrToStr(FloatToCurr(Now));
━━━━━━━━━━━━━━━━━━━━━
首部  function FloatToStrF(Value: Extended; Format: TFloatFormat; Precision, Digits: Integer): string; $[SysUtils.pas
功能  返回浮点数以指定格式转换成字符串
说明  Precision指定精度;Digits指定小数宽度
参考  function SysUtils.FloatToText
例子
///Begin FloatToStrF
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Values['ffGeneral'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0),
    ffGeneral, SpinEdit1.Value, SpinEdit2.Value);
  Memo1.Lines.Values['ffExponent'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0),
    ffExponent, SpinEdit1.Value, SpinEdit2.Value);
  Memo1.Lines.Values['ffFixed'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0),
    ffFixed, SpinEdit1.Value, SpinEdit2.Value);
  Memo1.Lines.Values['ffNumber'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0),
    ffNumber, SpinEdit1.Value, SpinEdit2.Value);
  Memo1.Lines.Values['ffCurrency'] := FloatToStrF(StrToFloatDef(Edit1.Text, 0),
    ffCurrency, SpinEdit1.Value, SpinEdit2.Value);
end;
///End FloatToStrF
━━━━━━━━━━━━━━━━━━━━━
首部  function CurrToStrF(Value: Currency; Format: TFloatFormat; Digits: Integer): string; $[SysUtils.pas
功能  返回货币类型以指定格式转换成字符串
说明  Digits指定小数宽度
参考  function SysUtils.FloatToText
例子
///Begin CurrToStrF
procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Values['ffGeneral'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0),
    ffGeneral, SpinEdit1.Value);
  Memo1.Lines.Values['ffExponent'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0),
    ffExponent, SpinEdit1.Value);
  Memo1.Lines.Values['ffFixed'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0),
    ffFixed, SpinEdit1.Value);
  Memo1.Lines.Values['ffNumber'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0),
    ffNumber, SpinEdit1.Value);
  Memo1.Lines.Values['ffCurrency'] := CurrToStrF(StrToCurrDef(Edit1.Text, 0),
    ffCurrency, SpinEdit1.Value);
end;
///End CurrToStrF
━━━━━━━━━━━━━━━━━━━━━
首 部  function FloatToText(BufferArg: PChar; const Value; ValueType: TFloatValue; Format: TFloatFormat; Precision, Digits: Integer): Integer; $[SysUtils.pas
功能  返回浮点数以指定格式转换成指针字符串的内存大小
说明  Precision指定精度;Digits指定小数宽度
参考 
例子
///Begin FloatToText
procedure TForm1.Button1Click(Sender: TObject);
var
  vBuffer: array[0..255] of Char;
  E: Extended;
begin
  E := StrToFloatDef(Edit1.Text, 0);
  SpinEdit3.Value := FloatToText(vBuffer, E,
    fvExtended, ffNumber, SpinEdit1.Value, SpinEdit2.Value);
  Edit2.Text := Copy(vBuffer, 1, SpinEdit3.Value);
end;
///End FloatToText(
━━━━━━━━━━━━━━━━━━━━━
首部  function FormatFloat(const Format: string; Value: Extended): string; $[SysUtils.pas
功能  返回浮点数类型以指定格式字符串Format转换成字符串
说明  FormatFloat(',.00', 1234567890) = '1,234,567,890.00'
参考  function SysUtils.FloatToTextFmt
例子  Edit1.Text := FormatFloat(Edit2.Text, StrToFloatDef(Edit3.Text, 0));
━━━━━━━━━━━━━━━━━━━━━
首部  function FormatCurr(const Format: string; Value: Currency): string; $[SysUtils.pas
功能  返回货币类型以指定格式字符串Format转换成字符串
说明  FormatCurr(',.00', 1234567890) = '1,234,567,890.00'
参考  function SysUtils.FloatToTextFmt
例子  Edit1.Text := FormatCurr(Edit2.Text, StrToCurrDef(Edit3.Text, 0));
━━━━━━━━━━━━━━━━━━━━━
首部  function FloatToTextFmt(Buf: PChar; const Value; ValueType: TFloatValue; Format: PChar): Integer; $[SysUtils.pas
功能  返回浮点数以指定格式字符串Format转换成指针字符串的内存大小
说明  ValueType指定无类型参数Value的类型
参考 
例子
///Begin FloatToTextFmt
procedure TForm1.Button1Click(Sender: TObject);
var
  vBuffer: array[0..255] of Char;
  E: Extended;
begin
  E := StrToFloatDef(Edit1.Text, 0);
  SpinEdit1.Value := FloatToTextFmt(vBuffer, E,
    fvExtended, PChar(Edit2.Text));
  Edit3.Text := Copy(vBuffer, 1, SpinEdit1.Value);
end;
///End FloatToTextFmt
━━━━━━━━━━━━━━━━━━━━━
首部  function StrToFloat(const S: string): Extended; $[SysUtils.pas
功能  返回字符串S转换成浮点数
说明  字符串非浮点数表达时将引起异常
参考  function SysUtils.TextToFloat
例子  var E: Extended; begin E := StrToFloat(Edit1.Text); end;
━━━━━━━━━━━━━━━━━━━━━
首部  function StrToFloatDef(const S: string; const Default: Extended): Extended; $[SysUtils.pas
功能  返回字符串S转换成浮点数
说明  字符串非浮点数表达时则返回默认值Default
参考  function SysUtils.TextToFloat
例子  var E: Extended; begin E := StrToFloatDef(Edit1.Text, 0); end;
━━━━━━━━━━━━━━━━━━━━━
首部  function TryStrToFloat(const S: string; out Value: Extended): Boolean; overload; $[SysUtils.pas
首部  function TryStrToFloat(const S: string; out Value: Single): Boolean; overload; $[SysUtils.pas
首部  function TryStrToFloat(const S: string; out Value: Double): Boolean; overload; $[SysUtils.pas
功能  返回字符串S转换成浮点数Value是否成功
说明  字符串非浮点数表达时返回False并且Value将输出为不确定的值
参考  function SysUtils.TextToFloat
例子
///Begin TryStrToFloat
procedure TForm1.Button1Click(Sender: TObject);
var
  E: Extended;
begin
  CheckBox1.Checked := TryStrToFloat(Edit1.Text, E);
  Edit2.Text := FormatFloat('', E);
end;
///End TryStrToFloat
━━━━━━━━━━━━━━━━━━━━━
首部  function StrToCurr(const S: string): Currency; $[SysUtils.pas
功能  返回字符串S转换成货币数
说明  字符串非货币数表达时将引起异常
参考  function SysUtils.TextToFloat
例子  var C: Currency; begin C := StrToCurr(Edit1.Text); end;
━━━━━━━━━━━━━━━━━━━━━
首部  function StrToCurrDef(const S: string; const Default: Currency): Currency; $[SysUtils.pas
功能  返回字符串S转换成货币数
说明  字符串非货币数表达时则返回默认值Default
参考  function SysUtils.TextToFloat
例子  var C: Currency; begin C := StrToCurrDef(Edit1.Text, 0); end;
━━━━━━━━━━━━━━━━━━━━━
首部  function TryStrToCurr(const S: string; out Value: Currency): Boolean; $[SysUtils.pas
功能  返回字符串S转换成货币数Value是否成功
说明  字符串非货币数表达时返回False并且Value将输出为不确定的值
参考  function SysUtils.TextToFloat
例子
///Begin TryStrToCurr
procedure TForm1.Button1Click(Sender: TObject);
var
  C: Currency;
begin
  CheckBox1.Checked := TryStrToCurr(Edit1.Text, C);
  Edit2.Text := FormatCurr('', C);
end;
///End TryStrToCurr
━━━━━━━━━━━━━━━━━━━━━
首部  function TextToFloat(Buffer: PChar; var Value; ValueType: TFloatValue): Boolean; $[SysUtils.pas
功能  返回将指针字符串Buffer转换成无类型变量Value
说明  ValueType指定无类型参数Value的类型
参考 
例子
///Begin TextToFloat
procedure TForm1.Button1Click(Sender: TObject);
var
  E: Extended;
begin
  CheckBox1.Checked := TextToFloat(PChar(Edit1.Text), E,
    fvExtended);
  Edit2.Text := FormatFloat('', E);
end;
///End TextToFloat
━━━━━━━━━━━━━━━━━━━━━
首 部  procedure FloatToDecimal(var Result: TFloatRec; const Value; ValueType: TFloatValue; Precision, Decimals: Integer); $[SysUtils.pas
功能  将浮点数转换成浮点结构类型并返回到Result
说明  ValueType指定类型;Precision指定精度;Decimals指定小数
参考  type SysUtils.TFloatRec
例子 
━━━━━━━━━━━━━━━━━━━━━ 
首部  function DateTimeToTimeStamp(DateTime: TDateTime): TTimeStamp; $[SysUtils.pas
功能  返回日期时间类型转换成时间结构类型
说明 
参考  type SysUtils.TTimeStamp
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  function TimeStampToDateTime(const TimeStamp: TTimeStamp): TDateTime; $[SysUtils.pas
功能  返回时间结构类型转换成日期时间类型
说明 
参考  type SysUtils.TTimeStamp
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  function MSecsToTimeStamp(MSecs: Comp): TTimeStamp; $[SysUtils.pas
功能  返回微妙转换成时间结构类型
说明 
参考  type SysUtils.TTimeStamp
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  function TimeStampToMSecs(const TimeStamp: TTimeStamp): Comp; $[SysUtils.pas
功能  返回时间结构类型转换成微妙
说明 
参考  type SysUtils.TTimeStamp
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  function EncodeDate(Year, Month, Day: Word): TDateTime; $[SysUtils.pas
功能  返回合并年、月、日得到的日期
说明  当出现非法组合时将触发异常
参考  function SysUtils.TryEncodeDate
例子  Edit1.Text := DateToStr(EncodeDate(SpinEdit1.Value, SpinEdit2.Value, SpinEdit3.Value));
━━━━━━━━━━━━━━━━━━━━━
首部  function EncodeTime(Hour, Min, Sec, MSec: Word): TDateTime; $[SysUtils.pas
功能  返回合并时、分、秒、微秒得到的时间
说明  当出现非法组合时将触发异常
参考  function SysUtils.TryEncodeTime
例子  Edit1.Text := TimeToStr(EncodeTime(SpinEdit1.Value, SpinEdit2.Value, SpinEdit3.Value, SpinEdit4.Value));
━━━━━━━━━━━━━━━━━━━━━
首部  function TryEncodeDate(Year, Month, Day: Word; out Date: TDateTime): Boolean; $[SysUtils.pas
功能  返回合并年、月、日得到的日期是否成功
说明  当出现非法组合时将返回False并且Date输出为0
参考  function SysUtils.IsLeapYear
例子
///Begin TryEncodeDate
procedure TForm1.Button1Click(Sender: TObject);
var
  vDate: TDate;
begin
  CheckBox1.Checked := TryEncodeDate(SpinEdit1.Value, SpinEdit2.Value,
    SpinEdit3.Value, TDateTime(vDate));
  Edit1.Text := DateToStr(vDate);
end;
///End TryEncodeDate
━━━━━━━━━━━━━━━━━━━━━
首部  function TryEncodeTime(Hour, Min, Sec, MSec: Word; out Time: TDateTime): Boolean; $[SysUtils.pas
功能  返回合并时、分、秒、微秒得到的时间是否成功
说明  当出现非法组合时将返回False并且Time输出为0
参考  const SysUtils.MSecsPerDay
例子
///Begin TryEncodeTime
procedure TForm1.Button1Click(Sender: TObject);
var
  vTime: TTime;
begin
  CheckBox1.Checked := TryEncodeTime(SpinEdit1.Value, SpinEdit2.Value,
    SpinEdit3.Value, SpinEdit3.Value, TDateTime(vTime));
  Edit1.Text := TimeToStr(vTime);
end;
///End TryEncodeTime
━━━━━━━━━━━━━━━━━━━━━
首部  procedure DecodeDate(const DateTime: TDateTime; var Year, Month, Day: Word); $[SysUtils.pas
功能  分解日期为年、月、日
说明 
参考  function SysUtils.DecodeDateFully
例子
///Begin DecodeDate
procedure TForm1.Button1Click(Sender: TObject);
var
  Year, Month, Day: Word;
begin
  DecodeDate(Date, Year, Month, Day);
  SpinEdit1.Value := Year;
  SpinEdit2.Value := Month;
  SpinEdit3.Value := Day;
end;
///End DecodeDate
━━━━━━━━━━━━━━━━━━━━━
首部  function DecodeDateFully(const DateTime: TDateTime; var Year, Month, Day, DOW: Word): Boolean; $[SysUtils.pas
功能  分解日期为年、月、日、星期
说明  [DOW:Day Of Week]
参考  function SysUtils.DateTimeToTimeStamp
例子
///Begin DecodeDateFully
procedure TForm1.Button1Click(Sender: TObject);
var
  Year, Month, Day, DOW: Word;
begin
  DecodeDateFully(Date, Year, Month, Day, DOW);
  SpinEdit1.Value := Year;
  SpinEdit2.Value := Month;
  SpinEdit3.Value := Day;
  SpinEdit4.Value := DOW;
end;
///End DecodeDateFully
━━━━━━━━━━━━━━━━━━━━━
首部  function InternalDecodeDate(const DateTime: TDateTime; var Year, Month, Day, DOW: Word): Boolean; $[SysUtils.pas
功能 
说明  Kylix函数
参考  function SysUtils.DecodeDateFully
例子 
━━━━━━━━━━━━━━━━━━━━━ 
首部  procedure DecodeTime(const DateTime: TDateTime; var Hour, Min, Sec, MSec: Word); $[SysUtils.pas
功能  分解时间为时、分、秒、微妙
说明 
参考  function SysUtils.DateTimeToTimeStamp
例子
///Begin DecodeTime
procedure TForm1.Button1Click(Sender: TObject);
var
  Hour, Min, Sec, MSec: Word;
begin
  DecodeTime(Time, Hour, Min, Sec, MSec);
  SpinEdit1.Value := Hour;
  SpinEdit2.Value := Min;
  SpinEdit3.Value := Sec;
  SpinEdit4.Value := MSec;
end;
///End DecodeTime
━━━━━━━━━━━━━━━━━━━━━
首部  procedure DateTimeToSystemTime(const DateTime: TDateTime; var SystemTime: TSystemTime); $[SysUtils.pas
功能  返回日期时间类型转换成系统时间类型
说明 
参考  function SysUtils.DecodeDateFully;function SysUtils.DecodeTime
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  function SystemTimeToDateTime(const SystemTime: TSystemTime): TDateTime; $[SysUtils.pas
功能  返回系统时间类型转换成日期时间类型
说明 
参考  function SysUtils.EncodeDate;function SysUtils.EncodeTime
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  function DayOfWeek(const DateTime: TDateTime): Word; $[SysUtils.pas
功能  返回日期时间DateTime所在的星期
说明  1(星期天),2(星期一),3(星期二),4(星期三),5(星期四),6(星期五),7(星期六)
参考  function SysUtils.DateTimeToTimeStamp
例子 
///Begin DayOfWeek
procedure TForm1.Button1Click(Sender: TObject);
const
  cWeekCn: array[1..7] of string =
('星期天', '星期一', '星期二', '星期三', '星期四', '星期五', '星期六');
begin
  Edit1.Text := cWeekCn[DayOfWeek(Now)];
end;
///End DayOfWeek
━━━━━━━━━━━━━━━━━━━━━
首部  function Date: TDateTime; $[SysUtils.pas
功能  返回当前日期
说明  Date - Int(Date)=0;
参考  function SysUtils.DateTimeToString
例子  Edit1.Text := DateToStr(Date);
━━━━━━━━━━━━━━━━━━━━━
首部  function Time: TDateTime; $[SysUtils.pas
功能  返回当前时间
说明  Time - Frac(Time)=0;
参考  function Windows.GetLocalTime;function SysUtils.EncodeTime
例子  Edit1.Text := TimeToStr(Time);
━━━━━━━━━━━━━━━━━━━━━
首部  function Now: TDateTime; $[SysUtils.pas
功能  返回当前日期时间
说明  Date + Time=Now
参考  function Windows.GetLocalTime;function SysUtils.EncodeDate;function SysUtils.EncodeTime
例子  Edit1.Text := DateTimeToStr(Now);
━━━━━━━━━━━━━━━━━━━━━
首部  function CurrentYear: Word; $[SysUtils.pas
功能  返回当前年份
说明 
参考  function Windows.GetLocalTime
例子  SpinEdit1.Value := CurrentYear;
━━━━━━━━━━━━━━━━━━━━━
首部  function IncMonth(const DateTime: TDateTime; NumberOfMonths: Integer = 1): TDateTime; $[SysUtils.pas
功能  返回增加月份给日期
说明  NumberOfMonths为负数时则减月份
参考  procedure SysUtils.DecodeDate;procedure SysUtils.IncAMonth;function SysUtils.EncodeDate;procedure SysUtils.ReplaceTime
例子  DateTimePicker1.Date := IncMonth(Date, SpinEdit1.Value);
━━━━━━━━━━━━━━━━━━━━━ 
首部  procedure IncAMonth(var Year, Month, Day: Word; NumberOfMonths: Integer = 1); $[SysUtils.pas
功能  返回增加月份给年月日
说明  NumberOfMonths为负数时则减月份
参考  procedure System.Inc
例子
///Begin IncAMonth
procedure TForm1.Button1Click(Sender: TObject);
var
  vYear, vMonth, vDay: Word;
begin
  DecodeDate(Date, vYear, vMonth, vDay);
  IncAMonth(vYear, vMonth, vDay, SpinEdit1.Value);
  DateTimePicker1.Date := EncodeDate(vYear, vMonth, vDay);
end;
///End IncAMonth
━━━━━━━━━━━━━━━━━━━━━
首部  procedure ReplaceTime(var DateTime: TDateTime; const NewTime: TDateTime); $[SysUtils.pas
功能  用时间NewTime替换日期时间DateTime的时间部分
说明  Int(DateTime) + Frac(NewTime)
参考  function System.Trunc;function System.Abs;function System.Frac
例子
///Begin ReplaceTime
procedure TForm1.Button1Click(Sender: TObject);
var
  vDateTime: TDateTime;
begin
  vDateTime := Now;
  ReplaceTime(vDateTime, DateTimePicker1.Time);
  Edit1.Text := DateTimeToStr(vDateTime);
end;
///End ReplaceTime
━━━━━━━━━━━━━━━━━━━━━
首部  procedure ReplaceDate(var DateTime: TDateTime; const NewDate: TDateTime); $[SysUtils.pas
功能  用日期NewDate替换日期时间DateTime的日期部分
说明  Int(NewTime) + Frac(DateTime)
参考  procedure SysUtils.ReplaceTime
例子
///Begin ReplaceDate
procedure TForm1.Button1Click(Sender: TObject);
var
  vDateTime: TDateTime;
begin
  vDateTime := Now;
  ReplaceDate(vDateTime, DateTimePicker1.Date);
  Edit1.Text := DateTimeToStr(vDateTime);
end;
///End ReplaceDate
━━━━━━━━━━━━━━━━━━━━━
首部  function IsLeapYear(Year: Word): Boolean; $[SysUtils.pas
功能  返回年份Year是否是闰年
说明  (Year mod 4 = 0) and ((Year mod 100 <> 0) or (Year mod 400 = 0))
参考 
例子  CheckBox1.Checked := IsLeapYear(SpinEdit1.Value);
━━━━━━━━━━━━━━━━━━━━━
首部  function DateToStr(const DateTime: TDateTime): string; $[SysUtils.pas
功能  返回日期DateTime转换成字符串
说明  转换格式由系统变量ShortDateFormat控制
参考  function SysUtils.DateTimeToString;var SysUtils.ShortDateFormat
例子  Edit1.Text := DateToStr(Date);
━━━━━━━━━━━━━━━━━━━━━
首部  function TimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas
功能  返回时间DateTime转换成字符串
说明  转换格式由系统变量LongTimeFormat控制
参考  function SysUtils.DateTimeToString;var SysUtils.LongTimeFormat
例子  Edit1.Text := TimeToStr(Date);
━━━━━━━━━━━━━━━━━━━━━
首部  function DateTimeToStr(const DateTime: TDateTime): string; $[SysUtils.pas
功能  返回日期时间DateTime转换成字符串
说明  转换格式由系统变量ShortDateFormat和LongTimeFormat控制
参考  function SysUtils.DateTimeToString
例子  Edit1.Text := DateTimeToStr(Now);
━━━━━━━━━━━━━━━━━━━━━
首部  function StrToDate(const S: string): TDateTime; $[SysUtils.pas
功能  返回字符串S转换成日期
说明  字符非日期表达时将引起异常
参考  function SysUtils.TryStrToDate
例子  DateTimePicker1.Date := StrToDate(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function StrToDateDef(const S: string; const Default: TDateTime): TDateTime; $[SysUtils.pas
功能  返回字符串S转换成日期
说明  字符非日期表达时则返回默认值Default
参考  function SysUtils.TryStrToDate
例子  DateTimePicker1.Date := StrToDateDef(Edit1.Text, Date);
━━━━━━━━━━━━━━━━━━━━━
首部  function TryStrToDate(const S: string; out Value: TDateTime): Boolean; $[SysUtils.pas
功能  返回字符串S转换成日期Value是否成功
说明  字符非日期表达时返回False并且Value将输出为0
参考 
例子
///Begin TryStrToDate
procedure TForm1.Button1Click(Sender: TObject);
var
  vDateTime: TDateTime;
begin
  CheckBox1.Checked := TryStrToDate(Edit1.Text, vDateTime);
  DateTimePicker1.Date := vDateTime;
end;
///End TryStrToDate
━━━━━━━━━━━━━━━━━━━━━
首部  function StrToTime(const S: string): TDateTime; $[SysUtils.pas
功能  返回字符串S转换成时间
说明  字符非时间表达时将引起异常
参考  function SysUtils.TryStrToTime
例子  DateTimePicker1.Time := StrToTime(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function StrToTimeDef(const S: string; const Default: TDateTime): TDateTime; $[SysUtils.pas
功能  返回字符串S转换成时间
说明  字符非时间表达时则返回默认值Default
参考  function SysUtils.TryStrToTime
例子  DateTimePicker1.Time := StrToTimeDef(Edit1.Text, Time);
━━━━━━━━━━━━━━━━━━━━━
首部  function TryStrToTime(const S: string; out Value: TDateTime): Boolean; $[SysUtils.pas
功能  返回字符串S转换成时间Value是否成功
说明  字符非时间表达时返回False并且Value将输出为0
参考 
例子
///Begin TryStrToTime
procedure TForm1.Button1Click(Sender: TObject);
var
  vDateTime: TDateTime;
begin
  CheckBox1.Checked := TryStrToTime(Edit1.Text, vDateTime);
  DateTimePicker1.Time := vDateTime;
end;
///End TryStrToTime
━━━━━━━━━━━━━━━━━━━━━
首部  function StrToDateTime(const S: string): TDateTime; $[SysUtils.pas
功能  返回字符串S转换成日期时间
说明  字符非日期时间表达时将引起异常
参考  function SysUtils.TryStrToDateTime
例子  Edit1.Text := DateTimeToStr(StrToDateTime(Edit2.Text));
━━━━━━━━━━━━━━━━━━━━━
首部  function StrToDateTimeDef(const S: string; const Default: TDateTime): TDateTime; $[SysUtils.pas
功能  返回字符串S转换成日期时间
说明  字符非日期时间表达时则返回默认值Default
参考  function SysUtils.TryStrToDateTime
例子  Edit1.Text := DateTimeToStr(StrToDateTimeDef(Edit2.Text, Now));
━━━━━━━━━━━━━━━━━━━━━
首部  function TryStrToDateTime(const S: string; out Value: TDateTime): Boolean; $[SysUtils.pas
功能  返回字符串S转换成日期时间Value是否成功
说明  字符非日期时间表达时返回False并且Value将输出为0
参考 
例子
///Begin TryStrToDateTime
procedure TForm1.Button1Click(Sender: TObject);
var
  vDateTime: TDateTime;
begin
  CheckBox1.Checked := TryStrToDateTime(Edit1.Text, vDateTime);
  Edit2.Text := DateTimeToStr(vDateTime);
end;
///End TryStrToDateTime
━━━━━━━━━━━━━━━━━━━━━
首部  function FormatDateTime(const Format: string; DateTime: TDateTime): string; $[SysUtils.pas
功能  返回用指定的格式Format来格式化日期时间DateTime
说明  FormatDateTime('YYYY"年"MM"月"DD"日"', StrToDate('2002-03-09')) = '2002年03月09日'
参考  function SysUtils.DateTimeToString
例子  Edit2.Text := FormatDateTime(Edit1.Text, Now);
━━━━━━━━━━━━━━━━━━━━━
首部  procedure DateTimeToString(var Result: string; const Format: string; DateTime: TDateTime); $[SysUtils.pas
功能  用指定的格式Format来格式化日期时间DateTime并返回到字符串Result中
说明  <参见FormatDateTime>
参考  function System.SetString
例子  <参见FormatDateTime>
━━━━━━━━━━━━━━━━━━━━━
首部  function FloatToDateTime(const Value: Extended): TDateTime; $[SysUtils.pas
功能  返回浮点数转换成日期时间类型
说明  如果浮点数超出范围将触发异常
参考  function System.Int
例子  Edit2.Text := DateTimeToStr(FloatToDateTime(StrToFloatDef(Edit1.Text, 0)));
━━━━━━━━━━━━━━━━━━━━━
首部  function SysErrorMessage(ErrorCode: Integer): string; $[SysUtils.pas
功能  返回系统中错误代码所对应的信息
说明  此函可以有助于已习惯Windows编程的用户使用
参考  function Windows.FormatMessage;function System.SetString
例子  Edit1.Text := SysErrorMessage(SpinEdit1.Value);
━━━━━━━━━━━━━━━━━━━━━
首部  function GetLocaleStr(Locale, LocaleType: Integer; const Default: string): string; platform; $[SysUtils.pas
功能  返回当前系统指定参数的字符串值
说明  GetLocaleStr(GetThreadLocale, LOCALE_SLANGUAGE, '') = '中文(中国)'
参考  function Windows.GetLocaleInfo
例子  Edit1.Text := GetLocaleStr(GetThreadLocale, SpinEdit1.Value, ' ');
━━━━━━━━━━━━━━━━━━━━━
首部  function GetLocaleChar(Locale, LocaleType: Integer; Default: Char): Char; platform; $[SysUtils.pas
功能  返回当前系统指定参数的字符值
说明  GetLocaleChar(GetThreadLocale, LOCALE_STHOUSAND, #0) = ','
参考  function Windows.GetLocaleInfo
例子  Edit1.Text := GetLocaleChar(GetThreadLocale, LOCALE_SLANGUAGE, #0);
━━━━━━━━━━━━━━━━━━━━━
首部  procedure GetFormatSettings; $[SysUtils.pas
功能  恢复系统参数设置
说明  日期时间格式等
参考  function Windows.GetThreadLocale;function Windows.GetLocaleStr
例子
///Begin GetFormatSettings
procedure TForm1.Button1Click(Sender: TObject);
begin
  ShortDateFormat := 'YYYY"年"MM"月"DD"日"';
  ShowMessage(DateToStr(Date));
  GetFormatSettings;
  ShowMessage(DateToStr(Date));
end;
///End GetFormatSettings
━━━━━━━━━━━━━━━━━━━━━


 

相思的泪打湿无眼的枕，相爱的情折磨失意的魂；相恋的人徘徊离别的街，相牵的人感受分离的苦 
 
2005-7-26 10:54 #3
              
 
 
真诚的海 (海海)
自成一派

与海有关的都归偶管

 

     
UID 140532
精华 10
积分 487
帖子 12774
阅读权限 60
注册 2004-12-1
来自 N次元空间
状态 在线  首部  function InquireSignal(RtlSigNum: Integer): TSignalState; $[SysUtils.pas
功能 
说明  Kylix函数
参考 
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  procedure AbandonSignalHandler(RtlSigNum: Integer); $[SysUtils.pas
功能 
说明  Kylix函数
参考 
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  procedure HookSignal(RtlSigNum: Integer); $[SysUtils.pas
功能 
说明  Kylix函数
参考 
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  procedure UnhookSignal(RtlSigNum: Integer; OnlyIfHooked: Boolean = True); $[SysUtils.pas
功能 
说明  Kylix函数
参考 
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  procedure HookOSExceptions; $[SysUtils.pas
功能 
说明  Kylix函数
参考 
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  function MapSignal(SigNum: Integer; Context: PSigContext): LongWord; $[SysUtils.pas
功能 
说明  Kylix函数
参考 
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  procedure SignalConverter(ExceptionEIP: LongWord; FaultAddr: LongWord; ErrorCode: LongWord); $[SysUtils.pas
功能 
说明  Kylix函数
参考 
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  procedure SetSafeCallExceptionMsg(Msg: String); $[SysUtils.pas
功能 
说明  Kylix函数
参考 
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  procedure SetSafeCallExceptionAddr(Addr: Pointer); $[SysUtils.pas
功能 
说明  Kylix函数
参考 
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  function GetSafeCallExceptionMsg: String; $[SysUtils.pas
功能 
说明  Kylix函数
参考 
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  function GetSafeCallExceptionAddr: Pointer; $[SysUtils.pas
功能 
说明  Kylix函数
参考 
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  function LoadLibrary(ModuleName: PChar): HMODULE; $[SysUtils.pas
功能 
说明  Kylix函数
参考 
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  function FreeLibrary(Module: HMODULE): LongBool; $[SysUtils.pas
功能 
说明  Kylix函数
参考 
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  function GetProcAddress(Module: HMODULE; Proc: PChar): Pointer; $[SysUtils.pas
功能 
说明  Kylix函数
参考 
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  function GetModuleHandle(ModuleName: PChar): HMODULE; $[SysUtils.pas
功能 
说明  Kylix函数
参考 
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  function GetPackageModuleHandle(PackageName: PChar): HMODULE; $[SysUtils.pas
功能 
说明  Kylix函数
参考 
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  procedure Sleep(milliseconds: Cardinal);{$IFDEF MSWINDOWS} stdcall; {$ENDIF} $[SysUtils.pas
功能  让程序休眠一段时间
说明  以微米为单位
参考 
例子  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
功能  触发内存益出异常
说明 
参考  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

  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
例子 
━━━━━━━━━━━━━━━━━━━━━ 
首部  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转换成字符串
说明 
参考  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';
参考 
例子  CheckBox1.Checked := IsEqualGUID(StringToGUID(Edit1.Text), StringToGUID(Edit2.Text));
━━━━━━━━━━━━━━━━━━━━━ 
首部  function LoadPackage(const Name: string): HMODULE; $[SysUtils.pas
功能  返回载入包资源
说明 
参考  function SysUtils.SafeLoadLibrary;function SysUtils.InitializePackage;function Windows.FreeLibrary
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  procedure UnloadPackage(Module: HMODULE); $[SysUtils.pas
功能  取消载入包资源
说明 
参考  function SysUtils.FinalizePackage;function Windows.FreeLibrary
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  procedure GetPackageInfo(Module: HMODULE; Param: Pointer; var Flags: Integer; InfoProc: TPackageInfoProc); $[SysUtils.pas
功能  返回包的信息
说明 
参考 
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  function GetPackageDescription(ModuleName: PChar): string; $[SysUtils.pas
功能  返回包的描述
说明 
参考  function System.LoadResourceModule;function Windows.LoadLibraryEx
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  procedure InitializePackage(Module: HMODULE); $[SysUtils.pas
功能  初始化包
说明 
参考  function Windos.GetProcAddress
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  procedure FinalizePackage(Module: HMODULE); $[SysUtils.pas
功能  终止化包
说明 
参考  function Windos.GetProcAddress
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  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
功能 
说明 
参考 
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  procedure RCS; $[SysUtils.pas
功能 
说明 
参考 
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  procedure RPR; $[SysUtils.pas
功能 
说明 
参考 
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  function SafeLoadLibrary(const Filename: string; ErrorMode: UINT = SEM_NOOPENFILEERRORBOX): HMODULE; $[SysUtils.pas
功能  返回安全方式载入动态连接库资源
说明  <参见LoadLibrary>
参考  function Windows.LoadLibrary
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  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
功能 
说明  Kylix函数
参考 
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  function InterlockedDecrement(var I: Integer): Integer; $[SysUtils.pas
功能 
说明  Kylix函数
参考 
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  function InterlockedExchange(var A: Integer; B: Integer): Integer; $[SysUtils.pas
功能 
说明  Kylix函数
参考 
例子 
━━━━━━━━━━━━━━━━━━━━━
首部  function InterlockedExchangeAdd(var A: Integer; B: Integer): Integer; $[SysUtils.pas
功能 
说明  Kylix函数
参考 
例子 
 

cai101_2
关注
  • 0
    点赞
  • 踩
  • 1
    收藏
    觉得还不错? 一键收藏
  • 1
    评论
Delphi7函数大全
08-15
Delphi7函数大全 内含常见函数的调用以及使用方法
Delphi7常用函数速查手册
03-28
一套完整的Delphi常用函数，对函数的入参和出参都有详尽的解释。
delphi内部函数大全
一叶扁舟泊IT
09-27 4589
名称                        类型         说明----------------------------------------------------------------------------------Abort                       函数         引起放弃的意外处理 Abs                         函数
delphi 7 函数简介
随雨
01-04 1136
                   名称 　 类型 　　　说明                    --------------------------------------------------------------------------                    abort 函数 引起放弃的意外处理                    abs 函数 绝对值函数   
Delphi7文件操作常用函数二
kimifdw的专栏
02-22 3073
1.ForceDirectories、GetCurrentDir、GetDir、SetCurrentDir ForceDirectories function ForceDirectories(Dir: string): Boolean;：在指定的目录中创建一个目录。其中参数Dir为创建目录的全名，必须包括上级目录。如创建成功则返回true；否则返回false。 procedure TFor
Delphi函数参考大全
07-23
资源名称：Delphi 函数参考大全资源截图： 资源太大，传百度网盘了，链接在附件中，有需要的同学自取。
delphi函数大全
10-14
Delphi函数大全是一份全面介绍Delphi编程语言中各种函数的资源，对于无论是初学者还是经验丰富的开发者来说，都是极具价值的学习和参考材料。Delphi，由Borland公司（后被Embarcadero Technologies收购）开发，是一...
Delphi 7.0常用函数速查手册.rar
02-27
Delphi 7.0常用函数速查手册.rarDelphi 7.0常用函数速查手册.rar
Delphi7常用函数自己写的
01-18
Delphi7常见函数，自己改写的或者总结的，引用到Delphi中即可使用。
Delphi 7_0常用函数速查手册
12-07
Delphi 7_0常用函数速查手册,提供Delphi常用函数速查
delphi函数详解.rar
04-10
名称 类型 说明 Delphi中常用的函数 A部 Abort 函数 引起放弃的意外处理 Abs 函数 绝对值函数 AddExitProc 函数 将一过程添加到运行时库的结束过程表中 Addr 函数 返回指定对象的地址 AdjustLineBreaks 函数 将给定字符串的行分隔符调整为CR/LF序列 Align 属性 使控件位于窗口某部分 Alignment 属性 控件标签的文字位置 AllocMem 函数 在堆栈上分配给定大小的块 AllowGrayed 属性 允许一个灰度选择 AnsiCompareStr 函数 比较字符串（区分大小写） AnsiCompareText 函数 比较字符串（不区分大小写） AnsiLowerCase 函数 将字符转换为小写 AnsiUpperCase 函数 将字符转换为大写 Append 函数 以附加的方式打开已有的文件 ArcTan 函数 余切函数 AssignFile 函数 给文件变量赋一外部文件名
《Delphi6组件大全》.rar
01-14
《Delphi6组件大全》.rar 《Delphi6组件大全》.rar
DELPHI中操作字符串函数大全
01-07
DELPHI中操作字符串函数大全DELPHI中操作字符串函数大全DELPHI中操作字符串函数大全DELPHI中操作字符串函数大全
040_《Delphi函数参考大全》
敦格
12-06 6308
本书详细地介绍了Delphi函数及其应用，是一本全面系统的Delphi函数参考大全。本书通过大量的示例、典型应用帮助读者透彻理解Delphi函数及其应用。全书共分28章，包括字符串处理函数、数学计算函数、序数函数、三角函数、统计函数、金融函数、随机数函数、单位换算函数、日期函数、类型转换函数、异常处理函数、文件处理函数、图形计算与处理函数、格式转换函数、对话框函数、打印机函数、Com实用函数、窗口控制实用程序函数、菜单函数、向后兼容例程、行为支持函数与过程、Windows剪切板函数、流程控制、指针相关函数、
SysUtils.LastDelimiter - 判断一个字符串在另一个字符串中最后出现的位置
weixin_34092455的博客
05-28 68
该函数不区分大小写, 举例:--------------------------------------------------------------------------------var s: string; i: Integer;begin s := 'CodeDear Delphi'; i := LastDelimiter('Del',s); ShowMessage(Int...
Delphi6函数大全4-SysUtils.pas
最新发布
01-01 913
Delphi6函数大全4-SysUtils.pas
使用delphi获得字符内码
HuBolg的专栏
05-21 1686
<br />转帖：http://apps.hi.baidu.com/share/detail/32305204<br /> <br />那么我就给你介绍一下我总结出来的GB字符识别方法（是的，就是你想要的那种把半角字符、全角符号和汉字区别开来的方法）吧。在此之前希望你有心里准备，篇幅可能会稍微长一些，因为涉及到的内容比较多。不论你之前看过什么样的资料，并对此有多大程度的了解，如果你希望能非常专业地解决这个问题（嗯哼，就像Win32 API或VCL做的那样专业），那就要有一定的耐心从最基础的地方看起。对了，在
Delphi函数大全：核心详解与应用实例
"这篇文档详细介绍了Delphi编程中的各种函数及其应用，涵盖了从A到D的常见函数，包括Abort、Abs、AddExitProc、Addr等多个功能各异的函数，以及相关的属性如Alignment、AutoSize等。此外，还涉及到了文件操作、字符...
评论 1
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值