您好，请教这个错误怎么处理？ 谢谢

Question

试一下不在PUBLIC中定义，把该过程直接放在要调用的主过程前

Answer 1

'Tfrmmain.datadeal632'？
是frmmain.datadeal632吧，没有T！

Answer 2

请试着这样定义：
public
  procedure datadeal632(var phonecallsub:string;var datassub:string;var phrassessub:string);
然后写该过程的实现代码

Answer 3

这要看你定义过程的地方在哪里：
1、放在TForm1的类定义里面：
type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
  procedure datadeal632(var phonecallsub,datassub,phrassessub:string); 
   { Public declarations }
  end;这样的话你的函数定义要写成这样的形式：
procedure TForm1.{注意这里的“TForm1.”不要省略}datadeal632(var phonecallsub,datassub,phrassessub:string);
Begin
...
End;2、将声明放在var 和 implementation 之间,过程可以这样定义：
procedure datadeal632(var phonecallsub,datassub,phrassessub:string);
Begin
...
End;

Answer 4

当然，在这里你的Form名称是“Tfrmmain.”，我的例子里面的“TForm1.”就应该换成“Tfrmmain.”