当前位置:七道奇文章资讯编程技术Delphi编程
日期:2011-03-20 18:14:00  来源:本站整理

Delphi6函数大全(1)[Delphi编程]

赞助商链接



  本文“Delphi6函数大全(1)[Delphi编程]”是由七道奇为您精心收集,来源于网络转载,文章版权归文章作者所有,本站不对其观点以及内容做任何评价,请读者自行判断,以下是其具体内容:

  Delphi6函数大全1-StrUtils.pas

  首部 function AnsiResemblesText(const AText, AOther: string): Boolean; $[StrUtils.pas
  功效 返回两个字符串能否类似
  阐明 ANSI(American National Standards Institute)美国国家尺度协会;不辨别大小写
  参考 function StrUtils.SoundexProc; var StrUtils.AnsiResemblesProc
  例子 CheckBox1.Checked := AnsiResemblesText(Edit1.Text, Edit2.Text);
  ━━━━━━━━━━━━━━━━━━━━━
  首部 function AnsiContainsText(const AText, ASubText: string): Boolean; $[StrUtils.pas
  功效 返回字符串AText能否包含子串ASubText
  阐明 不辨别大小写
  参考 function StrUtils.AnsiUppercase; function StrUtils.AnsiPos
  例子 CheckBox1.Checked := AnsiContainsText(Edit1.Text, Edit2.Text);
  ━━━━━━━━━━━━━━━━━━━━━
  首部 function AnsiStartsText(const ASubText, AText: string): Boolean; $[StrUtils.pas
  功效 返回字符串AText能否以子串ASubText开首
  阐明 不辨别大小写
  参考 function Windows.CompareString
  例子 CheckBox1.Checked := AnsiStartsText(Edit1.Text, Edit2.Text);
  ━━━━━━━━━━━━━━━━━━━━━
  首部 function AnsiEndsText(const ASubText, AText: string): Boolean; $[StrUtils.pas
  功效 返回字符串AText能否以子串ASubText末尾
  阐明 不辨别大小写
  参考 function Windows.CompareString
  例子 CheckBox1.Checked := AnsiEndsText(Edit1.Text, Edit2.Text);
  ━━━━━━━━━━━━━━━━━━━━━
  首部 function AnsiReplaceText(const AText, AFromText, AToText: string): string; $[StrUtils.pas
  功效 返回字符串AText顶用子串AFromText替换成子串AToText的后果
  阐明 不辨别大小写
  参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags
  例子 Edit4.Text := AnsiReplaceText(Edit1.Text, Edit2.Text, Edit3.Text);
  ━━━━━━━━━━━━━━━━━━━━━

  首部 function AnsiMatchText(const AText: string; const AValues: array of string): Boolean; $[StrUtils.pas
  功效 返回字符串数组AValues中能否包含字符串AText
  阐明 不辨别大小写
  参考 function StrUtils.AnsiIndexText
  例子 CheckBox1.Checked := AnsiMatchText(Edit1.Text, ['a1', 'a2', 'a3', 'a4']);
  ━━━━━━━━━━━━━━━━━━━━━
  首部 function AnsiIndexText(const AText: string; const AValues: array of string): Integer; $[StrUtils.pas
  功效 返回字符串AText在字符串数组AValues中的位置
  阐明 不辨别大小写;假如不包含则返回-1
  参考 function SysUtils.AnsiSameText
  例子 SpinEdit1.Value := AnsiIndexText(Edit1.Text, ['a1', 'a2', 'a3', 'a4']);
  ━━━━━━━━━━━━━━━━━━━━━
  首部 function AnsiContainsStr(const AText, ASubText: string): Boolean; $[StrUtils.pas
  功效 返回字符串AText能否包含子串ASubText
  阐明 辨别大小写
  参考 function StrUtils.AnsiPos
  例子 CheckBox1.Checked := AnsiContainsStr(Edit1.Text, Edit2.Text);
  ━━━━━━━━━━━━━━━━━━━━━
  首部 function AnsiStartsStr(const ASubText, AText: string): Boolean; $[StrUtils.pas
  功效 返回字符串AText能否以子串ASubText开首
  阐明 辨别大小写
  参考 function SysUtils.AnsiSameStr
  例子 CheckBox1.Checked := AnsiStartsStr(Edit1.Text, Edit2.Text);
  ━━━━━━━━━━━━━━━━━━━━━
  首部 function AnsiEndsStr(const ASubText, AText: string): Boolean; $[StrUtils.pas
  功效 返回字符串AText能否以子串ASubText末尾
  阐明 辨别大小写
  参考 function SysUtils.AnsiSameStr
  例子 CheckBox1.Checked := AnsiEndsStr(Edit1.Text, Edit2.Text);
  ━━━━━━━━━━━━━━━━━━━━━

  首部 function AnsiReplaceStr(const AText, AFromText, AToText: string): string; $[StrUtils.pas
  功效 返回字符串AText顶用子串AFromText替换成子串AToText的后果
  阐明 辨别大小写
  参考 function SysUtils.StringReplace; type SysUtils.TReplaceFlags
  例子 Edit4.Text := AnsiReplaceStr(Edit1.Text, Edit2.Text, Edit3.Text);
  ━━━━━━━━━━━━━━━━━━━━━
  首部 function AnsiMatchStr(const AText: string; const AValues: array of string): Boolean; $[StrUtils.pas
  功效 返回字符串数组AValues中能否包含字符串AText
  阐明 辨别大小写
  参考 function StrUtils.AnsiIndexStr
  例子 CheckBox1.Checked := AnsiMatchStr(Edit1.Text, ['a1', 'a2', 'a3', 'a4']);
  ━━━━━━━━━━━━━━━━━━━━━
  首部 function AnsiIndexStr(const AText: string; const AValues: array of string): Integer; $[StrUtils.pas
  功效 返回字符串AText在字符串数组AValues中的位置
  阐明 辨别大小写
  参考 function SysUtils.AnsiSameStr
  例子 SpinEdit1.Value := AnsiIndexStr(Edit1.Text, ['a1', 'a2', 'a3', 'a4']);
  ━━━━━━━━━━━━━━━━━━━━━
  首部 function DupeString(const AText: string; ACount: Integer): string; $[StrUtils.pas
  功效 返回字符串AText的ACount个复本
  阐明 当ACount为0时返回''
  参考 function System.SetLength
  例子 Edit3.Text := DupeString(Edit1.Text, SpinEdit1.Value);
  ━━━━━━━━━━━━━━━━━━━━━
  首部 function ReverseString(const AText: string): string; $[StrUtils.pas
  功效 返回字符串AText的反序
  阐明 ReverseString('1234') = '4321'
  参考 function System.SetLength
  例子 Edit3.Text := ReverseString(Edit1.Text);
  ━━━━━━━━━━━━━━━━━━━━━

  首部 function StuffString(const AText: string; AStart, ALength: Cardinal; const ASubText: string): string; $[StrUtils.pas
  功效 返回嵌套字符串
  阐明 AStart:嵌套开始位置;ALength:嵌套长度;StuffString('abcd', 2, 0, '12') = 'a12bcd'
  参考 function System.Copy
  例子 Edit3.Text := StuffString(Edit1.Text, SpinEdit1.Value, SpinEdit2.Value, Edit2.Text);
  ━━━━━━━━━━━━━━━━━━━━━
  首部 function RandomFrom(const AValues: array of string): string; overload; $[StrUtils.pas
  功效 随机返回字符串数组AValues中的一个元素
  阐明 之前倡议履行Randomize
  参考 function System.Random
  例子 Randomize; Edit3.Text := RandomFrom(['a1', 'a2', 'a3', 'a4']);
  ━━━━━━━━━━━━━━━━━━━━━
  首部 function IfThen(AValue: Boolean; const ATrue: string; AFalse: string = ''): string; overload; $[StrUtils.pas
  功效 返回指定的逻辑字符串
  阐明 IfThen(True, '是', '否') = '是';IfThen(False, '是', '否') = '否'
  参考
  例子 Edit3.Text := IfThen(CheckBox1.Checked, Edit1.Text, Edit2.Text);
  ━━━━━━━━━━━━━━━━━━━━━
  首部 function LeftStr(const AText: string; const ACount: Integer): string; $[StrUtils.pas
  功效 返回字符串AText左边的ACount个字符
  阐明 LeftStr('123456', 3) = '123'
  参考 function System.Copy
  例子 Edit3.Text := LeftStr(Edit1.Text, SpinEdit1.Value);
  ━━━━━━━━━━━━━━━━━━━━━
  首部 function RightStr(const AText: string; const ACount: Integer): string; $[StrUtils.pas
  功效 返回字符串AText右边的ACount个字符
  阐明 RightStr('123456', 3) = '456'
  参考 function System.Copy
  例子 Edit3.Text := RightStr(Edit1.Text, SpinEdit1.Value);
  ━━━━━━━━━━━━━━━━━━━━━


  以上是“Delphi6函数大全(1)[Delphi编程]”的内容,如果你对以上该文章内容感兴趣,你可以看看七道奇为您推荐以下文章:
  • 怎样ASP.NET MVC调用Delphi开辟的Web报表
  • delphi反汇编初探
  • 怎样在vc、delphi中利用mysql(mysql odbc驱动的利用)
  • 怎样在vc、delphi中利用mysql
  • 利用Delphi6的DBExpress组件衔接远程的Mysql数据库
  • Delphi中的Access本领集
  • 在Java与Delphi间交互实现Zlib压缩算法
  • 在C++Builder中利用Delphi文件
  • BCB6/Delphi7下完善调用CHM帮忙
  • BCB及Delphi工程文件扩大名一览
  • 在C++Builder中利用Delphi控件
  • 在Delphi与C++之间实现函数与对象同享
  • 本文地址: 与您的QQ/BBS好友分享!
    • 好的评价 如果您觉得此文章好,就请您
        0%(0)
    • 差的评价 如果您觉得此文章差,就请您
        0%(0)

    文章评论评论内容只代表网友观点,与本站立场无关!

       评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论
    Copyright © 2020-2022 www.xiamiku.com. All Rights Reserved .