转至繁体中文版　　　  | 网站首页 | 图文教程 | 资源下载 | 站长博客 | 图片素材 | 武汉seo | 武汉网站优化 | 
最新公告：     敏韬网|教学资源学习资料永久免费分享站！  [mintao  2008年9月2日]        
您现在的位置： 学习笔记 >> 图文教程 >> 软件开发 >> Delphi程序 >> 正文
DELPHI常用函数集及简要范例    热     ★★★★

DELPHI常用函数集及简要范例

作者：闵涛 文章来源：闵涛的学习笔记 点击数：19867 更新时间：2009/4/23 18:30:33
bsp;Hex.
-----------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);

var
  i: Integer;
begin
  Label1.Caption := '''';
  for i := 1 to Length(Edit1.Text) do
  begin
    try
      Label1.Caption := Label1.Caption + IntToHex(Edit1.Text[i],4) + '''' '''';
    except
      Beep;
    end;
  end;
end;

Exam:

Edit2.text:=(strtoint(Edit1.text),6);
-----------------------------------------------------------------------------
IntToStr   将 Int 转为 Str.
-----------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
begin
  try
    Label1.Caption := IntToStr(StrToInt(Edit1.Text) * StrToInt(Edit2.Text));
  except
    ShowMessage(''''You must specify integer values. Please try again.'''');
  end;
end;
-----------------------------------------------------------------------------
StrToInt   将 Str 转为 Int.
-----------------------------------------------------------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
  I: Integer;
  J: Integer;
begin
  I := StrToInt(Edit1.Text);
  J := StrToInt(Edit2.Text);
  ShowMessage(IntToStr(I + J));
end;
-----------------------------------------------------------------------------
StrToIntDef  将 Str 转为 Int.当转换有误时,则传回 Default 的值.
-----------------------------------------------------------------------------
Unit  SysUtils
函数原型 function IntToHex(Value: Integer; Digits: Integer): string;
函数原型 function IntToStr(Value: Integer): string;
函数原型 function StrToInt(const S: string): Integer;
函数原型 function StrToIntDef(const S: string; Default: Integer): Integer;
说明  Value : 欲转换的整数.
   Digits : 欲转换为几位数的 Hex.
范例  procedure TForm1.Button1Click(Sender: TObject);
   begin
     Edit2.Text := IntToHex(StrToInt(Edit1.Text), 6);
   end;

   procedure TForm1.Button1Click(Sender: TObject);
   var
     Value: Integer;
   begin
     Value := 1234;
     Edit1.Text := IntToStr(Value);
   end;

   procedure TForm1.Button1Click(Sender: TObject);
   var
     S: string;
     I: Integer;
   begin
     S := ''''22467'''';
     I := StrToInt(S);
     Inc(I);
     Edit1.Text := IntToStr(I);
   end;

   procedure TForm1.Button1Click(Sender: TObject);
   var
     NumberString: string;
     Number: Integer;
   begin
     NumberString := Edit1.Text;
     Number := StrToIntDef(NumberString, 1000);
     Edit2.Text := IntToStr(Number);
   end;
Example
var

  I: Integer;
  ListItem: string;
begin
  for I := 0 to Query1.ParamCount - 1 do
  begin
    ListItem := ListBox1.Items[I];
    case Query1.Params[I].DataType of
      ftString:
        Query1.Params[I].AsString := ListItem;
      ftSmallInt:
        Query1.Params[I].AsSmallInt := StrToIntDef(ListItem, 0);
      ftInteger:
        Query1.Params[I].AsInteger := StrToIntDef(ListItem, 0);
      ftWord:
        Query1.Params[I].AsWord := StrToIntDef(ListItem, 0);

      ftBoolean:
        begin
          if ListItem = ''''True'''' then
            Query1.Params[I].AsBoolean := True
          else
            Query1.Params[I].AsBoolean := False;
        end;
      ftFloat:
        Query1.Params[I].AsFloat := StrToFloat(ListItem);
      ftCurrency:
        Query1.Params[I].AsCurrency := StrToFloat(ListItem);
      ftBCD:
        Query1.Params[I].AsBCD := StrToCurr(ListItem);
      ftDate:

        Query1.Params[I].AsDate := StrToDate(ListItem);
      ftTime:
        Query1.Params[I].AsTime := StrToTime(ListItem);
      ftDateTime:
        Query1.Params[I].AsDateTime := StrToDateTime(ListItem);
    end;
  end;
end;
--------------------------
procedure TForm1.Button1Click(Sender: TObject);
var
  Number: Integer;
begin
  Number := StrToIntDef(Edit1.Text, 1000);
  Edit2.Text := IntToStr(Number);
end;
-------------------
## ParamCount, DataType, StrToIntDef, AsXXX Example
-----------------------------------------------------------------------------
Str     将数值转换为格式化的字串.
-----------------------------------------------------------------------------
Unit  System
函数原型 procedure Str(X [: Width [: Decimals ]]; var S);
说明  X  : 欲转换的整数 or 实数.
   Width : 格式化长度.(Integer)
   Decimals : 小数点位数.(Integer)
范例  function MakeItAString(I: Longint): string;
    { Convert any integer type to a string }
   var
     S: string[11];
   begin
     Str(I, S);
     MakeItAString:= S;
   end;
   begin
     Canvas.TextOut(10, 10, MakeItAString(-5322));
   end;
-----------------------------------------------------------------------------
Val     将字串转为数字.
-----------------------------------------------------------------------------
Unit  System
函数原型 procedure Val(S; var V; var Code: Integer);
说明  S  : 欲转换的字串.
   V  : 转换後的整数 or 实数.
   Code : Code = 0 表示转换成功.
范例  uses Dialogs;
   var 
     I, Code: Integer;
   begin
    { Get text from TEdit control }
     Val(Edit1.Text, I, Code);
    { Error during conversion to integer? }
     if code <> 0 then
    MessageDlg(''''Error at position: '''' + IntToStr(Code), 
     mtWarning, [mbOk], 0);
     else
    Canvas.TextOut(10, 10, ''''Value = '''' + IntToStr(I));
     Readln;
   end;
-----------------------------------------------------------------------------
Length    字串长度.
-----------------------------------------------------------------------------
Unit  System
函数原型 function Length(S: string): Integer;
说明  S  : 欲转换的字串.

 << 上一页  [11] [12] [13] [14] [15] [16] [17] [18] [19] [20]  ...  下一页 >> 


没有相关教程
教程录入：mintao    责任编辑：mintao 
  • 上一篇教程：

  • 下一篇教程：
    • 【字体：小 大】【发表评论】【加入收藏】【告诉好友】【打印此文】【关闭窗口】
    　 注：本站部分文章源于互联网，版权归原作者所有！如有侵权，请原作者与本站联系，本站将立即删除！ 本站文章除特别注明外均可转载，但需注明出处！ [MinTao学以致用网]
    　　网友评论：（只显示最新10条。评论内容只代表网友观点，与本站立场无关！）
    同类栏目
    · C语言系列  · VB.NET程序
    · JAVA开发  · Delphi程序
    · 脚本语言
    更多内容
    热门推荐 更多内容
  • 没有教程
    		•
    赞助链接
    更多内容
    闵涛博文 更多关于武汉SEO的内容
    500 - 内部服务器错误。

    500 - 内部服务器错误。

    您查找的资源存在问题，因而无法显示。
    | 设为首页 |加入收藏 | 联系站长 | 友情链接 | 版权申明 | 广告服务
    MinTao学以致用网

    Copyright ＠ 2007-2012 敏韬网(敏而好学，文韬武略--MinTao.Net)（学习笔记） Inc All Rights Reserved.
    闵涛 投放广告、内容合作请Q我! E_mail:admin@mintao.net(欢迎提供学习资源)

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

    闵涛站盟:医药大全-武穴网。A打造B、C、D……
    		咸宁网络警察报警平台