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判断系统是否安装tcp/ip协议

Delphi中输入法模式imemode属性的解释

Delphi xe7中stringgrid组件的使用

Delphi 中判断windows系统是否是64位系统

Delphi中如何设置更改编译生成的exe文件的保存位置

Delphi源码一个对字符加密解密的实例

Delphi执行js

java2op.exe，Delphi安卓原生桥接文件生成器

Delphi 按esc快捷键退出程序的简单方法

Delphi中实现dbgrid列宽度自动调整

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

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