Delphi常用函数

{*****************************类操作******************************}

{显示类及其继承信息函数}

function ShowClassName(Obj:TObject):string;

procedure GetClassInfos(Obj:TComponent;StrList:TStringList);

procedure SaveClassInfos(Obj:TComponent;FileName:string);

{*****************************文件操作******************************}

{建文件夹}

function CreateDirs(APath:string):Boolean;

{拷贝}

function FileCopy(From, Dest: string;S:Integer=0;Dialog:Boolean=True):Boolean;

{移动}

procedure FileMove(From, Dest: string);

{删除}

procedure FileDelete(ADirName: string);

{更名}

function FileRename(From, Dest: string):Boolean;

{***************************控件操作********************************}

{TStrings，在Combobox中添加或者删除一个字符串}

procedure StringsOperation(ComboBox:TComboBox;IsAdd:Boolean;No:string='');

{***************************日期操作********************************}

{返回头尾日期}

procedure GetHeadTailDate(const SelfDate:TDate;var HeadDate,TailDate:TDate);overload;

procedure GetHeadTailDate(const Year,Month:Integer;var HeadDate,TailDate:TDate);overload;

{返回一月有多少天}

function ReturnHowDay(const AYear,AMonth:word):Word;

{返回季度头尾日期}

procedure GetQuarter(AYear:Word;AQuarter:TQuarter;var HeadDate,TailDate:TDate);overload;

procedure GetQuarter(SelfDate:TDate;var HeadDate,TailDate:TDate);overload;

procedure GetAccYearMonth(ADate:TDateTime;var Y,M:Word);

{**************************字符串操作*******************************}

{**************************string Function*******************************}

{得到1个字符在字符串中的个数}

function GetCharNum(const Ch:Char; const Str: string):Integer;

{Ini字符串和String字符串互相转换}

function IniStrToStr(const Str: string): string;

function StrToIniStr(const Str: string): string;

{给字符串加一个'\'}

function AddBackSlash(const S: string): string;

{减少字符串的长度}

procedure DecStrLen(var S: string; DecBy: Integer);

{返回有回车换行的字符串Position位置所在的字符串}

function GetCurLine(const S: string; Position: Integer): string;

{返回给定字符串的内存分配大小}

function GetStrAllocSize(const S: string): Longint;

{ 得到字符串的基准数 }

function GetStrRefCount(const S: string): Longint;

{清除A中指定的字符}

function KillChars(const S: string; A: array of Char; CaseSensitive: Boolean):string;

{ 返回子字符串在字符串中最后一个位置 }

function LastPos(const SubStr, S: string): Integer;

{ 设置字符串的实际长度 }

procedure RealizeLength(var S: string);

{ 移去字符串末尾的'\'}

function RemoveBackSlash(const S: string): string;

{移去字符串空格}

function RemoveSpaces(const S: string): string;

{字符串取反}

function ReverseStr(const S: string): string;

{除去前后回车}

function TrimEnterLeft(S:string):string;

function TrimEnterRight(S:string):string;

function TrimEnter(S:string):string;

{******************************PChar Function***************************}

procedure StrGetCurLine(StartPos, CurPos: PChar; TotalLen: integer;

var LineStart: PChar; var LineLen: integer);

{ 返回最后一个指定字符串及其以后的字符 }

function StrLastPos(Str1, Str2: PChar): PChar;

{截取第一个指定字符串及其以后的字符,大小写不敏感}

function StrIPos(Str1, Str2: PChar): PChar;

{截取第一个指定字符及其以后的字符,大小写不敏感}

function StrIScan(Str: PChar; Chr: Char): PChar;

{ 字符串取反 }

procedure StrReverse(P: PChar);

{返回中文大写数字}

function GetChinaNum(Num:TNumChar;ChinaNumFormat:TChinaNumFormat=cnfBig):string;

{将数字变成中文大写}

function FloatToChinaBig(Num:Double;ChinaBigFormat:TChinaBigFormat=cbfFull;Blanks:Byte=0):string;

function FloatToChnStr(Value: Real; ClearZero: Boolean; full:Boolean=False): String;

{将数字变成英文}

function FloatToEnglish(Num:Double):string;

{日期用英文}

function DateToEng(ADate:TDate;th:Boolean=False):string;

{取得SQL日期字符串等}

function DateToSQLDateStr(ADate:TDateTime):string;

function StrToSQLDateStr(Str:string):string;

function TimeToSQLTimeStr(ATime:TDateTime):string;

function StrToSQLTimeStr(Str:string):string;

function DateTimeToSQLDateTimeStr(ADateTime:TDateTime):string;

function StrToSQLDateTimeStr(Str:string):string;

{返回有逗号的金额字符串}

function FloatToMoneyStr(Num:Double;const HasSymbol:Boolean=False):string;

{Bool与字符串的转换}

function StrToBool(const Str:string):Boolean;

function BoolToStr(const Bool:Boolean):string;

{判断是否日期等}

function IsDate(const CheckString:string):Boolean;

function IsDateTime(const CheckString:string):Boolean;

function IsTime(const CheckString:string):Boolean;

function IsInteger(const CheckString:string):Boolean;

function IsFloat(const CheckString:string):Boolean;

{多字符串ShowMessage}

procedure ShowMessages(const Strings:array of string);

{新名称}

function NameToNewName(const Str:string):string;

{FloatTo%百分比}

function FloatToRate(Num:Double;Pos:Word):string;

{字体存贮}

procedure FontRecordToFont(FontRecord:TFontRecord;Font:TFont);

function FontToFontRecord(Font:TFont):TFontRecord;

function FontStylesToInt(FontStyles:TFontStyles):Byte;

function IntToFontStyles(FontInteger:Byte):TFontStyles;