09 2021 档案

指针（一级指针、二级指针）
摘要：代码如下： procedure TForm1.Button1Click(Sender: TObject); Type PPMyInteger=^PInteger;//定义一个二级指针类型 var vPint:PInteger;//一级指针//等价于vPint:^Integer; vPPInt:^PI 阅读全文
posted @ 2021-09-17 11:02 枭二熊 阅读(171) 评论(0) 推荐(0)
数字盒子
摘要：TNumBox是单元NumBox里自定义的类。 注意Text定义在delphi自带的Controls单元： property Text: TCaption read GetText write SetText; Unit1单元代码： unit Unit1; interface uses Window 阅读全文
posted @ 2021-09-14 17:02 枭二熊 阅读(58) 评论(0) 推荐(0)
点结构Tpoint
摘要：点结构Tpoint是delphi自带的类型，要注意和无类型指针Pointer区分开来！无类型指针笔记链接：https://www.cnblogs.com/168-h/p/14807404.html procedure TForm1.Button1Click(Sender: TObject); VAR 阅读全文
posted @ 2021-09-14 10:16 枭二熊 阅读(404) 评论(0) 推荐(0)
枚举类型
摘要：先定义一个函数： private function weekday(WDays:Integer):string; 看实现部分的代码： function TForm1.weekday(WDays: Integer): string; type Tweek=(sunday,monday,tuesday, 阅读全文
posted @ 2021-09-11 11:12 枭二熊 阅读(53) 评论(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 枭二熊 阅读(87) 评论(0) 推荐(0)
方法中的数组类型的参数
摘要：在方法中，出现数组类型的参数： procedure TForm1.Button2Click(Sender: TObject); type TOneArray = array of Integer; procedure AddArrayItem(var Arr: TOneArray; x: Integ 阅读全文
posted @ 2021-09-10 11:52 枭二熊 阅读(68) 评论(0) 推荐(0)
数组与枚举
摘要：先自定义枚举类型，然后用该枚举类型的个数定义一个字符串数组，再定义一个该枚举类型的变量，用于for循环时： procedure TForm1.Button3Click(Sender: TObject); type Tweeks=(mon,Tue,wed,thu,fri,sat,sun); var a 阅读全文
posted @ 2021-09-10 11:30 枭二熊 阅读(107) 评论(0) 推荐(0)
多维数组 && 动态多维数组
摘要：多维数组： procedure TForm1.Button1Click(Sender: TObject); const arr1:array[0..1,0..2,0..3]of Integer =(((1,2,3,4),(1,2,3,4),(1,2,3,4)),((1,2,3,4),(1,2,3,4 阅读全文
posted @ 2021-09-10 11:25 枭二熊 阅读(65) 评论(0) 推荐(0)
动态数组 && 释放问题
摘要：理论上，数组的容器就是进程，关闭程序，数组的那块才会释放掉。不像类（如窗体上的的按钮设置了容器即parent，它放在谁的上面，谁在释放之前就会把按钮先释放掉），类的对象有parent、owner这两个的一个就会跟着parent或者owner释放而释放。 直接释放一维会造成内存泄露。setlength 阅读全文
posted @ 2021-09-09 16:32 枭二熊 阅读(178) 评论(0) 推荐(0)
二维数组
摘要：SetLength(Arr,J,N) 上式为二维数组分配空间，二维数组即是在第一维的元素J上，每个J元素里面再有N个元素。 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Con 阅读全文
posted @ 2021-09-08 17:05 枭二熊 阅读(527) 评论(0) 推荐(0)
ini文件保存用户对控件样式所做的更改（个性化定制）
摘要：ini文件保存用户对控件样式所做的更改（个性化定制）： unit Unit2; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics 阅读全文
posted @ 2021-09-03 14:57 枭二熊 阅读(116) 评论(0) 推荐(0)
按自定义长度截取字符串
摘要：按自定义长度截取字符串，运行结果如下： 代码如下： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Math 阅读全文
posted @ 2021-09-02 08:57 枭二熊 阅读(90) 评论(0) 推荐(0)