★★★★★★★★★★★★ 几个函数给大家，不知道的UP一下 ★★★★★★★★★★★★

Question

其实都是SysUtils单元的。下班了。
-----------------------------------------------------------------------
function TryStrToInt(const S: string; out Value: Integer): Boolean;
功能：尝试将s转化成数字到out中，成功返回True,否则返回False;
说明：S：要转化成数字的字符串，out：转化后的数字，返回值：转化是否成功；
-----------------------------------------------------------------------
function StrToIntDef(const S: string; Default: Integer): Integer;
功能：将字符串S转化成数字。
说明：如果成功，返回转化后的数字；否则返回默认值Default；
用法：i :=StrToIntDef('s123',23);//i = 123;
-----------------------------------------------------------------------
function QuotedStr(const S: string): string;
功能：字符串S开始和结尾都添加一个引用字符串',如果中间有'，则在其前面添加一个'。
说明：s:要转化的字符串，返回值：加引用串后的字符串；
用法：Table1.Open;
      Table1.Filter :='Name='+QuotedStr('foxyy8888');//Name:字符型字段。
      Table1.Filtered :=True;
----------------------------------------------------------------------
function FileExists(const FileName: string): Boolean;
功能：判断文件是否存在。
----------------------------------------------------------------------
function DirectoryExists(const Directory: string): Boolean;
功能：判断目录是否存在。
-----------------------------------------------------------------------
function ForceDirectories(Dir: string): Boolean;
功能：强制建立目录。
说明：当c:\aaa目录不存在时，ForceDirectories('c:\aaa\bbb')可以在c:\下建
      立aaa目录，然后在c:\aaa下建立bbb目录。
----------------------------------------------------------------------
function DayOfWeek(const DateTime: TDateTime): Word;
功能：判断某天是星期几
----------------------------------------------------------------------
function StrToDate(const S: string): TDateTime;
function StrToDateDef(const S: string; const Default: TDateTime): TDateTime;
function TryStrToDate(const S: string; out Value: TDateTime): Boolean;function StrToTime(const S: string): TDateTime;
function StrToTimeDef(const S: string; const Default: TDateTime): TDateTime;
function TryStrToTime(const S: string; out Value: TDateTime): Boolean;function StrToDateTime(const S: string): TDateTime;
function StrToDateTimeDef(const S: string; const Default: TDateTime): TDateTime;
function TryStrToDateTime(const S: string; out Value: TDateTime): Boolean;
功能：同Toint.
--------------------------------------------------------------------
function FormatDateTime(const Format: string; DateTime: TDateTime): string;
功能：将日期时间转化成固定格式；
用法：s:=FormatDateTime('YYYY"年"MM"月"DD"日',Date);

Answer 1

最后一个写错了。
function FormatDateTime(const Format: string; DateTime: TDateTime): string;
功能：将日期时间转化成固定格式；
用法：s:=FormatDateTime('YYYY"年"MM"月"DD"日"',Date);

Answer 2

to  FrameSniper(§绕瀑游龙§) 
这些函数是很多，但是看起来大家好象都会用，就没敢写，怕大家扔臭鸡蛋。
上次看一贴子问怎么判断一个字符串是数字串。最终大家都是说，用Try或者是自己写。其实一个TryStrToInt、StrToIntDef就解决了。
另外大家在写SQL中经常用到',正好和Delphi的字符串引用符相同，解决方法就是''''+a.text+'''',如此，搞得刚接触的晕头转向。其实用QuotedStr清晰明了。
我也是前几天看到，不敢独享，赶紧贡献出来了。
如果看到好的，我再次贡献，望大家支持。

Answer 3

支持！我也来一个：function WrapText(const Line, BreakStr: string; nBreakChars: TSysCharSet; MaxCol: Integer):
string; overload;
function WrapText(const Line, MaxCol: Integer = 45):string; overload;对于自己写文本自动换行非常有用！

Answer 4

支持！我也来一个：function WrapText(const Line, BreakStr: string; nBreakChars: TSysCharSet; MaxCol: Integer):
string; overload;
function WrapText(const Line, MaxCol: Integer = 45):string; overload;对于自己写文本自动换行非常有用！

