当前位置：首页 » 软件开发

开发技术指南» 文章正文

    引言： //用惯JAVA或C#的人可能对DELPHI非常生气,连基本的

 

 

我对DELPHI写的几个基类型

//用惯java或c#的人可能对delphi非常生气,连基本的类型都没有,我平时工作中,经常会曾试着把一些函数集合在一起,也经常做一些属于自己的基础类型的函数,此处把它们弄出来,有不当之处,请大家点评.

unit baseclass; 【程序编程相关:关于MIDAS的安全问题的解决方案】

【推荐阅读:string 与 PChar】

uses 【扩展信息:最近刚为公司完成的一款监视的小工具软件!】

interface

  sysutils, classes, strutils, idglobal, math;

type

  tcharset = set of char;

var

  tnormalcharset: tcharset = [#13, #10, #32, ., ,, ;];

type

  tstring = class

  private

    ftext: string;

  public

    function charat(aposition: integer): char;

      //指定位置的字母

    function tolowercase: string; overload;

    class function tolowercase(astring: string): string; overload;

      //小写

    function touppercase: string; overload;

    class function touppercase(astring: string): string; overload;

      //大写

    class function valueof(avalue: string): boolean; overload;

    class function valueof(avalue: boolean): string; overload;

    class function stringin(avalue: string; avalues: array of string): boolean;

    class function left(avalue: string; alength: integer): string;

    class function right(avalue: string; alength: integer): string;

    class function deleteprefix(avalue: string; fixedstring: tcharset = [#32]): string; //删除前缀

    class function deletesuffix(avalue: string; fixedstring: tcharset = [#32]): string; //删除后缀

    //

    class function comparestring(avalue1: string; avalue2: string): boolean;

    class function hashcode(avalue: string): integer;

    class function lastchar(avalue: string): char;

    class function stringreplace(const s, oldpattern, newpattern: string;

                   flags: treplaceflags): string;

    class function stringofchar(ch: char; count: integer): string;

    class function setstring(var s: string; buffer: pchar; len: integer): string;

    class function getpy(astr: string): string;

          //得到对应的拼音.

    class function isallchinese(astr: string): boolean;

    class function isallenglish(astr: string): boolean;

    class function getfirstword(avalue: string; var aword: string; aseparator: tcharset): integer; overload;

    class function getfirstword(avalue: string; var aword: string; aseparator: string): integer; overload;

                   //返回值为从开始到该单据的长度.

    class function getallword(avalue: string; aseparator: string): tstringlist; overload;

                   //返回所有的关键字.使用完后,请将结果集free;

                   //注:在以后的使用中,请不要使用该函数.请使用它的重载版

                   //getallword(avalue: string; aseparator: string; astringlist: tstringlist);

    class procedure getallword(avalue: string; aseparator: string; astringlist: tstrings); overload;

                   //把所有的结果集装入astringlist;

    class procedure getallwordwithall(avalue: string; aseparator: string; astringlist: tstrings);

    class function stringtocharset(avalue: string): tcharset;

    class function charsettostring(avalue: tcharset): string;

    class function updatesentence(aoldstring: string; //被操作字符串

                                  aupdatesource: string; //查找的单词.

...   下一页

» 本期热门文章：

· 热门栏目：

» 相关精选文章

» 其它相关：