delphi6函数大全2.txt

Delphi6函数大全

(*//
标题:<<Delphi6函数大全-SysUtils.pas>>
格式:text
大小:92671
制作:Zswang
日期:2002-01-25
//*)

首部  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部分取代
参考  <NULL>
例子  
////////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已经不建议使用
参考  <NULL>
例子  
////////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<S2返回值<0;当S1=S2返回值=0;区分大小写
参考  <NULL>
例子  SpinEdit1.Value := CompareStr(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━  
首部  function CompareMem(P1, P2: Pointer; Length: Integer): Boolean; assembler; $[SysUtils.pas
功能  返回比较两个内存指针
说明  CompareMem(PChar('12a'), PChar('12c'), 2)=True;CompareMem(PChar('12a'), PChar('12c'), 3)=False
参考  <NULL>
例子  CheckBox1.Checked := CompareMem(Self, Form1, 8);
━━━━━━━━━━━━━━━━━━━━━  
首部  function CompareText(const S1, S2: string): Integer; $[SysUtils.pas
功能  返回比较两个字符串
说明  不区分大小写
参考  <NULL>
例子  SpinEdit1.Value := CompareText(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━  
首部  function SameText(const S1, S2: string): Boolean; $[SysUtils.pas
功能  返回两个字符串是否相等
说明  不区分大小写
参考  <NULL>
例子  CheckBox1.Checked := SameText(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━  
首部  function AnsiUpperCase(const S: string): string; $[SysUtils.pas
功能  返回字符串S的大写形式
说明  ANSI(American National Standards Institute)美国国家标准协会;非小写的字符不变
参考  function Windows.CharUpperBuff
例子  Edit2.Text := AnsiUpperCase(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function AnsiLowerCase(const S: string): string; $[SysUtils.pas
功能  返回字符串S的小写形式
说明  非大写字符不处理
参考  function Windows.CharLowerBuff
例子  Edit2.Text := AnsiLowerCase(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function AnsiCompareStr(const S1, S2: string): Integer; $[SysUtils.pas
功能  反回比较两个字符串
说明  当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写
参考  function Windows.CompareString
例子  SpinEdit1.Value := AnsiCompareStr(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function AnsiSameStr(const S1, S2: string): Boolean; $[SysUtils.pas
功能  返回两个字符串是否相等
说明  区分大小写
参考  function SysUtils.AnsiCompareStr
例子  CheckBox1.Checked := AnsiSameStr(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function AnsiCompareText(const S1, S2: string): Integer; $[SysUtils.pas
功能  反回比较两个字符串
说明  当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写
参考  function Windows.CompareString
例子  SpinEdit1.Value := AnsiCompareText(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function AnsiSameText(const S1, S2: string): Boolean; $[SysUtils.pas
功能  返回两个字符串是否相等
说明  不区分大小写
参考  function SysUtils.AnsiCompareText
例子  CheckBox1.Checked := AnsiSameText(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function AnsiStrComp(S1, S2: PChar): Integer; $[SysUtils.pas
功能  返回比较两个指针字符串
说明  当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写
参考  function System.CompareString
例子  SpinEdit1.Value := AnsiStrComp(PChar(Edit1.Text), PChar(Edit2.Text))
━━━━━━━━━━━━━━━━━━━━━
首部  function AnsiStrIComp(S1, S2: PChar): Integer; $[SysUtils.pas
功能  返回比较两个指针字符串
说明  当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;Ignore(忽略)
参考  function Windows.CompareString
例子  SpinEdit1.Value := AnsiStrIComp(PChar(Edit1.Text), PChar(Edit2.Text))
━━━━━━━━━━━━━━━━━━━━━
首部  function AnsiStrLComp(S1, S2: PChar; MaxLen: Cardinal): Integer; $[SysUtils.pas
功能  返回比较两个指针字符串指定长度
说明  当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度)
参考  function Windows.CompareString
例子  SpinEdit1.Value := AnsiStrLComp(PChar(Edit1.Text), PChar(Edit2.Text), SpinEdit2.Value)
━━━━━━━━━━━━━━━━━━━━━
首部  function AnsiStrLIComp(S1, S2: PChar; MaxLen: Cardinal): Integer; $[SysUtils.pas
功能  返回比较两个指针字符串指定长度
说明  当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写
参考  function Windows.CompareString
例子  SpinEdit1.Value := AnsiStrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), SpinEdit2.Value)
━━━━━━━━━━━━━━━━━━━━━
首部  function AnsiStrLower(Str: PChar): PChar; $[SysUtils.pas
功能  返回指针字符串小写形式
说明  非大写字符不处理
参考  function Windows.CharLower
例子  Edit2.Text := AnsiStrLower(PChar(Edit1.Text));
━━━━━━━━━━━━━━━━━━━━━
首部  function AnsiStrUpper(Str: PChar): PChar; $[SysUtils.pas
功能  返回指针字符串大写形式
说明  非小写字符不处理
参考  function Windows.CharUpper
例子  Edit2.Text := AnsiStrUpper(PChar(Edit1.Text));
━━━━━━━━━━━━━━━━━━━━━
首部  function AnsiLastChar(const S: string): PChar; $[SysUtils.pas
功能  返回字符串S的最后一个指针字符
说明  当字符串S为空串则返回空指针
参考  function SysUtils.ByteType
例子  Edit2.Text := AnsiLastChar(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function AnsiStrLastChar(P: PChar): PChar; $[SysUtils.pas
功能  返回指针字符串P的最后一个指针字符
说明  当字符串P为空空指针则返回空指针
参考  function SysUtils.ByteType
例子  Edit2.Text := AnsiLastChar(PChar(Edit1.Text));
━━━━━━━━━━━━━━━━━━━━━  
首部  function WideUpperCase(const S: WideString): WideString; $[SysUtils.pas
功能  返回双字节字符串的大写形式
说明  WideChar双字节字符
参考  function Windows.CharUpperBuffW
例子  Edit2.Text := WideUpperCase(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function WideLowerCase(const S: WideString): WideString; $[SysUtils.pas
功能  返回双字节字符串的小写形式
说明  我怎么就测试不出来呢
参考  function Windows.CharLowerBuffW
例子  Edit2.Text := WideLowerCase(Edit1.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function WideCompareStr(const S1, S2: WideString): Integer; $[SysUtils.pas
功能  返回比较两个双字节字符串
说明  当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写
参考  function Windows.CompareStringW
例子  SpinEdit1.Value := WideCompareStr(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━  
首部  function WideSameStr(const S1, S2: WideString): Boolean; $[SysUtils.pas
功能  返回两个双字节字符串是否相同
说明  区分大小写
参考  function SysUtils.WideCompareStr
例子  CheckBox1.Checked := WideSameStr(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function WideCompareText(const S1, S2: WideString): Integer; $[SysUtils.pas
功能  返回比较两个双字节字符串
说明  当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写
参考  function Windows.CompareStringW
例子  SpinEdit1.Value := WideCompareText(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━
首部  function WideSameText(const S1, S2: WideString): Boolean; $[SysUtils.pas
功能  返回两个双字节字符串是否相同
说明  不区分大小写
参考  function SysUtils.WideCompareText
例子  CheckBox1.Checked := WideSameText(Edit1.Text, Edit2.Text);
━━━━━━━━━━━━━━━━━━━━━  
首部  function Trim(const S: string): string; overload; $[SysUtils.pas