参考:http://blog.csdn.net/qustdong/article/details/9230743 参考:http://www.cnblogs.com/xumenger/p/4402227.html 1.根据枚举定义集合 type TMyColor = (mcBlue, mcRed); //定义了一个枚举类型TMyColor TMyColorSet = set of TMyColor; //定义了一个基于枚举类型的集合TMyColorSet 2.根据枚举定义数组 type TMyE

根据日常编程经验,得出一些Delphi中关于资源释放的体会. 假如有对象Obj为TObject类型: 1) Obj.Free直接释放资源后,调用OnDestroy事件,但是没有将Obj指针值置为Nil. 2) Obj.Release 等待资源不再使用后释放资源,同样不修改Obj指针为Nil,所以在OnDestroy中最好使用Release进行资源释放操作. 3) 局部变量释放资源时,可以考虑用FreeAndNil()释放资源,这样效率会高些,能提高内存的利用率. 4) 单纯通过Assigned(

在业务开发过程中,添加枚举,在固定枚举值的同时,也需要中文的文案. 如果不想添加语言资源项.添加枚举转语资源项,可以使用特性标记. 属性描述 DescriptionAttribute 先看案例: public enum WheelchairDataType { [Description("前进加速")] ForwardAdd, [Description("前进减速")] ForwardReduce, [Description("后退加速")] B

场景 实现效果如下 注: 博客: https://blog.csdn.net/badao_liumang_qizhi 关注公众号 霸道的程序猿 获取编程相关电子书.教程推送与免费下载. 实现 将布局改为LinearLayout,并通过android:orientation="vertical">设置为垂直布局,然后添加id属性. 然后在res下values下新建arrays.xml,数组资源文件,用来存储listView的选项内容 arrays.xml: <?xml ver

在android中我们可以通过数组资源文件,定义数组元素. 数组资源文件是位于values目录下的 array.xml <?xml version="1.0" encoding="utf-8"?> <resources> <string-array name="listitem"> <item>活着就是为了被世界改变</item> <item>机遇很重要</item&g

lldb报错:Terminating app due to uncaught exception 'NSGenericException', reason: '*** Collection <__NSArrayM: 0x7f9a5a47dda0> was mutated while being enumerated.' bug代码: //判断是否存在,存在就删除 for (NSDictionary *dic in userAccountPwdMutalDatas) { if ([dic obj

就一个button事件 procedure TForm1.btn7Click(Sender: TObject); Type TMyArr = array of array of array of Integer; {定义一个三维动态数组类型} Pint = ^TMyArr; var PArr: Pint; {动态数组指针变量} i,j,k,ic,jc,kc: Integer; begin Memo1.Lines.Clear; {用作维数的变量} ic := ; jc := ; kc := ; {

因为要调用windows的api或者给vc++写接口,很多地方都要用到pchar,现在将char数组.string和pchar之间的相互转换都列出来,都是网上找的资料,我总结一下,先直接上代码,再讲原理. 1.string转换成pchar 可以使用pchar进行强制类型转换,也可以使用StrPCopy函数 var s:string; p,p1:PChar; begin s:='Hello Delphi'; p:=PChar(s); ShowMessage(p); p1:=StrAlloc(Len

delphi xe7 中对数组操作做了很多扩充,比如加入了类似字符串处理的功能. 例如,数组相加 var A: array of integer; B: TBytes = [1,2,3,4]; //Initialization can be done from declaration begin ... A:=[1,2,3]; // assignation using constant array A:=A+[4,5]; // addition - A will become [1,2,3,4,

题目1 : Visiting Peking University 时间限制:1000ms 单点时限:1000ms 内存限制:256MB 描述 Ming is going to travel for n days and the date of these days can be represented by n integers: 0, 1, 2, …, n-1. He plans to spend m consecutive days(2 ≤ m ≤ n)in Beijing. During

冰清玉洁丶YCB 发布时间: 2017年6月18日 21:39   最后更新: 2017年6月18日 21:40   时间限制: 1000ms   内存限制: 256M 描述 YCB是公认的冰清玉洁,人称锦州刚猛好男儿,凌河区一把刀. 一天YCB来到了一个n × m迷宫,每一个单位或者是空地("."),或者是墙("*"). YCB当时就不乐意了,毕竟做为锦州刚猛好男儿,怎能被区区几个墙给挡住? 于是YCB选择在一个单位放置一个东北大炸弹(如果炸弹在(x, y),那么

模型类的某些属性以枚举形式出现,我们希望在打开编辑表单时在选择列表中显示枚举值.有时我们想要枚举元素名称,但有时我们想要使用自定义名称甚至翻译. 这个例子演示了如何获取枚举元素名称以选择ASP.NET Core上的列表. 假设我们有一个客户实体,其客户类型属性定义为枚举. public class Customer { public Guid Id { get; set; } public string Name { get; set; } public CustomerTypeEnum Typ

SetLength(OldDeptInfo,0); //释放旧数组 OldDeptInfo:=nil; 这样也可以: //SetLength(OldDeptInfo,Length(NewDeptInfo)); //不需要设定长度: OldDeptInfo:= NewDeptInfo; //动态数组的引用: NewDeptInfo:=nil; //释放其中一个数组引用,数组还是存在的:

枚举类型定义了一系列有序值的集合.枚举变量就是从这个既定的集合中取某个值.集合中的有序值可以称为元素,元素一般从0开始索引(也就是元素的顺序号). 定义一个枚举类型,采用以下的格式: type typeName = (val1, ..., valn) 其中typeName和每一个val都必须是有效的标识符. { type中定义枚举类型} type TSize = (Small = 5, Medium = 10, BeforLarge, Large = Small + Medium); { TSi

在spring的配置文件xml中 示例: <!--注入枚举数組--> <bean id="writeMapNullValue" class="org.springframework.beans.factory.config.FieldRetrievingFactoryBean"> <property name="staticField" value="com.alibaba.fastjson.seriali

TIntArray = array of Integer; function MergeArray(const ArrayA, ArrayB: TIntArray): TIntArray; var ilen: Integer; begin//Copy(intArray, iFromPos, Count) 选取拷贝,或者全部拷贝  Copy(intArray) Result := ArrayA; if Length(ArrayB) > 0 then begin ilen := Length(Arr

通过进程快照枚举所有进程,关于进程快照,在Delphi5开发人员指南中有说明,当然也可以百度一下用法. 使用进程快照CreateToolhelp32Snapshot,必须uses TlHelp32单元. 从快照中得到的进程ID,可以获得进程的很多信息,这里不多说,网上有很多资料,具体需要什么可以百度查一下. 以这里记录一下,方便以后查找 unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graph

TDMSRequestBuffer=object    Head:TDMSHead;    Data:array[0..2047] of char;    DataSize:Integer;    procedure Init(Sys:TDMSSysType;Svr:TDMSSvrType);    procedure EncodeRequest;    function Size:integer;  end; 目的,保存Data function SaveDataToFile(AFileNam

FillChar(aryTest[Low(aryTest)],    Length(aryTest) * SizeOf(aryTest[Low(aryTest)]), 0);

https://www.cnblogs.com/xalion/p/4283491.html

delphi资源文件详解 一.引子: 现在的Windows应用程序几乎都使用图标.图片.光标.声音等,我们称它们为资源(Resource).最简单的使用资源的办法是把这些资源的源文件打入软件包,以方便程序需要的时候调用.资源是程序的一部分,程序要正常运行就离不了资源文件.但是它是不可执行代码. 为了更好地管理资源,Delphi中提供了一种.RES类型的资源文件.它可以把我们程序中所需要的资源整合到一个资源文件(.RES)下来.在编译应用程序时直接编译进了可执行程序里,成为应用程序的整合体. 这样