Delphi 函数参考_Delphi程序_学习笔记★闵涛★计算机学习电脑编程软硬件技巧


	转至繁体中文版	\| 网站首页 \| 图文教程 \| 资源下载 \| 站长博客 \| 图片素材 \| 武汉seo \| 武汉网站优化 \|

Delphi 函数参考

作者：闵涛文章来源：闵涛的学习笔记点击数：5707 更新时间：2009/4/23 18:27:19

; $[SysUtils.pas
      功能返回字符串S转换成整数
      说明字符串非整数表达时则返回默认值Default
      参考 procedure System.Val
      例子 SpinEdit1.Value := StrToIntDef(Edit1.Text, 0);
      ━━━━━━━━━━━━━━━━━━━━━
      首部 function TryStrToInt(const S: string; out Value: Integer): Boolean;
      $[SysUtils.pas
      功能返回字符串S转换成整数Value是否成功
      说明字符串非整数表达时返回False并且Value将输出为0
      参考 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);

上一页 [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] ... 下一页 >>

[系统软件]InstallShield Express for delphi制作安装程序定…  [常用软件]InstallShield Express制作Delphi数据库安装程序
[Delphi程序]为什么选择Delphi.Net ？  [Delphi程序]《关于VisiBroker For Delphi的使用》(4)
[Delphi程序]Delphi 程序员代码编写标准指南  [Delphi程序]转贴：Conversion to Delphi 6: Missing unit Pro…
[Delphi程序]Borland Delphi 9 的新特性  [Delphi程序]Delphi 键盘码表
[Delphi程序]Chuck Jazdzewski的离开意味着Delphi的终结吗？  [Delphi程序]Delphi Access violations 问题的解决之道

教程录入：mintao 责任编辑：mintao

上一篇教程：将网页显示的 Delphi 代码上色并格式化

下一篇教程：强大的DELPHI RTTI--兼谈需要了解多种开发语言

【字体：小大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】

注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]

　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）

同类栏目

· C语言系列 · VB.NET程序
· JAVA开发 · Delphi程序
· 脚本语言

热门推荐

没有教程

赞助链接

闵涛博文

500 - 内部服务器错误。

您查找的资源存在问题，因而无法显示。

鄂公网安备 42011102001154号

站长：MinTao ICP备案号：鄂ICP备11006601号-18

闵涛站盟:医药大全-武穴网。A打造B、C、D……