请问自定义过程之间如何相互调用？

Question

procedure 过程1;
begin
...
ebd;
procedure 过程2;
begin
  过程1;
ebd;1.为什么编译不能通过？
2. 我在主窗体上放了一个edit1。为什么过程1和过程2不能对edit1进行操作？

Answer 1

edit1是属于窗体的一个对象。要想使用它必须要指定窗体的名称，如str:=form1.edit1.text

Answer 2

var
  这里就是变量名: TForm1;form1.Edit1.text := 'xxxx';

Answer 3

procedure Tform1.过程2;
这样就可以了

Answer 4

在单元声明部分，把所要调用procedure定义在。public中
你在过程的实现部分定义。。加上所在窗体。比如：
procedure Tform1.过程1；
begin
....
end;
如果过程2同在这个单元里面。那么就可以直接调用。
procedure Tform1.过程2；
begin
  过程1;
end;
如果不在一个窗体中。在过程2所在单元uses上过程1所在单元。
调用时。
procedure 过程2；
begin
  Tform1.过程1；
end;