delphi Memo 文本列合并

本文整理自网络，侵删。

 
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 xe2模拟键盘按键

Delphi getmimetype 查询文件mime类型函数

Delphi 快速删除非空文件夹

Delphi 正则表达式校验手机号

Delphi 选择文件夹对话框 (有新建文件夹按钮)修正版

Delphi xe filesizebyname 要引用哪些文件

Delphi中如何控制webbrowser滚动条

Delphi winapi: windowfrompoint- 获取指定点所在窗口的句柄

比cmd更强大的命令行wmic

Delphi adoquery查询，如何得到查询记录数？

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi Memo 文本列合并