1.有如下语句：slak.qrdbtext0:=query1;slak.qrdbtext1:=query1;...请问，怎样才能简化成一条语句。 (100分)

M

meijun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-01

• #1

1.有如下语句：(我开头输入有误，现更正如下，另外，我要特别感谢Pipi.大侠
对我的多次热情帮助)
slak.qrdbtext0.dataset:=query1;
slak.qrdbtext1.dataset:=query1;
slak.qrdbtext2.dataset:=query1;
: :
slak.qrdbtext9.dataset:=query1;
请问，怎样才能简化成一条语句。
2.那儿有能将Delphi语句整理的有条理控件，我以前见过一个，可是忘了。
谢谢！

 

Z

zmj71

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-01

• #2

DelForEx2.42 for Delphi56用于规范Delphi源码的工具

 

M

meijun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-01

• #3

to:zmj71
您好，哪有DelForEx2.42 for Delphi56控件下载。谢谢！

 

W

wind2000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-02

• #4

http://go8.163.com/windstorm2000/tools/Delforex.zip

 

M

meijun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-02

• #5

to wind2000
您好，按您给的网制，我没找到，我用的是D6.

 

J

jrq

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-02

• #6

gz

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-02

• #7

for i:=0 to slak.componentcount-1 do
if slak.Components is TQRDBText then
TQRDBText(slak.Components).xxxx:=xxxxxxx
-----------------------------------------
另外，你的 slak.qrdbtext0:=query1 什么意思啊，QRText能直接 := 一个TQuery吗

 

M

meijun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-03

• #8

to Pipi.
您好,我已将语句错误改正,请您再看一下好吗?
谢谢!

 

P

Pipi.

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-03-03

• #9

for i:=0 to slak.componentcount-1 do
if slak.Components is TQRDBText then
TQRDBText(slak.Components).dataset:=query1;