delphi 自己做的子函数 里面用到了Edit等控件就不行？？ 求助

Question

 procedure txt_memo1() ;
var  s:string;
 
  begin
 s := edit1.Text;memo1.lines.loadfromfile(s);end;
这样的函数  出错 
s := edit1.Text;memo1.lines.loadfromfile(s);提示 undeclared identifier edit1 memo1 等 怎么解决 谢谢

Answer 1

procedure TForm1.txt_memo1(); 
或者在过程体内，控件名前加Form1.

Answer 2

把控件当参数传进去
procedure txt_memo1(Memo1:TMemo;Edit1:TEdit) ;

Answer 3

看看你的edit1，memo控件是不是存在，要是存在
再看看 你的edit1.text 里面的路径是不是有效，因为后面有 memo1.lines.loadfromfile(s); 
你试试，要是有问题再写出来啊  
 

Answer 4

谢谢！ 顺便问下 怎么声明这个函数啊   有些地方调用 会说undeclared identifier txt_memo1()

Answer 5

窗体类申明的private或者public里面，加：
procedure txt_memo1();