DELPHI常用函数集及简要范例Word文件下载.docx

1、, succ（pred（x）=xord（x） 求x在字符集中的序号,如ord（A）=65chr（x） chr（65）=round（x） 四舍五入trunc（x） trunc（4.8）=4,trunc（-3.6）=-3upcase（x） upcase（ahi（I） hi（$2A30）=$2Alo（I） lo（$2A30）=$30random（n） 产生0,n）间的随机整数sizeof（name） 求出某类型或变量在内存中占用的字节数swap（num） swap（$3621）=$2136=Arithmetic routines 数学运算Abs 绝对值Unit System函数原型 function

2、 Abs（X）;说明 X为整数or实数.范例 var r: Real; i: Integer;begin r := Abs（-2.3）; 2.3 i := Abs（-157）; 157 end;ArcTan 三角函数范例Cosvar R: Extended; R := Cos（Pi）;Sin R: S: string;= Sin（Pi）; Str（R:5:3, S）; Canvas.TextOut（10, 10, The Sin of Pi is + S）;函数原型 function ArcTan（X: Extended）:函数原型 function Cos（X:函数原型 function S

3、in（X:说明 X为径度. Tan（x） = Sin（x） / Cos（x） ArcSin（x） = ArcTan （x/sqrt （1-sqr （x） ArcCos（x） = ArcTan （sqrt （1-sqr （x） /x） 左边这三个不是函数,而是右边运算求得.= ArcTan（Pi）;范例 var begin end;Frac 求一个实数的小数部份函数原型 function Frac（X: Real）:说明 X为实数.= Frac（123.456）; 0.456 = Frac（-123.456）; -0.456 Int 求一个实数的整数部份函数原型 function Int（X:范

4、例 var = Int（123.456）; 123.0 = Int（-123.456）; -123.0 Pi 就是数学的Pi函数原型 function Pi:说明 它是一个函数,但我们就把它当作是预设的变数来用吧! Pi= 3.Sqr X的平方 S, Temp: Str（Sqr（5.0）:3:1, Temp）; S := 5 squared is + Temp + #13#10; Str（Sqrt（2.0）:4, Temp）;= S + The square root of 2 is + Temp; MessageDlg（S, mtInformation, mbOk, 0）;Sqrt X的平方

5、根函数原型 function Sqr（X:函数原型 function Sqrt（X:Ln 自然对数 e : real;= Exp（1.0）; Str（ln（e）:2, S）;e = + FloatToStr（e） + ; ln（e） = + S; Canvas.TextOut（10, 10, S）;Exp 指数函数原型 function Ln（X:函数原型 function Exp（X:ln（e） = Date and time routines 日期及时间函数Date 传回目前的日期Unit SysUtils函数原型 function Date: TDateTime;范例 procedure

6、 TForm1.Button1Click（Sender: TObject）; Label1.Caption :Today is + DateToStr（Date）;DateTimeToStr 日期时间转换成内定型字串（1996/12/20 09:12:20 PM）函数原型 function DateTimeToStr（DateTime: TDateTime）:= DateTimeToStr（Now）;DateTimeToString 日期时间转换成自定型字串函数原型 procedure DateTimeToString（var Result: const Format: DateTime: T

7、DateTime）;范例 procedure TForm1.FormCreate（Sender: var s:string; DateTimeToString（s,dddd,mmmm d,yyyy at hh:mm AM/PM,Now）;=s;结果 星期五,十二月 20,1996 at 09:20 PM* Format格式叁考下面.FormatDateTime.DateToStr 日期转换成内定型字串.（1996/12/20）函数原型 function DateToStr（Date:procedure TForm1.Button1Click（Sender:# Date, DateToStr E

8、xampleDayOfWeek 求叁数日期是星期几.函数原型 function DayOfWeek（Date:说明 传回值是一整数,17. 星期日为1. ADate: days: array1.7 of string; days1 :Sunday days2 :Monday days3 :Tuesday days4 :Wednesday days5 :Thursday days6 :Friday days7 :Saturday ADate := StrToDate（Edit1.Text）; ShowMessage（Edit1.Text + is a + daysDayOfWeek（ADate）;# StrToDate, DayOfWeek ExampleDecodeDate 将TDateTime型态的日期变数，转为Word型态. Present: Year, Month, Day, Hour, Min, Sec,