delphi - Delphi 备忘录行在一行中

Question

在 TMemo 字段中，我有 3 行：

1. 第1行
2. 线2
3. 第 3 行

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

例子：

第 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;