如何把数组的值赋给多个DDEitem(100分)

H

HLAmy

Unregistered / Unconfirmed
GUEST, unregistred user!
我想要把一个二维数组(有200多个单元)的值送给DDE的多个item,想用数组的办法,但不知如何实现.如不用数组,如何实现?
 
J

Jams

Unregistered / Unconfirmed
GUEST, unregistred user!
Type
Array[1..200] of Integer;

Begin
For i:=1 to 200 Do
Begin
DDE赋值;
End;
End;
是否为该想法?!
 
M

menxin

Unregistered / Unconfirmed
GUEST, unregistred user!
你的问题不是很明确,不过与STRING有关的东西用TSTRINGLIST一般是可以帮上忙的。
 
H

HLAmy

Unregistered / Unconfirmed
GUEST, unregistred user!
我的问题确实很难表达清楚。这里我再解释一下。
我的Delphi程序是作为其它应用程序的DDE Server。
要求Delphi给每个现场的参数(如温度、压力)均提供一个DDE item,
这样作为DDE Client的一方可以方便地显示这些数据。
难题是:如何把这么多参数的值方便地送给那么多DDE item。
当然,可以重复写上几百句语句来解决(也就是一个对应一个进行赋值),
但这样太麻烦。可否以数组循环的方式来解决?

Jams:虽然你是以数组循环的方式,但DDE赋值问题仍不能解决。
因为此时item也必须是一个数组,但我不知如何设置item数组。
 
M

menxin

Unregistered / Unconfirmed
GUEST, unregistred user!
你想做的事是ddeitem:=s[j]...
但ddeitem怎样变为数组呢?
for i:=0 to compoments.count-1 do begin
if compoments is tdde... then
tdde(compoments).ddeitem:=s[tdde(compoments).tag];

以上方法用tag不知行不行?
 
H

HLAmy

Unregistered / Unconfirmed
GUEST, unregistred user!
接受答案了.
 
顶部