tedit(Components[i]).tag = tag 是什么意思？(30分)

S

sallygirl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #1

tedit(Components).tag = tag 是什么意思？tag代表多少？

 

O

onlyonekgx

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #2

看你所处的环境，
如果你是在某个窗体单元中写的代码，
TAG 代表当前窗体的TAG 值.

 

L

l213

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #3

tag是delphi为每个控件留的一个属性，你可以自己来决定他是做什么用的。一般可以做一个标识符，自己程序来控制他的意思。

 

S

sallygirl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #4

我看了一段源代码，
//如果输入有非法数值,提示;
for i:= 0 to componentcount-1 do
if Components is tedit and (tedit(Components).tag = tag) then
try
value := strtofloat(tedit(Components).text)+value;
except
if not(trim(tedit(components).text) = '') then
messagedlg(format(' 输入的" %s " 不是合法数值,请检查!'#13#10#13#10'计算时将忽略该非法数值.',
[tedit(Components).text]),mtWarning, [mbYes], 0);
end;
result := value;
我不知道怎样设置tag才能使需要检测的edit执行上面的程序，而不需要的就不用执行上面的程序

 

白

白海森

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #5

for i:= 0 to componentcount-1 do
if Components is tedit and (tedit(Components).tag = tag) then
^这是一个常量
try
value := strtofloat(tedit(Components).text)+value;
except
if not(trim(tedit(components).text) = '') then
messagedlg(format(' 输入的" %s " 不是合法数值,请检查!'#13#10#13#10'计算时将忽略该非法数值.',
[tedit(Components).text]),mtWarning, [mbYes], 0);
end;
result := value;

这段代码的意思是：将窗体上所有tag值为tag(常量)的edit控件的输入相加。

 

C

chshanghai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #6

其实如果在 tag 已可能表示 tform.tag 的意思.
要看你的这段代码的是在哪个控件的哪个控件下
如果在form 的事件下
tag 就表示form.tag

功能就像 白海森所说的

 

S

sallygirl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-18

• #7

多人接受答案了。