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

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

应该很简单啊 ，但是为什么我以调用就出错啊？

5 个解决方案

#1

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

#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;

#3

谢谢 Oraclers
我的意识是：
在一个"自定义的函数"内，完成memo1.lines.add;

如果将R := WriteMemo(Memo1,S) 放入 自定义函数内编译不过去啊。

#4

引用 3 楼  的回复:

谢谢 Oraclers
我的意识是：
在一个"自定义的函数"内，完成memo1.lines.add;

如果将R := WriteMemo(Memo1,S) 放入 自定义函数内编译不过去啊。

下面这个不是“自定义的函数”？是什么？（你注意，定义函数的单元在同一单元或引用这个单元）

function WriteMemo(AMemo :TMemo;S:string):integer;
begin
  Result :=AMemo.Lines.Add(S);
end;

#5

已经解决 不是用的你的方法 但同样感谢!