癫狂编程

摘要： function GetTimeStr(Sec: Integer): string; begin if Sec >= 3600 then Result := Format('%d hour %d min %d sec', [Sec div 3600, Sec mod 3600 div 60, Sec 阅读全文

摘要： 要点: 1.指针的2中定义方法 PInteger 和 ^Integer 2.取地址符号 @ 和 Addr函数 3.取内容符号 ^ ,比如MyPointInt1^则是取MyPointInt1指针所指向的内容了。 program MyPoint; //指针详解 {$APPTYPE CONSOLE} us 阅读全文