关于函数指针

2004-10-22 12:44:45 176 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

xthmpro_cn 墨衍会员 · AI 创作全网分发关注 + 加入社区

数据分析利器Origin 2022安装教程【附安装包】 Origin是一个科学绘图、数据分析软件，支持各种各样的2D/3D图形，包括统计，信号处理，曲线拟合以及峰值分析，Origin具有强大的数据导入功能和多样的图形输出格式。阅读详情

我将一个类函数扶植给两个控件的OnKeyDown事件,我在代码中如何比较这两个控件使用的是OnKeyDown是同一个函数?
谢谢!

...全文

PyGPT：桌面AI助手整合大模型与本地知识库，打造高效工作流大语言模型（LLM）通过理解和生成自然语言，正深刻改变人机交互方式。其核心原理是基于海量数据训练的Transformer架构，能够根据上下文进行预测和生成。这一技术价值在于将强大的AI能力平民化，广泛应用于代码生成、文档分析、创意写作和智能问答等场景。通过API调用云端模型或本地部署开源模型，开发者可以构建个性化的AI应用。本文聚焦于PyGPT这一桌面AI助手，它巧妙地将ChatGPT、Claude、Gemini等主流大模型与LlamaIndex、Ollama等本地化工具整合，实现了聊天、文件分析、代码解释阅读详情

xthmpro_cn

Delphi 5,944 成员 262,941 内容

+ 关注 + 加入社区

切换为时间正序

hottey 2004-10-22

打赏
举报

函数地址是一样的啊！

快乐老猫 2004-10-22

打赏
举报

直接用=就可以

Bitter_fish 2004-10-22

打赏
举报

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class( TForm )
Button1: TButton;
Button2: TButton;
B_Check: TButton;
procedure B_CheckClick( Sender: TObject );
procedure FormCreate( Sender: TObject );
private
P_OnKeyDown1, P_OnKeyDown2: Pointer;
procedure KE1( Sender: TObject; var Key: Word; Shift: TShiftState );
procedure KE2( Sender: TObject; var Key: Word; Shift: TShiftState );
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}
procedure TForm1.FormCreate( Sender: TObject );
begin
Form1.Button1.OnKeyDown := KE1;
Form1.Button2.OnKeyDown := KE2;
//改为 Form1.Button2.OnKeyDown := KE1; 试一下
end;

procedure TForm1.B_CheckClick( Sender: TObject );
begin

P_OnKeyDown1 := @Form1.Button1.OnKeyDown; //检察是否同一例程
P_OnKeyDown2 := @Form1.Button2.OnKeyDown;

ShowMessage( inttostr( integer( P_OnKeyDown1 ) ) );
ShowMessage( inttostr( integer( P_OnKeyDown2 ) ) );

if P_OnKeyDown1 = P_OnKeyDown2 then
ShowMessage( 'YES' )
else
ShowMessage( 'NO' );

end;

procedure TForm1.KE1( Sender: TObject; var Key: Word; Shift: TShiftState );
begin
ShowMessage( 'This is KE1' );
end;

procedure TForm1.KE2( Sender: TObject; var Key: Word; Shift: TShiftState );
begin
ShowMessage( 'This is KE2' );
end;

end.

ghchen 2004-10-22

打赏
举报

可以在函数里修改变量

xthmpro_cn 2004-10-22

打赏
举报

看Sender是不行的,我不是在函数内比较,而是在函数外比较后,如果不等于某个函数,重新赋值.
请大家帮忙

tsst 2004-10-22

打赏
举报

看sender

xthmpro_cn 2004-10-22

打赏
举报

呵呵给分了!

关于函数指针

相关推荐