Delphi备忘录行在一行中

Question

在TMemo字段中，我有3行：

1. LINE1
2. LINE2
3. line3中

将所有三行都作为一个字符串是否可行？

示例：

行1，行2，行3

Answer 1

您可以使用Lines.CommaText属性。执行以下操作：

CommaString := Memo1.Lines.CommaText;

如果希望文本使用另一个分隔符，则使用DelimitedText属性也很有用。你可以通过使用这样的东西来做到这一点：

Memo1.Lines.Delimiter := '-';
Memo1.Lines.StrictDelimiter := True;
DashString := Memo1.Lines.DelimitedText;

这两种方式都有效。您可以为CommaText或DelimiterText指定值以设置行。这实际上是TStringList的一部分，因此它可以与TListBox，TMemo，TComboBox等一起使用。基本上任何在内部使用字符串列表的内容。

Answer 2

也许这样的事情适合您的需求

d:=memo1.lines.count;
for i:=1 to d do
   memo1.lines[0]:=memo1.lines[0]+' '+memo1.lines[i];
for i:=1 to d do
   memo1.lines.Delete(1);

Answer 3

这是一个3行功能。

function getOneLineMemo(memo:Tmemo):String;
var
  i:integer;
begin
  result := '';
  for i:=0 to memo1.lines.count do
     result := result + memo.lines[0];
end;