谁帮我呀!初学者的烦，烦烦烦(100分)

T

thefirstdz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #1

我在做一个程序，在一个文本框中一个数字 如输入8，
然后button8.caption:='某个指定的字符串'
如输入4，
然后button4.caption:='某个指定的字符串'

怎么做呀?
如果设一个变量i，让(button(i).caption)<--(不知道这个DELPHI中怎么表示)显示出来

 

D

del520

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #2

var
i:String;
begin
i:=edit1.text;
Tbutton(FindComponent('Button'+i)).caption:='xxxx';
end;

 

易

易名烦

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #3

for i:=0 to x do
begin
Tbutton(self.FindChildControl('button'+inttostr(i))).Caption:='123456789';
end;

 

S

sunyha

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #4

上面的都有对

 

C

Cheasy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #5

来慢了

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #6

用控件数组，动态创建，参考以下方法：

6. 根据记录数动态创建录入编辑框
var
Ed:array of TEdit;
procedure TForm1.FormCreate(Sender: TObject);
var
n,i:integer;
begin
with AdoTable1 do
begin
active:=true;
n:=recordcount;
setLength(ed,n);
first;
for i:=0 to n-1 do
begin
Ed:=TEdit.create(self);
with Ed do
begin
parent:=self;
left:=20;
Top:=10+25*i;
width:=60;
height:=20;
Text:=Fields[0].AsString;
Next;
end;
end;
end;
end;

 

T

thefirstdz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-30

• #7

谢谢了