ASP中如果要使button1.value='xxx'可以让i=1 & button<%=i%>.value='xxx'。Delphi中的o

I

ISY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-26

• #1

ASP中如果要使button1.value='xxx'可以让i=1 &amp
button<%=i%>.value='xxx'。Delphi中的object pascal有没有类似的用法？可以举个例子吗？(50分)<br />ASP中如果要使
button1.value='xxx'
可以让
i=1
button<%=i%>.value='xxx'

Delphi中的object pascal有没有类似的用法？可以举个例子吗？

 

Y

yayiye

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-29

• #2

没有

 

T

twos

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-29

• #3

有的呀，findcomponent就可以的呀
function FindComponent(const AName: string): TComponent;
Description
FindComponent returns the component in the Components property array with the name
that matches the string in the AName parameter.
Use FindComponent to determine whether a given component is owned by another.

 

S

sqz

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-29

• #4

设button的tag的值也可以实现

 

N

Nizvoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-07-29

• #5

弄个指针试试。

呵呵。
宽容语法，asp中。

 

B

beta

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-10

• #6

var
i: Integer;
aButton: TButton;
begin
for i := 1 to 10 do
begin
aButton := TButton(FindComponent(Format('Button%d', )));
// ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
ShowMessage(aButton.Caption);
end;
end;

 

N

Nizvoo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-12

• #7

如果是楼上的情况
那么用指针来做，更易

代码:

Button_1
....
Button_n

PButton: ^TButton;

PButton := @Button_1;

for I := 1 to n do
begin
  ShowMeesage(PButton^.Caption);
  Inc(PButton);
end;

 

I

ISY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-08-13

• #8

多人接受答案了。