设置前先获得Memo的字体属性并设置给FontDialog然后再设置MEMO的字体属性//设置Memo的字体属性procedureTFo…
inc自增函数1.inc(i,n);//i,n:integer;n为自增量相当于i:=i+n;2.inc(i);//i:integer;相当于i:=i+1…
问题:在Delphi中,如何将集合数据类型中的某元素取出来?如set1:=[1,2,3,4,5,6]中的第三项3取出放入一变量中…
Goto语句可使程序离开当前位置直接跳至某个特定的语句执行,其形式为:gotolabel;后面的label表示语句标签,…
尽管运行带有参数的应用程序是过去的日子,但是新版本的操作系统使您可以在应用...
DelphiRecord,两种声明方式记录是Delphi(Pascal)的独特功能之一,在对我们的应用程序进行编码时非常有用…
usesGenerics.Collections;{Delphi2009新增的泛型容器单元}varaa:TDictionary;arr:TArray;n:integer;begina…
procedureTForm1.btn1Click(Sender:TObject);constArr:array[1..10]ofstring[11]=('13622220001','13622220…
unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,St…
控制台读写programProject1;{$APPTYPECONSOLE}varstr:string;beginWriteln('请输入:');Readln(str);Writel…
学习使用资源文件[7]-字符串资源//rc文件:StringTablebegin0"AAAA"1"BBBB"2"CCCC"3"DDDD"end//也可以这样写…
unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,St…
Delphi2009之TStringBuilder类[2]:Append与AppendFormatunitUnit1;interfaceusesWindows,Messages,SysUtils…
Delphi2009之TStringBuilder类[1]:CreateunitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Clas…
Delphi2009之TStringBuilder类[5]:Chars[]属性与CopyTo方法unitUnit1;interfaceusesWindows,Messages,SysUt…
unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,St…
unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,Classes,Graphics,Controls,Forms,Dialogs,St…
ObjAuto单元应该算是对TypInfo单元的功能扩展吧?它提供了5个方法:GetMethods、GetMethodInfo、CreateMethod…
已经有了:TList、TQueue、TStack、TDictionary为什么还有:TObjectList、TObjectQueue、TObjectStack、TObje…
TDictionary类似哈希表.本例效果图:代码文件:unitUnit1;interfaceusesWindows,Messages,SysUtils,Variants,…