嫩
嫩手
Unregistered / Unconfirmed
GUEST, unregistred user!
给81个变量赋值，怎么写比较方便？
S
spueni
Unregistered / Unconfirmed
GUEST, unregistred user!
问题的起源，能不能说详细点？
嫩
嫩手
Unregistered / Unconfirmed
GUEST, unregistred user!
比如吧：我要输出81个数，第一个数指定，第二个数在第一个数的基础上加10，第三个数
在第二个数的基础上再加10，以此类推...
在第二个数的基础上再加10，以此类推...
Z
zw84611
Unregistered / Unconfirmed
GUEST, unregistred user!
写个循环。
嫩
嫩手
Unregistered / Unconfirmed
GUEST, unregistred user!
我想用button的caption显示数值，但不知道怎么写了？可否给个提示？
F
fdwangchao
Unregistered / Unconfirmed
GUEST, unregistred user!
大哥你也大嫩了吧！
var
icount:Integer;
const
FirstNumber:Integer=<初始值>;
begin
for icount:=1 to 81 do
begin
Button.caption:=IntToStr(FirstNumber+icount*10);
end;
end;
var
icount:Integer;
const
FirstNumber:Integer=<初始值>;
begin
for icount:=1 to 81 do
begin
Button.caption:=IntToStr(FirstNumber+icount*10);
end;
end;
嫩
嫩手
Unregistered / Unconfirmed
GUEST, unregistred user!
81个数，81个按钮，不是一个
峻
峻祁连
Unregistered / Unconfirmed
GUEST, unregistred user!
那就用控件数组了
Y
y2ky2k
Unregistered / Unconfirmed
GUEST, unregistred user!
数组+循环
嫩
嫩手
Unregistered / Unconfirmed
GUEST, unregistred user!
我想过，但不知道怎么写了？
M
misswu
Unregistered / Unconfirmed
GUEST, unregistred user!
用Sender
M
manta_mine
Unregistered / Unconfirmed
GUEST, unregistred user!
不要干想！这东西要试的！
嫩
嫩手
Unregistered / Unconfirmed
GUEST, unregistred user!
再来些提示呀
S
shbjkl
Unregistered / Unconfirmed
GUEST, unregistred user!
用 tag 了
每个button 给一个tag
loop 一下了
每个button 给一个tag
loop 一下了
F
form2
Unregistered / Unconfirmed
GUEST, unregistred user!
const
fst=100;
var
Button81:array[1..81]of TButton;
a:byte;
begin
for a:=1 to 81 do
begin
Button81[a]:=TButton.Create(nil);
// ...........set left..top..
Button81[a].Caption:=inttostr(fst+(a-1)*10);
Button81[a].Destroy;
end;
fst=100;
var
Button81:array[1..81]of TButton;
a:byte;
begin
for a:=1 to 81 do
begin
Button81[a]:=TButton.Create(nil);
// ...........set left..top..
Button81[a].Caption:=inttostr(fst+(a-1)*10);
Button81[a].Destroy;
end;
A
afei2002
Unregistered / Unconfirmed
GUEST, unregistred user!
先看点编程基础之类的书～～～～～[
][]
][]
汪
汪向阳
Unregistered / Unconfirmed
GUEST, unregistred user!
大哥，给分吧
var
i,j: integer;
j := 0;
for i := 0 to componentscount-1 do
begin
if Components is tbutton then
begin
(components as tbutton).Caption := IntToStr(你的初始值 + j * 10);
inc(j);
end;
end;
var
i,j: integer;
j := 0;
for i := 0 to componentscount-1 do
begin
if Components is tbutton then
begin
(components as tbutton).Caption := IntToStr(你的初始值 + j * 10);
inc(j);
end;
end;
南
南京男生
Unregistered / Unconfirmed
GUEST, unregistred user!
同意汪兄
嫩
嫩手
Unregistered / Unconfirmed
GUEST, unregistred user!
多人接受答案了。
