一个简单问题 (50分)

  • 主题发起人 主题发起人 xumin23
  • 开始时间 开始时间
X

xumin23

Unregistered / Unconfirmed
GUEST, unregistred user!
如何用table组件名作为参数
像这样:
procedure demo(tablename:TTalbe)
begin
...
end;
为什么这样写有错误?
 
把重复的代码提出来做成过程或函数,根据参数来调用呀,看得偶头都大了
 
代码结构大概如下:
if ... then
begin
with table1 do
begin
重复的代码;
end;
else
begin
with table2 do
begin
重复的代码;
end;
end;
请告诉我具体该怎么做?如何写过程或函数?
 
users DBTables
 
procedure demo(tablename:TTalbe)
begin
...
end;
肯定是可以的。你的错误提示是什么?
 
procedure demo(tablename:TTalbe)
begin
...
end;

什么错误是不是没有定义TTable还是没有定义demo
前者的话在Use里加入dbtables
后者的话
procedure TForm1.demo(tablename:TTalbe)
begin
...
end;
 
将demo声明为保护过程,就像robertcool说的那样
 
多人接受答案了。
 
后退
顶部