如何声明过程？(50分)

N

nbhappy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-06

• #1

本人在学做一个管理系统，遇到一个问题：
程序中要声明两个过程Set_readonly与Set_notreadonly,并实现之，如下，
procedure tform1.set_readonly;
begin
dbedit_no.readonly:=true;
end;
procedure tform1.set_notreadonly;
begin
dbedit_no.readonly:=false;
end;

请问在哪里声明？直接用语句还是别的？如何解决？

 

Z

zhoufujin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-06

• #2

After
Public
Procedure Your1;
Procedure Your2;
...
End;

 

D

DouZheng

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-06

• #3

在 Tform 的 private 中声明就行。

 

H

hongxing_dl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-06

• #4

private
//这里可以
protected
//这里可以
public
//这里可以

主要是作用域不同

其实你把这些过程都写出来了，你只需要在delphi的调试环境下按下Ctrl+Shift+C系统就自动给你声明到private里面了

 

浪

浪子阿开

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-06

• #5

如果是在单元间调用,最简单就是在
interface
uses
procedure tform1.set_notreadonly;
procedure tform1.set_readonly;

 

S

suhuayan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-06

• #6

如果是在单元间调用,你可以在
public
procedure Tform1.set_notreadonly;
procedure Tform1.set_readonly;
声明，然后用Ctrl+Shift+C系统就自动给生成
procedure tform1.set_readonly;
begin
end;
procedure tform1.set_notreadonly;
begin
end;
你就可以添加代码了

 

N

nbhappy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-06

• #7

不行啊。
我想实现如此的一个功能：在主界面上点击添加后，可以在信息输入学生的学号，姓名等信息，然后按提交存入数据库

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-12-06

• #8

这与readonly有什么联系？

 

H

haitianzhz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-12

• #9

public//在这里
procedure Tform1.set_notreadonly;
procedure Tform1.set_readonly;
然后
procedure tform1.set_readonly;
begin
end;
procedure tform1.set_notreadonly;
begin
end;

 

N

nbhappy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-01-15

• #10

多人接受答案了。