摘要: DateTimeToFileDate 将DELPHI的日期格式转换为DOS的日期格式 DateTimeToStr 将日期时间格式转换为字符串 DateTimeToString 将日期时间格式转换为字符串 DateToStr 将日期格式转换为字符串 FileDateToDateTime 将DOS的日期格式转换为DELPHI的日期格式 FloatToDecimal 将浮点数转换为十进制数 FloatToStrF 将浮点数转换为字符串 FloatToStr 将浮点数转换为字符串 FloatToText 将给定的浮点数转换为十进制数 F... 阅读全文
posted @ 2012-11-23 10:29 许小东 阅读(473) 评论(0) 推荐(0) 编辑
摘要: 求一个月的第一天和最后一天:function THiSettlForm.Init:string;begin dtp1.DateTime:=FDOM(Now); dtp2.DateTime:=LDOM(Now);end;function THiSettlForm.FDOM(Date: TDateTime): TDateTime;var Year, Month, Day: Word;begin DecodeDate(Date, Year, Month, Day); //month:=dec(month); if Month >1 then dec(Month) else begin Mont 阅读全文
posted @ 2012-11-19 10:03 许小东 阅读(149) 评论(0) 推荐(0) 编辑
摘要: 一、遍历 TStringsvar List: TStrings; s: string;begin List := TStringList.Create; List.CommaText := 'aaa,bbb,ccc'; for s in List do ShowMessage(s); List.Free;end;二、遍历数组var Arr: array[0..2] of Byte; i: Integer; b: Byte;begin for i := Low(Arr) to High(Arr) do Arr[i] := Random(MAXBYTE); for... 阅读全文
posted @ 2012-11-15 14:58 许小东 阅读(1206) 评论(0) 推荐(0) 编辑
摘要: 阅读全文
posted @ 2012-11-13 10:50 许小东 阅读(102) 评论(0) 推荐(0) 编辑
摘要: 除了引用参数外,还有一种参数叫做常量参数。由于不允许在例程中给常量参数赋新值,因此编译器能优化常参的传递过程。编译器会选用一种与引用参数相似的方法编译常参(C++术语中的常量引用),但是从表面上看常参又与值参相似,因为常参初始值不受例程的影响。 事实上,如果编译下面有点可笑的代码,Delphi将出现错误:function DoubleTheValue(const Value:integer):integer;begin Value :=Value*2; //compiler error Result :=Value;end; 阅读全文
posted @ 2012-11-13 09:42 许小东 阅读(328) 评论(0) 推荐(0) 编辑
摘要: 阅读全文
posted @ 2012-11-13 09:16 许小东 阅读(105) 评论(0) 推荐(0) 编辑
摘要: With语句是一种用于简化代码的语句。如果你要访问一个记录类型变量(或一个对象),用with语句就不必每次重复变量的名字。例如对于以下的记录类型代码:type Date = Record Year: integer; Month: byte; Day: byte; end;var Birthday: Date;begin Birthday.Year :=1997; Birthday.Month :=2; Birthday.Day :=14;//use with methodwith Birthday dobegin Year :=1997; Month :=2... 阅读全文
posted @ 2012-11-12 17:15 许小东 阅读(126) 评论(0) 推荐(0) 编辑
摘要: 阅读全文
posted @ 2012-11-12 14:08 许小东 阅读(168) 评论(0) 推荐(0) 编辑
摘要: Pascal中的for循环严格地建立在计数器基础上,循环每执行一次,计数器不是增加一个值就是减小一个值。例子:var k,i: integer;begin K:=0; for i:=1 to 10 do k :=k+i; 同样的for语句可以用正好相反的计数器来写:var k,i: integer;begin k :=0; for i:=10 downto 1 do k :=k+i; Pascal中的for循环语句其灵活性比其他语言小(它不能指定1之外的步长),不过简单也容易理解。如果需判断的条件比较复杂,或想自定义计数器,你可以用while语句或repeat语... 阅读全文
posted @ 2012-11-12 14:07 许小东 阅读(199) 评论(0) 推荐(0) 编辑
摘要: 阅读全文
posted @ 2012-11-12 13:29 许小东 阅读(123) 评论(0) 推荐(0) 编辑