Label的Caption的补充问题(100分)

  • 主题发起人 主题发起人 QQ1858
  • 开始时间 开始时间
Q

QQ1858

Unregistered / Unconfirmed
GUEST, unregistred user!
如果已经将Label改为h1...h9和k1...k9,t1...t9在程序中如何再改变他的Caption????
 
什么意思？
 
想再怎么改？说的清楚些！
 
我是用Label来显示统计数的。首先按不同的项目改为不同的名Name.例如h1...h9,k1...k9
然后将h1...h9的Caption改为一些统计数字.
 
还是没有说清楚
你要告诉我
首先h1,h2原先是显示什么，有多少个这样东东 k1，k9又是什么
然后统计数字跟他们怎么对应？
 
h1...h9是Label的Name他原显示为fj1,fj2...fj9,现在想将他的Caption改为从数据库中提
取的相应数字如123,4.00。。。这里是一个17列9行的表格。我想通过什么方式能将从数据
库中取出的不同数据分别显示.
 
不明白
用H1.CAPTION:=INTTOSTR() 不行吗
 
问题在我不想写太多的语句.想在几个For...do中解决
 
设一个label的数组 lab:Array[1..n]of TLabel;
每个LABEL的Tag值与其name中的数字相同，如label的name为'fj1'，则tag为1；
var
i:integer;
begin
for i:=0 to ComponentCount-1 do
begin
if Components is TLabel then
begin
if TLabel(Components).tag in [1..n] then
lab[TLabel(Components).tag].Caption:='';
end;
end;
end;
 

H1.CAPTION:=fields[0].asstring;
 
问题是还有k1,k2...和h1,h2...怎么处理
 
那干吗要使用Label呢？直接使用TextOut在Form上显示算了。
 
TAG = $1001
TAG = $1002
TAG = $2001
TAG = $2002
这种我觉得最好设定一个(可变)数组，然后在程序逻辑里边直接对数组进行操作
然后调用一个ResetDiaplayLabelCcaption在这个里边设置Label.Caption
在这个函数里边用循环/枚举 什么办法都无所谓了
 
To zjan521
能不能说清楚些
 
哈,其實你的思路不是很好,但也不是不能實現,不管了,能得到分就好
var i:integer;
lb:TComponent;
for i:=0 to 9-1 do
begin
lb:=FindComponents(K+IntTostr(i));
if (lb<>nil) and (lb is TLabel) then
TLabel(Lb).caption:='你要填的數據';
end;

也就是說你不想通過Name來調用控件,而是想用字符串,這樣的話就可以寫很多通用的代碼,是吧,如果是,用FindComponent()就可以搞定了!加分!
 
不对，无法编译
 
KAO,你以為給你的是源代碼啊,重要的語句都寫出來了,你自已不會調試一下啊,
如果連基本的調試都不會,你是不是以後工作都靠在這裡問呢?

我辛辛苦苦寫出來的一大篇,你就幾個字就說不行,如果行怎麼辦,象你這種回復方法,
以後就惰得理你了!
真是XXX!
 
楼上的消消火，何必呢！！
大家都是从不会到会的。心平气和的说说就算了！楼主现在知道了把！
多给楼上的加点分就算了！：）
 
实际我想实现类似Foxpro中的宏替换
k=1
f&k.caption是f1.caption
 
delphi里是没有宏替换的，我的方法你试了没有？？我就是这么做的
 
您必须登录或注册才可回复。

Similar threads

Ray
[转]终于可以发布Delphi下收点OSGI精髓皮毛而设计的插件框架WisdomPluginFramework
回复
4
查看
4K
chlkuei
C
Q
form中添加label ,拉高label的高度,caption总是在上,如何实现caption 水平和垂直居中?(50分)
回复
5
查看
168
zhezhe
Z
有
读取外部程序中的label(100分)
回复
16
查看
224
人在昆明
人
L
关于label的 caption显示问题(50分)
回复
8
查看
130
linuxcrow
L
S
label控件的刷新问题(20分)
回复
8
查看
893
sheepgirl
S
后退
顶部