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 判断文件是否被使用

Delphi 比较版本号

secsperday：一天共有多少秒

Delphi 取得固定长度的随机字符串

截取程序的网络封包（Delphi hook api）

Delphi 设置文本框中光标的位置在最后

Delphi closehandle的解释

Delphi 获取image.picture.data的数据

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

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