Delphi字符串函数大全

      $[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

 如果您对本文有任何疑问或者建议，请到讨论区发表您的意见: >> 论坛入口 <<

上一页 1 2 3 4 56 7 8 9 10 11 12 13 下一页

上一篇：我的共享软件防破解的实用着法   下一篇：让ReportBuilder彻底支持Oracle

【文章评论】 【收藏本文】 【推荐好友】 【打印本文】 【我要投稿】 【论坛讨论】