delphi

simple面板里呢？如果没出错提示应该是导入成功了。

通过操作params参数进行数据库同步，把对控件内容的改动和数据的改动自动化同步..

当然Edinburgh最好了。综合排名也很强啊！

建议代码贴完整，并指出在出现该错误时运行的分支及报错的语句。现在连变量的声明都看不到无法判断问题。

Jesse MccartneyGood LifeBeautiful SoulGood LifeJesse Mccartneyby:Lynn4455If I were you I"d be taking it easyKick back and relax for a little whileWe"ll all still be here tomorrowTake time just to act like a little childNo matter what the world has in store for usYou got the ring that better get off of usReach out for a comfortable chairRejoice and throw your arms in the air"Cause it"s a good life so why you trippin"The good life slippin" awayit"s a good life so why you trippin"The good life slippin" awayit"s a good life so why you trippin"The good life slippin" awayit"s a good life so why you trippin"The good life slippin" awayIf you"re boss is giving you pressureLet go, take a breather in the parkYou"ve got to find out what"s your pleasureIn time you"ll be singing like a larkPretty soon your sorry will chime for allSomebody will heed your callReach out for a comfortable chairRejoice and throw your arms in the airit"s a good life so why you trippin"The good life slippin" awayit"s a good life so why you trippin"it"s a good life so why you trippin"The good life slippin" awayThe good life slippin" awayit"s a good life so why you trippin"The good life slippin" awayTrade in some misery for some tender loving careCast aside those cloudy days fuses are all to bearMake up your mind get a whole new lease on lifeReach out for a comfortable chairRejoice throw your hands in the airit"s a good life so why you trippin"The good life slippin" awayit"s a good life so why you trippin"The good life slippin" awayit"s a good life so why you trippin"The good life slippin" awayit"s a good life so why you trippin"The good life slippin" awayit"s a good life so why you trippin"The good life slippin" awayit"s a good life so why you trippin"The good life slippin" away

procedure TForm1.Button1Click(Sender: TObject);begin fwClientDataset1.Append; //追加一列表格 fwClientDataset1.FieldByName("qty1").AsFloat:=StrToInt(Edit1.Text); fwClientDataset1.FieldByName("qty2").AsFloat:=StrToInt(Edit2.Text); fwClientDataset1.FieldByName("total").AsFloat:=StrToInt(Edit3.Text);end;

你Pointer那是指针类型 这个类型转成byte类型 没有意思 你要转的是传过来的数据 你传过来的数据 应该是存在stream里了 你找找stream转换的

就是一个ansichar数组var strary:array [0..255] of AnsiChar;len:integer;beginlen:=ord( strary[4])*256+ord(strary[5]);end;

比如：var g_iTmp:integer;g_pPointer:Pointer;g_pPointer:=@g_iTemp;{获取地址}

byte 数组是多大的啊。 告诉我大小和 值 我测试一下给你贴代码。

显示pointer是一个很模糊、有歧义的说法，究竟是要显示这个指针变量的地址，还是显示它所指向的别的变量、常量的值，方法是完全不同的。根据问题描述，只有第一种意图是可行的，方法如下：ShowMessage( Format( "%p", [ pointer ] ) );或者ShowMessage( IntToHex( PCardinal( @pointer )^, 8 ) );注：需要uses SysUtils第二种意图就需要准确地知道指向的究竟是个什么东西，一个整数、一个浮点数、一个字符、一个字符串、一个结构、一个对象、一个函数地址均可，具体办法视需求而异。

Delphi的pointer类型就是VC中的指针类型。主要在相应的类型后加上*就是指针类型了。 如： int * nBytes; void * p; 等等。

Pointer(s)是强制转型得到的指针，如Pchar(s)@是取地址。@Pointer(s)=@s基本上是这样的。

