请问怎么根据循环语句生存变量.

gas_lb521 2005-12-01 11:50:14
for i:=1 to nZi1 do
begin
//生存nZi1个下拉菜单
//CbB := TComboBox.Create(Self);
//请问cbB应该怎么表示
end;
...全文
85 6 打赏 收藏 转发到动态 举报
写回复
用AI写文章
6 条回复
切换为时间正序
请发表友善的回复…
发表回复
gas_lb521 2005-12-01
  • 打赏
  • 举报
回复
顶~~!
gas_lb521 2005-12-01
  • 打赏
  • 举报
回复
问题在下面的这一行CbB.Items.Add(nCon_s[j]);

程序如下:
for i:=1 to nZi1 do
begin
LNum2 := pos( ss2, nZs1[i] );//第几段到}符号多少位字节
cent_con:=copy(nZs1[i], 0,LNum2-1)+'-';//得到了{}符号之间的内容

CbB := TComboBox.Create(Self);
CbB.top:=20;
CbB.Width:=100;
CbB.Height:=20;
CbB.Align :=alNone;
CbB.Name:='CbB'+inttostr(i);
CbB.Parent :=RichViewEdit1;

RichViewEdit1.InsertControl('',CbB,rvvaBaseline);


nCon_s:=SplitString(cent_con,'-');//函数分割,得到数组
nCon_i:=Length(nCon_s)-1; //得到数组数量
for j:=0 to nCon_i-1 do

//就是这里不知道怎么表示CbB,虽然下拉菜单生存啦,因CbB不变所有菜单的项就有问题啦!
CbB.Items.Add(nCon_s[j]);
CbB.ItemIndex := 0;

end;
gas_lb521 2005-12-01
  • 打赏
  • 举报
回复

for i:=1 to nZi1 do
begin
LNum2 := pos( ss2, nZs1[i] );//第几段到}符号多少位字节
cent_con:=copy(nZs1[i], 0,LNum2-1)+'-';//得到了{}符号之间的内容

CbB := TComboBox.Create(Self);
if i=1 then
CbB.Left:=50+totalrun
else
CbB.Left:=150+totalrun;
CbB.top:=20;
CbB.Width:=100;
CbB.Height:=20;
CbB.Align :=alNone;
CbB.Visible:=true;
CbB.Cursor:=crHandPoint;
CbB.Name:='CbB'+inttostr(i);
CbB.Parent :=RichViewEdit1;

RichViewEdit1.InsertControl('',CbB,rvvaBaseline);
totalrun:=totalrun+5;

nCon_s:=SplitString(cent_con,'-');//函数分割,得到数组
nCon_i:=Length(nCon_s)-1; //得到数组数量
for j:=0 to nCon_i-1 do

//就是这里不知道怎么表示cbB,虽然下拉菜单生存啦,菜单里面的项不对
CbB.Items.Add(nCon_s[j]);

CbB.ItemIndex := 0;

if Components[i].Name = 'CbB'+inttostr(i) then
begin
tempstr:= self.Components[i].Name;
end;
end;
qizhanfeng 2005-12-01
  • 打赏
  • 举报
回复
for i:=1 to nZi1 do
begin
//生存nZi1个下拉菜单
with TComboBox.Create(Self) do
begin
name := 'cb'+intTostr(i);
parent := self;
left:=100+i;
top:=100+i;
end;
end;
zhangl_cn 2005-12-01
  • 打赏
  • 举报
回复
for i:=1 to nZi1 do
begin
//生存nZi1个下拉菜单
//CbB := TComboBox.Create(Self);
//请问cbB应该怎么表示
end;

是生成nZi1个TComboBox还是生成nZi1个下拉选项?

要是生成选项的话这样写:

CbB := TComboBox.Create(Self);
CbB.Parent:=self;

for i:=1 to nZi1 do
begin
cbB.Items.add('选项');
end;

cb.show;



phzongna 2005-12-01
  • 打赏
  • 举报
回复
写清楚点,用数组不知能不能满足你的要求~

2,495

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 数据库相关
社区管理员
  • 数据库相关社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