TMyProc procedure of Object obj Txxx Create ProcPtr obj t

最新推荐文章于 2023-04-29 16:20:05 发布
原创 最新推荐文章于 2023-04-29 16:20:05 发布 · 3.5k 阅读 · 0 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。

本文分享了Delphi程序设计的实例，包括按钮点击事件处理、方法传递等，通过具体代码展示了Delphi语言的使用技巧。

分享一下我老师大神的人工智能教程！零基础，通俗易懂！http://blog.youkuaiyun.com/jiangjunshow

也欢迎大家转载本篇文章。分享知识，造福人民，实现我们中华民族伟大复兴！

                
type  TForm1 = class(TForm)    Button1: TButton;    Button2: TButton;    procedure Button1Click(Sender: TObject);    procedure   BBB(I:   Integer);    procedure   CCC(I:   Integer);    procedure Button2Click(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;  Txxx=class     procedure test;  end;TMyProc=procedure of Object;TMyFunc=function(a: Integer): Integer of Object;var  Form1: TForm1;implementation{$R *.dfm}procedure Txxx.test;begin  showmessage('1');end;procedure   TForm1.BBB(I:   Integer);begin     showmessage( 'BBB: '   +   IntToStr(I)); end;procedure   TForm1.CCC(I:   Integer); begin     showmessage( 'CCC: '   +   IntToStr(I)); end;procedure TForm1.Button1Click(Sender: TObject);var ProcPtr:TMyProc; obj:Txxx;begin   obj:=Txxx.Create;  ProcPtr:= obj.test;//Txxx.test;  ProcPtr;   obj.Free;end;procedure TForm1.Button2Click(Sender: TObject);type         Taaa   =   procedure   (i:integer)   of   object   ; var     ap:   Taaa; begin     ap   :=   BBB; //这里有一个隐含Self,完整格式: self.BBB;这里把BBB这个方法赋给ap这个变量，注意BBB与ap的声明原型要一样，不然会有错    ap(1);     ap   :=   CCC;     ap(2); end;end.

           

给我老师的人工智能教程打call！http://blog.youkuaiyun.com/jiangjunshow
这里写图片描述
Ubuntu通过ssh远程登陆主机并复制文件（附The authenticity of host '192.168.XXX.XXX' can't be established. 解决方法）
dugudaibo的博客
12-21 3326
ssh SCP
Delphi 关键字详解大全
yygyyygy1233的博客
11-06 708
absolute //它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同. var Str: string[32]; StrLen: Byte absolute Str; //这个声明指定了变量StrLen起始地址与Str相同. //由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度. begin Str := ‘abc’; Edit1.Text := IntToStr(StrLen); end; abstract //它允许你创建抽象的方法, 包括有抽象方法的类称
http://www.xxx.com/ skipped. Content of size 67099 was truncated to 59363
热门推荐
aa346359669的博客
01-07 161万+
如果提示http://www.xxx.com/ skipped. Content of size 67099 was truncated to 59363 在nutch-site.xml中添加： [code="java"] parser.skip.truncated false [/code] 这是因为网站的页面内容采用truncate的方式分段返回，而nutch...
XXX.rar_H XXX_XXX.www._https://cn.txxx.com_wwwxxxex_xxxwww.98
09-23
信号处理入门级程序，包含了数据采集，频谱分析等
TMyProc=procedure of Object;obj:=Txxx.Create;ProcPtr:= obj.test;
autumn20080101的专栏
12-04 2万+
type TForm1 = class(TForm) Button1: TButton; Button2: TButton; procedure Button1Click(Sender: TObject); procedure BBB(I: Integer); procedure CCC(I: Integer); procedur
procedure of object(一个特殊的指针类型)
autumn20080101的专栏
12-04 1079
procedure of object(一个特殊的指针类型)       理论:     //适用于实现不是某一特定过程或函数           type                 TNotifyEvent = procedure(Sender: TObject) of object;        首先：procedure 也是类型,可以理解为过程类型，定义过程的
delphi指针大全.pdf
07-01
obj: TObject; ptr: ^TObject; begin ptr := @obj; // ptr现在指向obj的地址 end; ``` 这与C中的`ptr = &obj;`相当。 5. **指针运算** Delphi中的指针可以进行类似C语言的运算，如增加或减少指针。例如，...
实例Delphi演示过程采用指针的形式存储..rar
05-08
TMyProc = procedure(AValue: Integer) of object; var Proc: TMyProc; begin Proc := MyFunction; // 将函数赋值给函数指针 Proc(10); // 通过函数指针调用函数 end; ``` 在这个例子中，`TMyProc`是定义的...
Delphi常用关键字用法详解
yygyyygy1233的博客
02-08 444
Delphi常用关键字用法详解 更新时间：2014年07月19日 12:36:02 投稿：shichen2014 我要评论 这篇文章主要介绍了Delphi常用关键字用法,包括了各个常用的关键字及其详细用法,需要的朋友可以参考下 本文详细介绍了Delphi中常用的各个关键字名称及用法，供大家在编程过程中借鉴参考之用。详情如下： absolute： //它使得你能够创建一个新变量, 并且该变...
Delphi6_Function.rar_windows
09-24
TMyProc = procedure(Param1, Param2: Integer); var MyProc: TMyProc; MyProc := procedure(Param1, Param2: Integer) begin // 执行操作 end; // 调用函数指针 MyProc(10, 20); ``` 八、异常处理 Delphi...
Can't connect to any repository: xxxxxx Error writing request body to server
weixin_34121304的博客
03-12 1万+
今天在git提交代码时一直报如下错误： Can't connect to any repository: https://gitee.com/xxxxxx(https://gitee.com/xxxx: Error writing request body to server) 后来经过谷歌发现是git默认的post缓存为1M,当项目过大时，就会出现问题。 解决方案： 一、gitBash修...
nginx对于XXX.com和XXX.com/index给映射到www.xxx.com的方式
fhb19870610的专栏
05-15 53万+
location / {             root    C:/website;             index   index.html index.htm index.php;             include C:/website/.htaccess; if ($host !~ "www.xincanzs.com") { rewrite
docker login www.xxx.com 报错
灵豸
08-11 4834
docker 在远程ssh登陆时报错 docker login www.xxx.com 输入用户名：输入密码：出现如下错误：解决方案：
client error java,【原创】Java HttpClient Error: Connection refused | EMFILE (T
weixin_42164534的博客
03-10 3385
Java HttpClient Raise Error: Connection http://www.xxx.com refused在 Android 上运行 jar,目的是从服务器一直获取消息, 使用 HTTP 服务.但是每次启动进程, 当请求次数达到1010 时候, 总是会报错:杀掉进程重新启动, 一切正常,1000次后又是连接被重置.检查 HTTP 服务, 用 PC 访问API 正常, 在 ...
例子(点击www.xxx.com/yyy/index.php)
linux系统、网络编程和分布式计算
04-11 6万+
一 点击www.xxx.com/yyy/index.php发生的事情： (1)浏览器向DNS请求解析www.xxx.com的IP地址。 (2)DNS系统解析出www.xxx.com的IP地址。 (3)浏览器用得到的IP地址与服务器建立TCP连接(三次握手): *客户端TCP发送一个连接请求到远端服务器(目的主机)，利用解析得到的IP地址发送一份IP数据报。如果目的主机在本地网络上，
python: can't open file 'sqlmap': [Errno 2] No such file or directory
happy_hsf的博客
09-08 8121
解决方案： cd /usr/bin 然后再执行： python sqlmap -u http://www.xxx.com
在网址上输入www.xxx.com到返回界面给用户发生了什么？
weixin_51287642的博客
08-06 30万+
在网址上输入www.xxx.com到返回界面给用户发生了什么？ DNS域名解析（https://blog.youkuaiyun.com/yanshuanche3765/article/details/82589210）–>tcp三次握手建立连接（https://blog.youkuaiyun.com/xy010902100449/article/details/48274635）–>向服务器发送http请求，请求html文件–>服务器返回一个html文件–>tcp四次握手释放连接–>游览器解释html
2023高薪前端面试题（一、前端基础——HTTP/HTML/浏览器）
iaz999的博客
04-29 3689
语义化就是构成HTML结构的标签要有意义。比如有这样的标签：header表示页面头部main表示页面主题footer表示页面底部那么这些标签构成的HTML结构就是有意义的，也是语义化的。​ 如果说页面的头部、主体以及底部都用div来表示，那么他就不是一个语义化的HTML结构了。
http://www.htsjpt.com/admin.php,webshell/php/xiao.php.txt at f875e7b78085777b8a10c3456478dbd192d851a...
weixin_39980575的博客
03-13 107万+
eval(gzuncompress(base64_decode("eJzsvfl3G8eROP6z/J7/h9GYK4AmiIP3IVDiTUq8RJA6qceHY0BABDDQAOAhW/u/MNpNvLJ2I0qkLoq6SJsUZVEUSUmOnnP4WCeO1slGzsd2rDjvW9XHTA8wACnFye7nky9tkUAf1dXV1dXV1dXViqap2rCmJFUtHU2M2Ku...
delphi 是空判断函数
最新发布
06-06
<think>在Delphi中，判断变量是否为空（即是否为nil）的函数或操作取决于变量的类型。以下是常见的几种情况：1.对于指针（包括对象引用）：可以直接使用`Assigned`函数或与`nil`比较。2.对于函数指针：同样可以使用`Assigned`或与`nil`比较。3.对于字符串：可以使用`Length`函数或与空字符串`''`比较。4.对于动态数组：可以使用`Length`函数或与`nil`比较（注意动态数组是隐含指针的）。5.对于变体类型（Variant）：可以使用`VarIsEmpty`或`VarIsNull`函数。根据引用内容，特别是引用[1]和[3]中提到函数指针，引用[4]中强调了`Assigned`函数的使用，以及释放对象后需要将指针置为nil的重要性。下面将详细说明：1.`Assigned`函数：用于检查指针或对象引用是否不为nil。它返回一个布尔值，如果指针不是nil则返回True，否则返回False。注意，对于已经释放但没有置为nil的指针，`Assigned`仍然返回True，因为指针本身的值（地址）并没有被改变（尽管指向的内存已被释放）。因此，在释放对象后，应该将指针置为nil，以避免悬垂指针。示例代码：-对象引用：```delphiifAssigned(MyObject)then//执行操作```-函数指针：```delphitypeTMyFunc=function(a:Integer):Integer;varMyFuncPtr:TMyFunc;begin//...ifAssigned(MyFuncPtr)thenMyFuncPtr(10);end;```2.直接与nil比较：也可以直接使用`@p=nil`（对于函数指针）或`p=nil`（对于对象引用）。示例：-对象引用：```delphiifMyObject<>nilthen//执行操作```-函数指针（根据引用[1]和[3]）：```delphiif@MyFuncPtr=nilthen//函数指针为空```注意：对于函数指针，在Delphi中，`Assigned(MyFuncPtr)`和`@MyFuncPtr<>nil`是等效的。3.对于字符串：使用`Length(s)=0`或`s=''`。4.对于动态数组：使用`Length(arr)=0`或`arr=nil`。特别注意：在释放对象时，应该使用FreeAndNil过程（在SysUtils单元中），它会在释放对象后将指针置为nil，这样可以避免使用已释放的对象。示例：```delphiFreeAndNil(MyObject);//之后，Assigned(MyObject)将返回False```因此，具体使用哪种方式取决于要判断的变量类型。对于指针类型（包括对象、函数指针、动态数组等）使用`Assigned`或与nil比较；对于字符串和动态数组还可以使用长度判断。总结回答用户问题：在Delphi中判断变量是否为空，对于指针类型（对象、函数指针等）使用`Assigned`函数或与nil比较；对于字符串，判断其是否为空字符串或长度为0；对于动态数组，判断长度是否为0或是否为nil。下面提供几个常用类型的判断示例：1.对象：```delphiifnotAssigned(MyObject)then//对象为空//或者ifMyObject=nilthen//对象为空```2.函数指针：```delphiifnotAssigned(MyFunc)then//函数指针为空//或者if@MyFunc=nilthen//函数指针为空```3.字符串：```delphiifMyString=''then//字符串为空//或者ifLength(MyString)=0then//字符串为空```4.动态数组：```delphiifMyArray=nilthen//动态数组为空//或者ifLength(MyArray)=0then//动态数组为空（注意：长度为0不一定等于nil，但通常可以这样认为）```注意：对于动态数组，在Delphi中，长度为0的数组和nil并不完全等同，但在逻辑上都可以代表“空”。但为了避免混淆，建议使用`Length`函数来判断是否没有元素。最后，根据引用[4]中提到的，释放对象后一定要置为nil，以避免出现悬垂指针。§§相关问题§§1.Delphi中如何安全地释放对象并置为nil？2.在Delphi中，如何判断一个字符串或动态数组是否为空？3.Delphi中函数指针的使用方法和注意事项有哪些？4.在Delphi中，如何避免使用已释放的对象（悬垂指针）？</think> 在Delphi中判断变量是否为**空值**（主要指指针类型、函数指针或对象引用），主要有以下方法： ### 一、通用判断方法 1. **`Assigned()`函数**（最推荐） 判断指针或对象引用是否有效： ```delphi if Assigned(MyPointer) then // 非空指针的操作 else // 指针为空时的操作 ``` **原理**：检查指针是否指向有效内存地址（非`nil`），适用于： - 对象引用（如`TForm`） - 函数指针（如`TMyProc = procedure of object`） - 普通指针（如`PInteger`） > 注意：对象释放后需手动置`nil`，否则`Assigned`仍返回`True`（引用[^4]） 2. **直接与`nil`比较** 基础指针检查方式： ```delphi if MyPointer = nil then // 指针为空 ``` ### 二、特殊类型空值判断 1. **函数指针空值**（引用[^1][^3]） ```delphi type TMyFunc = function(X: Integer): Integer; var F: TMyFunc; begin if @F = nil then // 或 Assigned(F) ShowMessage('函数指针未初始化'); end; ``` **关键**：需用`@`取函数指针地址再判断 2. **字符串空值**（引用[^2]） 判断字符串是否为`''`： ```delphi if MyString = '' then // 空字符串 ``` 判断全数字字符可参考`isnum`函数（引用[^2]） 3. **动态数组空值** ```delphi if Length(MyArray) = 0 then // 空数组 ``` ### 三、使用注意事项 1. **对象释放规范**（引用[^4]） 释放对象后必须显式置`nil`： ```delphi FreeAndNil(MyObject); // 正确做法 // 错误做法：MyObject.Free后未置nil ``` 2. **线程安全**（引用[^5]） 多线程环境应使用同步机制： ```delphi var CriticalSection: TRTLCriticalSection; begin EnterCriticalSection(CriticalSection); try if Assigned(SharedVar) then ... finally LeaveCriticalSection(CriticalSection); end; end; ``` > **总结建议**：优先使用`Assigned()`判断指针/对象，字符串用`=''`，动态数组用`Length=0`，并在释放对象后务必置`nil`。
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值