Delphi字符串函数大全

首页 | 图形图象 | 编程开发 | 操作系统 | 数据库 | 服务器 | 网络安全 | 人才酷 | 招聘 | 资源 | 酷站 | 顶尖周刊 |

热门文章

编辑推荐

相关文章
从Melissa到Zotob：Windows蠕虫1 从后台得到webshell技巧大汇总 Qmail邮件系统下防止滥用mail re Qmail邮件系统下防止滥用mail re 使用telnet 方式连接Imail的SMTP MDeamon Server 邮件系统迁移完全用RelayFax搭建传真服务器 Qmail邮件系统下防止滥用mail re 隐藏qmail的SMTP help信息保护你 Sendmail的relay用法汇总

您现在的位置：顶尖设计 >> IT学院 >> 编程开发 >> Delphi >> 文章正文

Delphi字符串函数大全

作者：net19661891 来源：CSDN 点击：更新：2006-12-19

简介：

nbsp; 参考 procedure System.Val
      例子
      ///////Begin TryStrToInt
      procedure TForm1.Button1Click(Sender: TObject);
      var
      I: Integer;
      begin
      CheckBox1.Checked := TryStrToInt(Edit1.Text, I);
      SpinEdit1.Value := I;
      end;
      ///////End TryStrToInt
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrToInt64(const S: string): Int64; $[SysUtils.pas
      功能返回字符串S转换成六十四位整数
      说明字符串非六十四位整数表达时将引起异常
      参考 procedure System.Val
      例子 SpinEdit1.Value := StrToInt64(Edit1.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrToInt64Def(const S: string; const Default: Int64): Int64;
      $[SysUtils.pas
      功能返回字符串S转换成六十四位整数
      说明字符串非六十四位整数表达时则返回默认值Default
      参考 procedure System.Val
      例子 SpinEdit1.Value := StrToInt64Def(Edit1.Text, 0);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function TryStrToInt64(const S: string; out Value: Int64): Boolean;
      $[SysUtils.pas
      功能返回字符串S转换成六十四位整数Value是否成功
      说明字符串非六十四位整数表达时返回False并且Value将输出为0
      参考 procedure System.Val
      例子
      ///////Begin TryStrToInt64
      procedure TForm1.Button1Click(Sender: TObject);
      var
      I: Int64;
      begin
      CheckBox1.Checked := TryStrToInt64(Edit1.Text, I);
      SpinEdit1.Value := I;
      end;
      ///////End TryStrToInt64
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrToBool(const S: string): Boolean; $[SysUtils.pas
      功能返回字符串S转换成逻辑值
      说明字符非逻辑表达时将引起异常
      参考 function SysUtils.TryStrToBool
      例子 CheckBox1.Checked := StrToBool(Edit1.Text);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrToBoolDef(const S: string; const Default: Boolean):
      Boolean; $[SysUtils.pas
      功能返回字符串S转换成逻辑值
      说明字符非逻辑表达时则返回默认值Default
      参考 function SysUtils.TryStrToBool
      例子 CheckBox1.Checked := StrToBoolDef(Edit1.Text, False);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function TryStrToBool(const S: string; out Value: Boolean): Boolean;
      $[SysUtils.pas
      功能返回字符串S转换成逻辑值Value是否成功
      说明 [注意]0为假非0为真;不是'True'和'False';Delphi6 Bug 如下修正
      参考 function SysUtils.AnsiSameText;var SysUtils.TrueBoolStrs;var
      SysUtils.FalseBoolStrs
      例子
      ///////Begin TryStrToBool
      procedure TForm1.Button1Click(Sender: TObject);
      var
      B: Boolean;
      begin
      SetLength(TrueBoolStrs, 2);
      SetLength(FalseBoolStrs, 2);
      TrueBoolStrs[0] := 'True';
      FalseBoolStrs[0] := 'False';
      TrueBoolStrs[1] := 'Yes';
      FalseBoolStrs[1] := 'No';
      CheckBox1.Checked := TryStrToBool(Edit1.Text, B);
      CheckBox2.Checked := B;
      end;
      ///////End TryStrToBool
      附加
      ///////Begin TryStrToBool
      function TryStrToBool(const S: string; out Value: Boolean): Boolean;
      function CompareWith(const aArray: array of string): Boolean;
      var
      I: Integer;
      begin
      Result := False;
      for I := Low(aArray) to High(aArray) do
      if AnsiSameText(S, aArray[I]) then
      begin
      Result := True;
      Break;
      end;
      end;
      var
      LResult: Extended;
      begin
      Result := TryStrToFloat(S, LResult);
      if Result then
      Value := LResult <> 0
      else
      begin
      Result := True; //修正处
      VerifyBoolStrArray;
      if CompareWith(TrueBoolStrs) then
      Value := True
      else if CompareWith(FalseBoolStrs) then
      Value := False
      else
      Result := False;
      end;
      end;
      ///////End TryStrToBool
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function BoolToStr(B: Boolean; UseBoolStrs: Boolean = False): string;
      $[SysUtils.pas
      功能返回逻辑值B转换成字符串
      说明 BoolToStr(False, False)='0';BoolToStr(False, True)='-1'
      参考 var SysUtils.TrueBoolStrs;var SysUtils.FalseBoolStrs
      例子 Edit1.Text := BoolToStr(CheckBox1.Checked, CheckBox2.Checked);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function LoadStr(Ident: Integer): string; $[SysUtils.pas
      功能返回根据标识Ident的字符串资源
      说明字符串资源是指程序的内部资源
      参考 function SysUtils.FindStringResource
      例子 Edit2.Text := LoadStr(StrToIntDef(Edit1.Text, 0));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function FmtLoadStr(Ident: Integer; const Args: array of const):
      string; $[SysUtils.pas
      功能返回格式化的字符串资源
      说明字符串资源是指程序的内部资源
      参考 function SysUtils.FmtStr;function SysUtils.FindStringResource
      例子 <NULL>;
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrLen(const Str: PChar): Cardinal; $[SysUtils.pas
      功能返回指针字符串的长度
      说明当指针字符串Str为nil时将触发异常
      参考 <NULL>
      例子 SpinEdit2.Value := StrLen(PChar(Edit1.Text));
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrEnd(const Str: PChar): PChar; $[SysUtils.pas
      功能返回指针字符串的结尾
      说明当指针字符串Str为nil时将触发异常
      参考 <NULL>
      例子 Edit2.Text := StrEnd(PChar(Edit1.Text)) - SpinEdit1.Value;
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function StrMove(Dest: PChar; const Source: PChar; Count: Cardinal):
      PChar; $[SysUtils.pas
      功能返回将指针字符串Source指定内存数量Count复制覆盖到指针字符串Dest中
      说明 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中

上一页 [1] [2] [3] [4] [5] [6] 下一页