Answer 5

function PosStrCase(const FindStr, SourceStr: string;
  StartPos: Integer): Integer;
asm {Case sensitive}
        PUSH    ESI
        PUSH    EDI
        PUSH    EBX
        PUSH    EDX
        TEST    EAX,EAX
        JE      @@qt
        TEST    EDX,EDX
        JE      @@qt0
        MOV     ESI,EAX
        MOV     EDI,EDX
        MOV     EAX,[EAX-4]
        MOV     EDX,[EDX-4]
        DEC     EAX
        SUB     EDX,EAX
        DEC     ECX
        SUB     EDX,ECX
        JNG     @@qt0
        XCHG    EAX,EDX
        ADD     EDI,ECX
        MOV     ECX,EAX
        JMP     @@nx
@@fr:   INC     EDI
        DEC     ECX
        JE      @@qt0
@@nx:   MOV     EBX,EDX
        MOV     AL,BYTE PTR [ESI]
@@lp1:  CMP     AL,BYTE PTR [EDI]
        JE      @@uu
        INC     EDI
        DEC     ECX
        JE      @@qt0
        CMP     AL,BYTE PTR [EDI]
        JE      @@uu
        INC     EDI
        DEC     ECX
        JE      @@qt0
        CMP     AL,BYTE PTR [EDI]
        JE      @@uu
        INC     EDI
        DEC     ECX
        JE      @@qt0
        CMP     AL,BYTE PTR [EDI]
        JE      @@uu
        INC     EDI
        DEC     ECX
        JNE     @@lp1
@@qt0:  XOR     EAX,EAX
@@qt:   POP     ECX
        POP     EBX
        POP     EDI
        POP     ESI
        RET
@@uu:   TEST    EDX,EDX
        JE      @@fd
@@lp2:  MOV     AL,BYTE PTR [ESI+EBX]
        CMP     AL,BYTE PTR [EDI+EBX]
        JNE     @@fr
        DEC     EBX
        JE      @@fd
        MOV     AL,BYTE PTR [ESI+EBX]
        CMP     AL,BYTE PTR [EDI+EBX]
        JNE     @@fr
        DEC     EBX
        JE      @@fd
        MOV     AL,BYTE PTR [ESI+EBX]
        CMP     AL,BYTE PTR [EDI+EBX]
        JNE     @@fr
        DEC     EBX
        JE      @@fd
        MOV     AL,BYTE PTR [ESI+EBX]
        CMP     AL,BYTE PTR [EDI+EBX]
        JNE     @@fr
        DEC     EBX
        JNE     @@lp2
@@fd:   LEA     EAX,[EDI+1]
        SUB     EAX,[ESP]
        POP     ECX
        POP     EBX
        POP     EDI
        POP     ESI
end;快速字符串定位，比Pos快得多。来自QString...

Answer 6

gzgzgzgz        gzgzgzgz        gzgzgzgzgzgzgzgzgzgz        
    gzgzgz            gzgz            gzgzgz        gzgzgz      
    gzgzgz            gzgz            gzgzgz        gzgzgzgz    
    gzgzgz            gzgz            gzgzgz          gzgzgz    
    gzgzgz            gzgz            gzgzgz          gzgzgz    
    gzgzgz            gzgz            gzgzgz          gzgzgz    
    gzgzgz            gzgz            gzgzgz          gzgzgz    
    gzgzgz            gzgz            gzgzgz        gzgzgz      
    gzgzgz            gzgz            gzgzgz      gzgzgzgz      
    gzgzgz            gzgz            gzgzgzgzgzgzgzgzgz        
    gzgzgz            gzgz            gzgzgz                    
    gzgzgz            gzgz            gzgzgz                    
    gzgzgz            gzgz            gzgzgz                    
      gzgz            gzgz            gzgzgz                    
      gzgzgz        gzgz              gzgzgz                    
      gzgzgz        gzgz              gzgzgz                    
      gzgzgz        gzgz              gzgzgz                    
        gzgzgz    gzgz                gzgzgz                    
          gzgzgzgzgzgz            gzgzgzgzgzgzgz

Answer 7

我自己写了一个StrToDate函数，想不到原本就有，晕