delphi6函数大全2.txt

Delphi6函数大全

说明  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应已经分配足够的空间非则将触发异常
参考  <NULL>
例子
///////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中的结尾
说明  可以连接指针字符串
参考  <NULL>
例子
///////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应已经分配足够的空间非则将触发异常
参考  <NULL>
例子
///////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的长度
参考  <NULL>
例子
///////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<S2返回值<0;当S1=S2返回值=0;区分大小写;[注意]返回第一个出现不同字符的差异
参考  <NULL>
例子  SpinEdit1.Value := StrComp(PChar(Edit1.Text), PChar(Edit2.Text));
━━━━━━━━━━━━━━━━━━━━━
首部  function StrIComp(const Str1, Str2: PChar): Integer; $[SysUtils.pas
功能  返回比较两个指针字符串
说明  当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异
参考  <NULL>
例子  SpinEdit1.Value := StrIComp(PChar(Edit1.Text), PChar(Edit2.Text));
━━━━━━━━━━━━━━━━━━━━━
首部  function StrLComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; $[SysUtils.pas
功能  返回比较两个指针字符串指定长度
说明  当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;区分大小写;Length(长度);[注意]返回第一个出现不同字符的差异
参考  <NULL>
例子  SpinEdit1.Value := StrLComp(PChar(Edit1.Text), PChar(Edit2.Text), SpinEdit2.Value)
━━━━━━━━━━━━━━━━━━━━━
首部  function StrLIComp(const Str1, Str2: PChar; MaxLen: Cardinal): Integer; $[SysUtils.pas
功能  返回比较两个指针字符串指定长度
说明  当S1>S2返回值>0;当S1<S2返回值<0;当S1=S2返回值=0;不区分大小写;[注意]返回第一个出现不同字符的差异
参考  <NULL>
例子  SpinEdit1.Value := StrLIComp(PChar(Edit1.Text), PChar(Edit2.Text), SpinEdit2.Value)
━━━━━━━━━━━━━━━━━━━━━
首部  function StrScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas
功能  返回在指针字符串Str搜索字符Chr第一个出现的地址
说明  没有找到则返回空指针
参考  <NULL>
例子  Edit2.Text := StrScan(PChar(Edit1.Text), '*');
━━━━━━━━━━━━━━━━━━━━━
首部  function StrRScan(const Str: PChar; Chr: Char): PChar; $[SysUtils.pas
功能  返回在指针字符串Str搜索字符Chr最后一个出现的地址
说明  没有找到则返回空指针
参考  <NULL>
例子  Edit2.Text := StrRScan(PChar(Edit1.Text), '*');
━━━━━━━━━━━━━━━━━━━━━
首部  function StrPos(const Str1, Str2: PChar): PChar; $[SysUtils.pas
功能  返回指针字符串Str2在Str1中第一个出现的地址
说明  没有找到则返回空指针;StrPos('12345', '3') = '345'
参考  <NULL>
例子  Edit3.Text := StrPos(PChar(Edit1.Text), PChar(Edit2.Text));
━━━━━━━━━━━━━━━━━━━━━  
首部  function StrUpper(Str: PChar): PChar; $[SysUtils.pas
功能  返回指针字符串Str大写
说明  非小写字符不处理
参考  <NULL>
例子  Edit1.Text := StrUpper(PChar(Edit2.Text));
━━━━━━━━━━━━━━━━━━━━━
首部  function StrLower(Str: PChar): PChar; $[SysUtils.pas
功能  返回指针字符串Str小写
说明  非大写字符不处理
参考  <NULL>
例子  Edit1.Text := StrLower(PChar(Edit2.Text)); 
━━━━━━━━━━━━━━━━━━━━━  
首部  function StrPas(const Str: PChar): string; $[SysUtils.pas
功能  返回指针字符串Str转换成字符串
说明  也可以直接赋值
参考  <NULL>
例子  Edit1.Text := StrPas(PChar(Edit2.Text));
━━━━━━━━━━━━━━━━━━━━━
首部  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中
说明  <NULL>
参考  <NULL>
例子  <参见Format>