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 showmainform := false 失效的解决办法

Delphi 合并文件

Delphi程序升级到64位

Delphi编程之关闭所有qq进程

Delphi json字符串转义

Delphi 基础学习 字符串去掉回车符

Delphi treeview中显示mainmenu菜单

Delphi侦测条码枪方式

Delphi 过滤网页代码 <script></script>

Delphi 检测是否包含字符

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

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