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检测本机的网络连接状态的三种方法

Delphi 数组类型与数组指针的巧妙利用

Delphi检查是否在64位windows环境中运行？

Delphi textfile utf8编码读写

Delphi 解决android 9上无法使用http协议

Delphi的tclientsocket组件和tserversocket组件(c/s)说明

Delphi和outputdebugstring

Delphi 清空文件夹

Delphi 中有 iif() 函数

Delphi 的运算符列表

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

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