TMEMO中的多行添加

Question

我有一个带有2个按钮(Button1,Button2)和1个Memo(Memo1)的Delphi XE2项目.

我的要求是在Button1上单击某些文本将在第一行(第1行)中记住Memo1.如果我再次点击Button1,一些新文本将被写入新行(第2行).

如果我单击Button2,则另一个新文本将附加在Memo1中(在最后一行之后将创建一个新行).所以我写了以下代码:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Text :='Line1';
  Memo1.Lines.Text :='Line2';
end;
....
....
....
....
procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Lines.Text :='Line3';
  Memo1.Lines.Text :='Line4';
end;

但问题是只有一行显示Button1FirstClick上的文本为"Line1",Button1SecondClick上的"Line2"和Button2Click上的"Line4".请帮我.

Answer 1

要向备忘录控件添加更多文本,请调用Append或Add,如下所示:

procedure TForm1.Button1Click(Sender: TObject);
begin
  Memo1.Lines.Add('Line1');
  Memo1.Lines.Add('Line2');
end;
....
....
....
....
procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Lines.Add('Line3');
  Memo1.Lines.Add('Line4');
end;

如果你需要清除内容......

Memo1.Lines.Clear;

如果您希望替换一行(仅当索引已存在时):

Memo1.Lines[2]:= 'Replacement Text';

要删除其中一行......

Memo1.Lines.Delete(2);

Answer 2

TMemo.Lines是一个TStrings具有许多字符串处理功能的类型的对象.分配Text属性会重写其包含的所有字符串.

您可以在所有其他已存在的行之后添加一行:

Memo.Lines.Add('Text');

您可以插入一条线(在第四个位置):

Memo.Lines.Insert(3, 'Text');

你可以添加多行:

Memo.Lines.Add('Line1'#13#10'Line2');
Memo.Lines.AddStrings(ListBox.Lines);