梟二熊

摘要： 先自定义枚举类型，然后用该枚举类型的个数定义一个字符串数组，再定义一个该枚举类型的变量，用于for循环时： procedure TForm1.Button3Click(Sender: TObject); type Tweeks=(mon,Tue,wed,thu,fri,sat,sun); var a 阅读全文

摘要： 多维数组： 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 阅读全文

摘要： 理论上，数组的容器就是进程，关闭程序，数组的那块才会释放掉。不像类（如窗体上的的按钮设置了容器即parent，它放在谁的上面，谁在释放之前就会把按钮先释放掉），类的对象有parent、owner这两个的一个就会跟着parent或者owner释放而释放。 直接释放一维会造成内存泄露。setlength 阅读全文

摘要： SetLength(Arr,J,N) 上式为二维数组分配空间，二维数组即是在第一维的元素J上，每个J元素里面再有N个元素。 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Con 阅读全文

摘要： ini文件保存用户对控件样式所做的更改（个性化定制）： unit Unit2; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics 阅读全文

摘要： 按自定义长度截取字符串，运行结果如下： 代码如下： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls,Math 阅读全文

摘要： 问题点归纳： sqlserver中，當字段定義為char(2)時,表示存儲的值一定會佔用2字符，不夠的用空格代替。即當存儲的值是1時，實際存儲的值是'1 '（1+一個空格），這樣Delphi前台代碼若直接將此值AsInteger就會報錯！ 知识点： ♥ char的长度是不可变的，varchar的长度 阅读全文

摘要： 记得把声明中的var和const与形式参数中的var和const区分开来！！ procedure TForm2.Button1Click(Sender: TObject); procedure TestVarOutConst(var sStr01: string; out sStr02: strin 阅读全文

摘要： 數據集query自帶了一個函數lookup，它會返回一個任意類型的值，需要3個常量參數： 參數1：字段名,參數2：字段值，參數3：需要返回其值的字段名。此函数主要作取值用。 //參數1為string類型，可以為多個值，用英文狀態下的;隔開【field之間要用英文狀態下的分號;隔開，用逗号,会报错】。 阅读全文

摘要： 文章摘自博文https://www.cnblogs.com/dmqhjp/p/14943140.html delphi自带的用于查找判断对象是否存在的2个函数：FileExists作用于文件，DirectoryExists作用于文件夹。若是用于查找判断本机网盘是否连有某个盘，无论是否连有，前者永远返 阅读全文