频道分类

delphi Memo 文本列合并

作者:admin 来源: 日期:2020/4/6 10:07:49 人气: 标签:

 
function getOneLineMemo(memo:Tmemo):String;
var
  i:integer;
begin
  result := '';
  for i:=0 to Memo.lines.count do
     result := result + memo.lines[i];
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
Memo2.Text:=getOneLineMemo(Memo1);
end;


上一篇:delphi HTML转义字符编码转换下一篇:没有资料