先从主Form上弹出一个从Form来输入实数，用来输入的从Form上的Edit控件是动态生成的（代码如下），接着把Edit上的输入的实数传回(50分)

大

大猪猪

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-15

• #21

用TAG来做不是不行
只是我喜欢速度
用FOR来做始终会做无用功
自己是做程序的
习惯做问题巨大化

ps:NAME肯定是唯一的

 

D

dey-999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-15

• #22

Edit1 :TEdit放到 public 去定义一切OK

 

X

xf-wangyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-15

• #23

break一下嘛
难道你没发现
function TComponent.FindComponent(const AName: string): TComponent;
var
I: Integer;
begin
if (AName <> '') and (FComponents <> nil) then
[red]for I := 0 to FComponents.Count - 1 do[/red] begin
Result := FComponents;
if SameText(Result.FName, AName) then Exit;
end;
Result := nil;
end;

 

D

dey-999

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-15

• #24

在Form1中打开Form2窗体时:
ShareLabel:=Label1;
在Form2的Public定义:
ShareLabel:TLabel;
在Form2的Button1Click事件中写成:
ShareLabel.Caption:=Edit1.Text;
解决了交叉引用的问题

 

Y

YL_YAN

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-06-15

• #25

如果只输入一个参数，交叉引用的代码和非交叉引用的代码编译都可以通过，运行结果一样，所以分数一人一半。