再问搜索控件(30分)

N

newyu_1127

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #1

先感谢师兄， 可能我表达错了意思，其实具体情况是这样的：如果我在窗体里放置了
4个TQuery控件，然后希望搜索窗体来将每个搜索到的TQuery的NAME依次附给已经定义
好的一个TEM：array[1..4] of Tquery; 请问如何做到？回答可否也写成详细版，谢谢。[?]

 

D

duguqiubai

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-28

• #2

var
temp:Tcomponent;
for i:=0 to componentcount-1 do
begin
temp:= components;
if (temp is TQuery) then
begin
case TQuery(temp).tag of
1:TQuery(temp):=TEM[1];
2:...

end;
end;
end;

 

N

newyu_1127

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-05

• #3

接受答案了.