首先要知道PLC的通讯协议，然后用串口编程线把PLC和电脑连接起来，打开串口调试助手，通过ASCII码对应的数据向PLC发送数据。串口调试助手是串口调试相关工具，有多个版本。如：友善串口调试助手，支持9600，19200等常用各种波特率及自定义波特率，可以自动识别串口，能设置校验、数据位和停止位，能以ASCII码或十六进制接收或发送任何数据或字符，可以任意设定自动发送周期,并能将接收数据保存成文本文件，能发送任意大小的文本文件。硬件连接方面，传统台式PC机支持标准RS232接口，但是带有串口的笔记本很少见，所以需要USB/232转换接口，并且安装相应驱动程序。

第一个 table_entry = packed record entry_type:Cardinal; case Integer of 0:( value_type:Cardinal; value_data:^Byte; value_data_size::integer ); 1:( value_descriptor:Cardinal entry_guid:^Byte; entry_guid_size:integer ); end; 第二个太长了，看的眼花了。 uint64_t是无符号64位整数，delphi里面好像没有这样的类型，最接近了是INT64,不过是带符号的。packed不用也应该没问题的。

以下代码输出以标签的字体打印输出一行文字：printer.canvas.font.assign(label1.font);printer.canvas.font.pixelsperinch:=getdevicecaps(printer.canvas.handle,LOGPIXELSY);printer.begindoc;printer.canvas.textout(0,0,label.caption);printer.enddoc;

抓紧给分，人的基本素质：const HTTPPOST_FILENAME = 1; HTTPPOST_READFILE = 1 shl 1; HTTPPOST_PTRNAME = 1 shl 2; HTTPPOST_PTRCONTENTS = 1 shl 3; HTTPPOST_BUFFER = 1 shl 4; HTTPPOST_PTRBUFFER = 1 shl 5; HTTPPOST_CALLBACK = 1 shl 6;type size_t = DWORD; curl_read_callback = function (buffer: PChar; size, nitems: size_t; instream: Pointer): size_t;

type PMyRecord = ^TMyRecord; TMyRecord = record I: Integer; end; var R: PMyRecord; New(R); // 正确将 R 初始化 Dispose(R); // 正确释放 R 内存空间

type PMyRecord = ^TMyRecord; TMyRecord = record I: Integer; end; var R: PMyRecord; New(R); // 正确将 R 初始化 Dispose(R); // 正确释放 R 内存空间

看你t0~t11里面是什么，如果是普通的string，就v.t0.free;v.t1.free;...dispose(v);如果t0～t11里面是指向别处的指针，那要先释放指针指向的内存，再释放该stringlist。建议下个Eurekalog，可以查出内存泄漏。

type PMyRecord = ^TMyRecord; TMyRecord = record I: Integer; end; var R: PMyRecord; New(R); // 正确将 R 初始化 Dispose(R); // 正确释放 R 内存空间

又不是类，怎么可能有预定义的事情呢？

unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs;type TWhat = record a:string; b:string; c:integer; end; type TForm1 = class(TForm) private { Private declarations } public { Public declarations } function getWaht(what:TWhat):integer; //这里要在TWhat定义之后 end;var Form1: TForm1;implementation{$R *.dfm}{ TForm1 }function TForm1.getWaht(what: TWhat): integer;begin // getWahtend;end.

