delphi字符串函数(一).txt

delphi函数参考大全 delphi函数参考大全

      例子 CheckBox1.Checked := SoundexSimilar(Edit1.Text, Edit2.Text, 
      SpinEdit1.Value);
      ━━━━━━━━━━━━━━━━━━━━━ 
      首部 function SoundexCompare(const AText, AOther: string; ALength: 
      TSoundexLength = 4): Integer; $[StrUtils.pas
      功能 返回比较两个字符串的探测字符串的结果
      说明 Result := AnsiCompareStr(Soundex(AText, ALength), Soundex(AOther, 
      ALength))
      参考 function SysUtils.AnsiCompareStr
      例子 SpinEdit2.Value := SoundexCompare(Edit1.Text, Edit2.Text, 
      SpinEdit1.Value);
      ━━━━━━━━━━━━━━━━━━━━━ 
      首部 function SoundexProc(const AText, AOther: string): Boolean; 
      $[StrUtils.pas
      功能 调用SoundexSimilar返回两个字符串的探测字符串是否相同
      说明 系统变量AnsiResemblesProc的默认值
      参考 function StrUtils.AnsiResemblesText
      例子 [var AnsiResemblesProc: TCompareTextProc = SoundexProc;]
      ━━━━━━━━━━━━━━━━━━━━━
      首部 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);