多写几行TMemo (Delphi )
多写几行TMemo (Delphi )
提问于 2022-02-08 10:25:28
在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函数。
回答 1
Stack Overflow用户
发布于 2022-02-08 10:39:39
使用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;此外，请记住使用“尝试-最后”块以避免内存泄漏。
页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/71032251
复制相关文章
相似问题
腾讯云开发者
