var
lbl :array[1..100] of TLabel;for i:=1to 100 do
begin
lbl[i]:= TLabel.Create(self);
lbl[i].Parent := self;
...
end;
lbl :array[1..100] of TLabel;for i:=1to 100 do
begin
lbl[i]:= TLabel.Create(self);
lbl[i].Parent := self;
...
end;
解决方案 »
- 如何替换代码中的按钮
- fastreport始何做到即打即停了????
- 如何实现远程登陆啊(已经知道了IP)现在客户端要登陆连接服务器--都连接在internet网络上(另开帖给分)
- 请问如何把flash(*.swf)作为资源嵌入到 Delphi的exe中?再用 TShockwareFlash 播放?
- 如何对一篇文章进行关键字分析,谢谢,有什么好的算法吗?
- delphi写的数据库应用程序打包的问题
- 存图像时不出错,取图像时出错,
- 我的构件想扑捉vk_left等键,但不行,那为给看看
- 请各位高手帮忙。谢谢!
- 关于delphi中socket端口的问题.
- 急,救命啊!问一下,在IIS新建一个站点,链接地址是不是都得敲机器名啊?
- 急!!!急啊!!!不知像QQ那样的窗体自动隐藏怎样宣实现啊??
如Label1.....Label100共100个Label控件。
for i := 1 to 100 do
var
L : TLabel;
begin
L := FindComponent('Label'+inttostr(i));
if L<>nil then L.caption := ...;
end;
Tstringlist.addobject方法可以将字符串与相应的对象关联起来,之后就可以通过检索字符串或者直接引用下标来使用相应对象,很好用。
type
TEditArray = array of TEdit;
var
DTEdit: TEditArray;
DTName: array [0..3] of String;
i: Integer;
begin
DTName[0] := 'A';
DTName[1] := 'AA';
DTName[2] := 'AAA';
DTName[3] := 'AAAA'; SetLength(DTEdit, 4);
DTEdit[0] := Edit1;
DTEdit[1] := Edit2;
DTEdit[2] := Edit3;
DTEdit[3] := Edit4; for i := 0 to 3 do
begin
DTEdit[i].Name := DTName[i];
end;
var
L : TLabel;
begin
for i := 1 to 100 do
begin
L := TLabel(FindComponent('Label'+inttostr(i)));
if L<>nil then
L.Caption := '...';
end;
end;
type
TLabelPtr = ^TLabel;
var
lblList:TList;
PLabel:TLabelPtr;
...
lblList := TList.Create;
...
new(PLabel);
lblList.Add(PLabel);
...
procedure TForm1.Button1Click(Sender: TObject);
var
arrTLabe:array[1..4] of TLabel;
begin
arrTLabe[1]:=TLabel;
arrTLabe[1].caption :='a';
......
end;