2021年9月11日
枚举类型
摘要： 先定义一个函数： private function weekday(WDays:Integer):string; 看实现部分的代码： function TForm1.weekday(WDays: Integer): string; type Tweek=(sunday,monday,tuesday, 阅读全文
posted @ 2021-09-11 11:12 枭二熊 阅读(30) 评论(0) 推荐(0) 编辑
递归函数
摘要： 先定义一个函数： private function recursion(x:Real):Real; 实现代码： implementation {$R *.dfm} function TForm1.recursion(x: Real): Real; begin if x=0 then begin // 阅读全文
posted @ 2021-09-11 09:38 枭二熊 阅读(62) 评论(0) 推荐(0) 编辑