Delphi6函数大全2-SysUtils.pas

　　首部 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　　参考
　　例子 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
　　参考
　　例子 CheckBox1.Checked := CompareMem(Self, Form1, 8);
　　━━━━━━━━━━━━━━━━━━━━━
　　首部 function CompareText(const S1, S2: string): Integer; $[SysUtils.pas
　　功能 返回比较两个字符串
　　说明 不区分大小写
　　参考
　　例子 SpinEdit1.Value := CompareText(Edit1.Text, Edit2.Text);
　　━━━━━━━━━━━━━━━━━━━━━
　　首部 function SameText(const S1, S2: string): Boolean; $[SysUtils.pas
　　功能 返回两个字符串是否相等
　　说明 不区分大小写
　　参考
　　例子 CheckBox1.Checked := SameText(Edit1.Text, Edit2.Text);
　　━━━━━━━━━━━━━━━━━━━━━

 1/2    1 2 下一页 尾页