Delphi6函数大全(2)

　　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; 软件开发网 www.mscto.com
　　////////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