//先写了 TEdit 的 函数
procedure TCanParaSetForm.FunctioCodeEditKeyPress(Sender: TObject;
var Key: Char);
var i :Integer;
begin
if Key = #13 then
begin
// i:= StrToInt(LeftStr(FunctioCodeEdit.Text,2));
i:= StrToInt(LeftStr(TEdit(Sender).Text,2));
m_Comm60h_Record.m_FunctionCode:=(i div 10*16)+i mod 10;
end;
end;//然后在
procedure TCanParaSetForm.FormCreate(Sender: TObject);
中调用这个函数
/// FunctioCodeEditKeyPress((TObject)FunctioCodeEdit,#13);
FunctioCodeEditKeyPress(TObject(FunctioCodeEdit),#13);
总是出错
[Error] CanParaSetUnit.pas(261): Types of actual and formal var parameters must be identical为什么???
请教各位了!!
procedure TCanParaSetForm.FunctioCodeEditKeyPress(Sender: TObject;
var Key: Char);
var i :Integer;
begin
if Key = #13 then
begin
// i:= StrToInt(LeftStr(FunctioCodeEdit.Text,2));
i:= StrToInt(LeftStr(TEdit(Sender).Text,2));
m_Comm60h_Record.m_FunctionCode:=(i div 10*16)+i mod 10;
end;
end;//然后在
procedure TCanParaSetForm.FormCreate(Sender: TObject);
中调用这个函数
/// FunctioCodeEditKeyPress((TObject)FunctioCodeEdit,#13);
FunctioCodeEditKeyPress(TObject(FunctioCodeEdit),#13);
总是出错
[Error] CanParaSetUnit.pas(261): Types of actual and formal var parameters must be identical为什么???
请教各位了!!
解决方案 »
- dev express安装的问题
- 关于fastreport2.47打印生僻字的问题
- 请问有什么软件可以制作64*64的.cur文件
- 设计操作员菜单权限的基本设计思想怎么样?
- 如何使没有最大化的窗体紧贴任务栏显示?
- 有谁知道DELPHI6.6的序列号
- 关于dll实现窗体重用的问题?
- 如何在Windows2000/XP下取得系统BISO的信息?请高手进来解答。
- Delphi中数组下标不能用带除号的变量表示吗?
- delphi 急死了,请问各位关于eolesyserror with message"找不到成员"错误的解决办法
- 把ClientDataSet作为本地数据集,连接本地文本文件后增加大量数据后,都删除掉,再对其操作,其慢无法忍受,怎么办?
- 一个sql语句的问题?不能用合计函数???why?》
procedure TCanParaSetForm.FormCreate(Sender: TObject);
var
key : char;
begin
key := #13;
FunctioCodeEditKeyPress(Self,key);
procedure TCanParaSetForm.FormCreate(Sender: TObject); 调用
procedure TCanParaSetForm.FunctioCodeEditKeyPress(Sender: TObject;
var Key: Char); 写成
FunctioCodeEditKeyPress(Sender,#13);
要出错?????
把 用key 就好了,
谢谢 pathletboy
FunctioCodeEditKeyPress(TObject(FunctioCodeEdit),key);也能成功,可能用这个更好
procedure TCanParaSetForm.FormCreate(Sender: TObject);
中调用FunctioCodeEditKeyPress(Self,key);
或出错,
不知 self 可能代表是 整个类 TCanParaSetForm??
但是 dephi 好像 看不到 这个指针数据???c语言可以看到 指针数据 和内存,dephi 有没有办法看到????