(自定义函数体如何调用memo1控件)在自定义函数体内如何将string变量值加入到memo1.lines.add()?

Question

(自定义函数体如何调用memo1控件)在自定义函数体内如何将string变量值加入到memo1.lines.add()?应该很简单啊 ，但是为什么我以调用就出错啊？

Answer 1

var
 s:string;
beign
 s:='张三';
 memo1.lines.add(s);
end;

Answer 2

function WriteMemo(AMemo :TMemo;S:string):integer;
begin
  Result :=AMemo.Lines.Add(S);
end;procedure TForm1.Button1Click(Sender: TObject);
var
  S :string;
  R :integer;
begin
  S := 'TMemo Lines Add a String';
  R := WriteMemo(Memo1,S);
  showmessage('已在Memo1写入:'+IntToStr(R)+' 行字符串!');
end;

Answer 3

谢谢 Oraclers
我的意识是：
在一个"自定义的函数"内，完成memo1.lines.add;如果将R := WriteMemo(Memo1,S) 放入 自定义函数内编译不过去啊。

Answer 4

下面这个不是“自定义的函数”？是什么？（你注意，定义函数的单元在同一单元或引用这个单元）function WriteMemo(AMemo :TMemo;S:string):integer;
begin
  Result :=AMemo.Lines.Add(S);
end;