TOwnBook : record 前缺少关键字type以及TownBook与record之间是=号不是:号应该这样 type TownBook = record Code : string; Name : string; Price : string; OwnDays : integer; end;位置可以放在这里，不过按照书写代码的风格建议放到var Form4: TForm4;这两句的上面，这样一来比较划分区域,代码也显得好看些 调用没有错，就只是那一句错了.unit Unit4;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DBCtrls, DB, ADODB, Mask, ExtCtrls;type TForm4 = class(TForm)GroupBox1: TGroupBox; Panel1: TPanel; StaticText1: TStaticText; StaticText2: TStaticText; StaticText3: TStaticText; StaticText4: TStaticText; StaticText5: TStaticText; StaticText6: TStaticText; StaticText7: TStaticText; ComboBox1: TComboBox; DBEdit1: TDBEdit; DBEdit2: TDBEdit; DBEdit3: TDBEdit; DBEdit4: TDBEdit; DBEdit5: TDBEdit; ADOQuery1: TADOQuery; ADOQuery2: TADOQuery; ADOConnection1: TADOConnection; DataSource1: TDataSource; DBMemo1: TDBMemo; StaticText8: TStaticText; StaticText9: TStaticText; StaticText10: TStaticText; StaticText11: TStaticText; Edit1: TEdit; Edit2: TEdit; Edit3: TEdit; Edit4: TEdit; Button1: TButton; Button2: TButton; Button3: TButton; ADOTable1: TADOTable; ADOQuery3: TADOQuery; procedure Button3Click(Sender: TObject); procedure FormShow(Sender: TObject); procedure ComboBox1Change(Sender: TObject); procedure ComboBox1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); procedure Edit1Change(Sender: TObject); procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end;type TOwnBook = record //定义在此处 是不是因为定义的位置不对？ Code : string; Name : string; Price : string; OwnDays : integer; end;var Form4: TForm4;procedure TForm4.Button1Click(Sender: TObject);var tempOwnBook:TOwnBook; //变量定义在此处begin...end.

请问，你想问什么？

record类型是一种结构体，就是记录类型，需要用Type...End方式来定义，就像我们的数据表中的一条记录有很多列一样，先定义好每一列的属性，访问时就可以直接用 <记录.列>来表示了。比如定义一个公司记录结构，公司需要有名称、英文名称、地址、电话等信息//定义公司信息结构CompanyInfoType CompanyInfo=record Name:String;//名称 EName:String;//英文名称 Address:String;//地址 EAddress:String;//英文地址 Manager:String;//管理员 Phone:String;//电话 Fax:String;//传真 Tel:String;//手机End;//使用时定义一下变量Var MyCompany:CompanyInfo;//这时就可以直接给它赋值了MyCompany.Name:="XX公司"MyCompany.Tel:="1890000000"..............

