Question

delphi编程时同一个工程中第二个窗口中的计算如何调用第一个窗口中计算出的数值

Answer 1

你干脆将计算结果放入全局变量里
在form2里 直接调用也可以啊

在第一个窗口下 写一个你需要计算函数 在public下

function form1.fun1():integer;
begin

result:=11;
end;

那你在form2里 按 alt+f11 选择 form1的单元文件
然后需要的时候调用
xxx:=form1.fun1;

Answer 2

第一个窗口计算出来的数值赋予一个全局变量中，然后由第二个窗口调用全局变量。

追问

谢谢。怎么编辑代码呢？

追答

在窗口1的
public
num:Double;//声明一个浮点型变量
{ Public declarations }
下，声明一个变量。
在窗口1的计算得出结果后，将值赋予变量。
然后在窗口2中，引用窗口一：
use 窗口1

这样就可以直接调用窗口1中声明的变量num

追问

弄上去怎么不对呢？又没更详细点的代码呢？

追答

form1中：
在头部

public //找到这个位置，这是头部的一个标记
num:Double;//声明一个浮点型变量【新添加的】

正常计算出结果。在得出结果后，添加一个语句：
num:=xxxx; //xxxx为计算结果

//-----------------以上是在form1中的内容

form2中：
也是在头部，找到
implementation，并在下面添加：
uses form1;

然后，在你要调用form1结果的地方，直接调用num变量，就是计算的结果。如：
xxx:=num*2; //num就是form1中的计算结果。

Answer 3

imfonation 前面定义变量，第二天窗口引用第一天窗口。