多写几行TMemo (Delphi XE)

Question

在

TMemo

中，我必须多行报告信息：

procedure TForm1.FormCreate(Sender: TObject);
var
  ids: TidIpWatch;
  Speed: Double;
begin
 ids := TidIpWatch.Create;
 Speed := GetCPUSpeed;
 Memo1.Text := 'IP:' + (ids.LocalIP) + (Tipo_cpu);
 Memo1.Text := 'CPU: ' + (Tipo_cpu) + ' ' + Format('%f', [Speed]);
 ids.Free;
 end;

但我不知道如何实现TMemo功能来多行写入

Answer 1

使用

TMemo.Lines.Add

追加新行。

procedure TForm1.FormCreate(Sender: TObject);
var
  ids: TidIpWatch;
  Speed: Double;
begin
  ids := TidIpWatch.Create;
  try
    Speed := GetCPUSpeed;
    Memo1.Lines.BeginUpdate();
    try
      Memo1.Lines.Add('IP:' + (ids.LocalIP) + (Tipo_cpu));
      Memo1.Lines.Add('CPU: ' + (Tipo_cpu) + ' ' + Format('%f', [Speed]));
    finally
      Memo1.Lines.EndUpdate();
    end;
  finally
    ids.Free;
  end
 end;

还要记住使用 try-finally 块以避免内存泄漏