与DELPHI无关。数据库的表设计有一条重要规则，凡是可以通过表中数据运算可以得出的结果，都不要在表中另设字段。比如单价乘以数量等于金额，那么，金额这个字段就不就该在表中出现。由此可知，在SQL语句中，是可以进行数据运算的;比如表中如果已经有了出生日期这个字段，我们就不在需要年龄这段字段，但是用户在浏览查询的数据的时候，又需要看到年龄，因为谁也不愿意去根据出生年月来搬手指计算年龄。因此我们必须在显示数据的栅格表中添加一列，显示年龄，这个年龄就要在SQL语句中计算了。先在本代码段的BEGIN前面定义一个变量DQRQ:string;然后再代码段中给它赋值:dqrq:=dateTostr(date);这样我们就可以写如下SQL语句:"selectzyidas住院号,xmas姓名,ryrqas入院日期,(#"+dqrq+"#-csny)/365as年龄,"+"jgysas经管医生,cyrqas出院日期,zyfyas住院费用,"+"fycdzas费用承担者,jcrqas交出日期,scras收取人,"+"gdrqas归档日期,gdras归档人frombagdb"+"wherejcrqisnullandscrisnullandcyrqisnotnullandryhsisnotnull"+"ORDERBYcyrqasc";请注意“(#"+dqrq+"#-csny)/365as年龄”的写法。这是ACCESS的写法，SQLserver2000的写法有些不同。SQLserver2000的日期值是不需要#的，它的写法如:TB_BR_JB.RYRQBETWEEN"""+edit15.Text+"""AND"""+edit16.Text+"""";RYRQ(入院日期)在表中是日期型字段。

如果部件已经对齐，为防止不小心移动部件，可以将部件位置锁定。选择主菜单上的Edit|LockControls选项，使得部件不能进行移动操作。解锁只需再次选择此项即可。调整“Shape”部件的大小，使之与右边的按钮组相匹配。再改变窗体的大小，按住并拖动窗体右下方使之刚好包容窗体上的全部部件。这样，您的用户界面就会比较美观。及时地保存所做的工作至关重要。对设计者来讲，有两个文件需要保存：库单元文件（以.PAS为后缀）和工程文件（以.DPR为后缀）。从主菜单上选择File|Save Project As...项，Delphi会显示标题为“Save Unit1 As”的文件保存对话框，Delphi 2.0 允许用户更改存储路径，您可以在下拉式列表框中选择。最好将您的文件保存在自己的目录中。在编辑框中键入demoform.pas以保存库单元文件；然后显示标题为“Save Project As”的另一个文件保存对话框，键入sample.dpr。Delphi保存这两个文件并返回窗体窗口。不要把库单元和工程存成一样的文件名，Delphi要求两者不同。第一次保存后，以后可以随时通过Speed Bar中的“Save All”和“Save file”来保存工程文件和库单元文件。一般来讲，当确认文件的改变后，要同时存储这两个文件。运行工程：操作使您有了一个自己的应用程序界面。在速度条中按动“Run”按钮（绘有绿色三角图标），您可以看到，所生成的界面与您设计的界面是完全一致的。改变对象的属性：上述的工程虽能够运行，但它对您的按动按钮操作是没有什么反应的，而且，所有部件上还写着不需要的字样。双击窗口的关闭按钮结束运行，回到设计界面。下面，将仔细讲述如何在Object Inspector中改变部件的各种属性。用Properties页改变部件的属性值：首先要改变各种部件的标题。先给窗口命名为“Demo”。按动Object Inspector上端的Object Selector的题条或者其右端的下拉标志，找到Form1项，并点动左键，窗体被选中。在Object Inspector的Properties页中，找到Caption属性并用左键选中，将其右端的Form1改为Demo，同时，您会发现窗体的标题已经相应地做了改变。用鼠标点中窗体中的Shape部件，Object Inspector列出了它的属性。选中Shape属性，您会发现右端出现了下拉标志。点动这一标志，可以查看对象的Shape属性可选值。它的形状可以是矩形、圆形、圆角矩形、方形等几种。这是设计后续功能的基础。选中Button1按钮，此时Object Inspector已经显示出此按钮的一应属性。将它的Caption属性改为“&Rectangle”，“&；”号使得Delphi特殊处理它后面的字符，在这里，按钮中的R字母被做了下划线处理，运行时，可以用“Alt-R”来按动这一按钮。同样，您可以将其它的两个按钮Button2和Button3的Caption属性改成需要的形状指示，譬如“&RoundRec”、“&Ellipse”。可以把某个按钮作为窗口上的缺省按钮，Delphi会为按钮加上有黑色的边缘。运行时，回车即相当于被按下。只需将此按钮的Default属性从False改成True，即将它设为窗体的缺省按钮。点动Default属性，在右端的值后面双击左键，或从下拉菜单中选取True，即可改变这一属性。Delphi中有许多只有True、False两个属性的部件，双击左键可以在这两个值之间切换。汉化界面及字体如果您的Windows95系统中安装了中文系统，对界面做汉化是极其方便的。例如，您可以将Button1的Caption属性改成“&R矩形”，同样地可改变其它部件的属性，将窗体做成中文的操作界面。若对中、西文字体不满意，则可以调整Font属性以满足您的要求。Font属性的前面，有一个小小的“+”号，这说明它表征的是集属性，也即属性不再是一个单值，而是一个属性的集合。双击Font，ObjectInspector将在下面扩充显示它的其它属性。Color用来表示文本的颜色，Name定义了字体名，如System,MsSerif,Arial,宋体，黑体等。Style下又拥有四个属性：fsBold,fsItalic,fsUnderline和fsTrikeOut。如果想让字体有其中的某种风格，可把相应的属性值设成True。Font对话框可以更为直接地设定以上属性。Font属性右侧值段有带省略号的按钮，单击它可以激活Font对话框，如图1.7所示：这一对话框中包含了上述的全部属性，使得调整字形更为直接方便。但要申明的是，对于窗体Form来讲，Font属性改变的是窗体中其它部件的显示字形，它本身的标题字体是缺省的System字体，不能通过属性来改变。图形编辑对话框最后，用图标按钮BitBtn1来控制Shape部件的颜色。选中图标按钮，将它的Caption属性改为“&Color”（或“&C颜色”）。可以在按钮中加入一个图标来形象地表述它的功能。选用ObjectInspector中的Glyph属性，点动值段的三点按钮，弹出图形编辑对话框。您可以通过图形编辑对话框装入图标，在本例程中，按动Load按钮，选择Delphi2.0ImagesButtonsBrush.bmp文件装入，Bitbtn1就成为一个图标按钮。另外，Delphi还为您提供了丰富的Windows标准图标按钮。想运用它们，改变BitBtn的Kind属性。用户不妨尝试一下，选择其它值可以生成漂亮的标准按钮，如OK,Cancel等等。这会使您在以后的程序开发中受益匪浅。至此，界面的设计工作就已完成了。运行一下观察效果，别忘记保存您的库单元文件、工程文件。事件处理过程完成用户界面，只是建立了一个“骨架”，下面要做的便是给程序加入“灵魂”，也即，使它能够完成所要求的功能。颜色编辑对话框图标按钮“Color”要控制部件Shape1的颜色，可以调入颜色编辑对话框，用以选择要变成的颜色。这时就要用到运行时不可视的部件ColorDialog了。同样地使图标按钮BitBtn1响应OnClick事件，在它的过程中加入以下的语句：ColorDialog1.Execute;Shape1.Brush.Color:=ColorDialog1.Color；这样，图标按钮的功能也就完成了。初学者可能对这样的程序段不能理解。其实也是十分简单的。查看ColorDialog的Brush属性，就会发现它是个集属性，在其下还有一个Color选项，正是想改变的属性。既然想将图形的颜色变得更加丰富多彩，它本身提供的几种颜色就已不能满足要求了。用颜色编辑器可以得到更多的色彩。程序的第一句用Execute方法，使得ColorDialog运行它本身。当用户在对话框中进行操作，选定了一种颜色时，即使得TColorDialog对象的一个属性Color置为选定颜色的值。将此值赋给Shape1的Brush属性的子属性Color，就将选定的颜色加到了图形上。读者的要求可能会是，怎样尽快的了解这些这些方法、属性和域呢？下文对使用联机帮助的简单介绍可能会对您有所裨益。使用联机帮助事实上，使用联机帮助是您全面地了解可用的方法、对象的域、??的例程。较为简单有效的方法是使用Help中的搜索功能。如果您对一个对象知之甚少，选用主菜单中的Help|HelpTopics项，在弹出的帮助对话框，选用Indexes（“索引”）页，Delphi2.0会提示您输入要检索的主题。以您想用的部件的对象名作为检索主题词，可以参阅很多基本的信息。例如，上文的例程中，在编辑框中键入对象的名称TColorDialog，在词条中就会出现该主题，按动Display按钮显示出TColorDialog的帮助信息。查看method，可以找到能应用在CclorDialog1上的方法Execute；仔细阅读它的功能，上述的编程便不难理解了。Properties中提供了部件的所有属性，在关键属性KeyProperties前加上了“金钥匙”，提供了详尽的说明。在Task中您可以查阅该对象的其它相关主题，还可以参阅Example中的应用例程。

Delphi Query控件使用 一、Query控件的Open方法和ExecSQL方法。这两个方法都可以实现执行SQL语句，如果这条SQL语句将返回一个结果集即select语句等，必须使用Open方法，如果不返回一个结果集即insert语句等，则要使用ExecSQL方法。例如： 上述的例子中，Query1所执行的SQL语句将返回一个结果集，因此必须用Open方法；而Query2所执行的是一条删除表记录语句，不返回结果集，因此用ExecSQL方法。 第二点是：如果Query控件用Open方法执行SQL语句，并且所用的SQL语句访问的是一张或几张频繁使用的表，在执行完SQL语句后，一定要调用SQL的FetchAll方法，能大大地减少死锁发生的概率。例如： 在上述的例子中，如果AA是一张被频繁访问的表，在对这个表执行这一条select语句的同时，如果恰好有其他人对这张表执行删除或更新操作，便有可能发生死锁。Query1.FetchAll这条语句实现的功能是释放加在表AA上的锁，这样死锁的发生概率可以大大减少。避免死锁，对我们将来进行大型数据库开发尤为重要。"

adoquery.first;while not adoquery.eof dobeginshowmessage(adoquery.Fieldbyname("字段名").AsString);//通过不同列名列移动adoquery.next;//行移动end;adoquery.first;while not adoquery.eof dobeginshowmessage(adoquery.Fields[0].AsString);//通过不同索引列移动adoquery.next;//行移动end;

你这个应该是插件，先打开工程，打开.dcu这个，编译，然后打开另一个（应该文件名一样，扩展不一样），编译，运行，不要保存，推出就行了

专业不一样

这是我以前写的步骤一、 直接使用Crystal Report 9.2 动态库... 21、 开发环境安装注意事项... 22、 在Delphi 7 中引入Crystal Report Viewer 控件... 2二、 Crystal Report 9.2 VCL 的安装... 31、 准备合适的VCL组件... 32、 安装VCL. 33、 对VCL组件中Demo使用的问题... 64、 VCL组件中的修改... 7三、 利用 Crystal Report 9 VCL 编程... 71、 利用VCL编写程序... 72、 简单连接数据源代码实现——只使用Tcrpe32组件就可以满足我们的需求... 83、 复杂数据源实现——需要TcrpeDS辅助实现数据源的连接... 84、 处理中遇到的问题... 11四、 如何发布自己的程序... 111、 利用InstallShield DevStudio 9来制作安装程序... 122、 运行库说明... 123、 遇到的一些问题... 14五、 总结现在你应该知道答案了 ，我就不多说了

procedure TForm1.BitBtn1Click(Sender: TObject);var a : integer;begin Listbox1.Items.Clear; progressbar1.Max:=10000;//和端口数量一致 progressbar1.Position:=0; for a :=0 to 10000 do begin application.ProcessMessages; serversocket1.Close; serversocket1.port :=a; try serversocket1.open; progressbar1.Position:=a except Listbox1.items.add(intTostr(a)+"端口被打开"); progressbar1.Position:=a end; end;end;

不是DELPHI自带的。需要安装APRO控件。

low(arr1)数组的下界，就是数组最小下标。high(arr1)就是上界，就是最大下标。因为 程序开始设置了动态数组arr1的大小 setlength(arr1,10) 因此arr1的数组长度为10.for i:=low(arr1) to high(arr1) dobeginarr1[i]:=i+1;arr2:=copy(arr1,1,3);memo1.Text:=inttostr(arr1[1]);就是 i从low(arr1) 到 high(arr1)进行循环：low(arr1)=0,high(arr1)=9,因为默认动态数组的下标是从0开始，10个元素，那么最后一个下标就是9。每一次循环 arr1[i]:=i+1;而arr2=copy(arr1,1,3)意思是从arr1数组下标为1开始拷贝3个元素给arr2.例如arr1=[1,2,3,4,5,6,7,8,9,10]那么arr2就是[2,3,4]

请描述详细些

如果你没登录成功，main窗体没创建，那么访问main.Active是会出现类似异常。

procedure TForm1.FormCreate(Sender: TObject);Var p:Pchar;begin getmem(P, 256); Strcopy(P, "123"); Application.MessageBox(p, "msg" ,64); p[0]:="2"; Application.MessageBox(p, "msg" ,64); Freemem(p);end;

Delphi本身不带Com控件,需要安装第三方控件，可以使用微软的MSComm,和专业的Spcomm控件.具体用法自己百度

excel中可以选定一些单元格，然后为这个区域定义一个名称。现在已知一个excel文件，有多个sheet，这些sheet中有几个命名了的区域，这些命名域有几个，在哪里，什么名称事先都不知道。。。我要用delphi打开这个文件，用程序自动找出里面总共有几个命名域，并且一一定位进行赋值，要怎么实现，请高手帮忙~~

能不能在通俗点得

clipboard search里边添加ClipBoard.pas的路径。或者你直接把该单元保存在同一目录下。 自带

不知道你要哪个软件的反编译，给你一个简单的调试器，可以用来监视程序└—Crypto Checker ; 用来分析软件采├—Delphi │ │ └—dede ;

cryptoAPI应该是通过获取电脑CPU，BIOS，硬盘ID等信息来加密的吧！这些信息有时候根据电脑不同，可能获取的到也许获取不到！可能是因为这个原因，所以说有的可以加密成为密文有的不可以。具体你要了解它使用到的一些函数。

展开全部{1、新建一个文本文档，在文档内输入：cur1CURSOR"E:lmove.cur"（格式：名称类别(ICO,CUSOR)文件路径）文件保存为**.rc文件，添加到你的工程中。2、编译执行就可以了。}procedureTForm1.FormCreate(Sender:TObject);beginScreen.Cursors[1]:=LoadCursor(hInstance,"cur1");Button2.Cursor:=1;end;

Self是指所编的程序范围是在哪一个类中，Delphi中大都在窗体范围内编程，因此，self即指窗体，如果在编写一个类或是一个组件，则self指该类或组件。我们在函数或过程的声明中可看出self是代表哪个组件，即self代表‘."号之前的组件,self只能用在类方法中，而不能用在过程或函数中，

Delphi IDE使用的一些主要技巧1、查找和替换（1）<ctrl>+F[1]：选择页“Find”，进行查找，则根据查找方向继续查找。选择页“Find in Files”，则进行该工程内的全文查找。（2）<ctrl>+R：替换。（3）设置书签和定位：设置书签：<ctrl>+<shift>+数字[2]定位书签：<ctrl>+数字2、窗体编辑（1）<F12>：在窗体编辑和代码编辑间进行切换。（2）<F11>：调用窗体组件属性/事件浏览设置器（Object Inspector）。（3）<菜单：view>+<菜单：Alignment Palette>：对齐面板：用于对齐各个可视组件。3、代码编写方面（1）<ctrl>+J：调用自动代码完成模板，实现成段代码的自动完成。关于模板的配置，可以 在<菜单：Tools> + <菜单：Editor Options…> + <面板：Source Options> + <按钮：Edi t Code Templates…>中完成。（2） <ctrl>+ <鼠标：单击>：查看所在方法的实现代码、所在变量的声明等内容。（3）<ctrl>+<Space>：代码自动完成提示<ctrl>+<shift>+<Space>：方法体内参数提示。4、程序编译和运行方面（1）<F9>：编译并运行（可以设置断点进行调试）。　 <F8>：单步调试，但是不进入到相关的子函数/过程体内 <F7>：逐步调试，调试深入每一个相关的子函数/过程体内。 　 <ctrl>+<F2>：结束程序调试运行状态，回到程序编辑状态。（2）<F5>：设置/取消设置程序的断点。（3）<ctrl>+<F7>：观察代码的值并附加新值（采用Modify功能）进行调试（注意：这个功 能仅仅在程序暂时终止状态下有效[3]），内附的Inspector功能可以查看该值/对象更加详细 的信息。<ctrl>+<F5>：查看对象在不同数据类型下的值的情况，在使用<ctrl>+<F7>调用的“Evaluate/Modify”功能中，也能够通过[按钮：modify]调用该功能。5、工程控制（1）To-do List。【作用】对工作的一种进度的记载和提示。下次进入开发时，可迅速的紧接上次开发。【操作方法】<鼠标右键>+：增加To-Do List内容。<菜单：view>+<菜单：To-Do List>：查看并定位到To-Do List部分。【操作技巧】To-Do List没有数目的限制，可以作为一个比较长期的设置程序书签（Bookmark）的工具来使用。注释：[1] Delphi中提供了使用+E进行增量查找的方法，我个人不是特别的欣赏。[2] 在此处，需要注意的是，所有的数字键不能使用小键盘上的数字键。[3] 让程序暂时终止的方法有两个：（1）程序运行到断点处，程序自动暂时终止，等待调试； （2）调用<菜单：Run…>+ <菜单：Program Pause>完成程序的暂时终止，等待调试。