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 在tmemo中查找文本

Delphi str1.compare 比较两个字符是否相同

Delphi让程序运行后自我删除或恢复名称

Delphi 正则表达式的匹配模式

Delphi xe 提示没有定义decimalseparator等的解决方法

Delphi获取文件或文件夹属性和修改属性

Delphi 判断正在运行的设备是iphone还是ipad

Delphi窗口界面必学的知识

Delphi 通过memorystream 传递image1数据

Delphi_关于null,nil

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

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