with ..do 简化语句使用

访问对象的简化语句可以用with;

通常访问对象的属性和方法需要在前面加上对象的名称;

如:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
procedure TForm2.btn1Click(Sender: TObject);
begin
mmo1.Clear;
mmo1.Lines.Add('one');
mmo1.Lines.Add('two');
mmo1.Lines.Add('three');
mmo1.Font.Style:=[fsBold];
mmo1.Font.Color:=clPurple;
mmo1.Font.Name:='Times New Roman';
end;
 
/// <summary>
/// 用with简化代码如下
/// </summary>
procedure TForm2.btn2Click(Sender: TObject);
begin
with mmo1 do
begin
Clear;
Lines.Add('one');
Lines.Add('two');
Lines.Add('three');
Font.Style:=[fsBold];
Font.Color:=clPurple;
Font.Name:='Times New Roman';
end;
end;

 

 

 

posted @   delphi学习交流吧  阅读(2928)  评论(0编辑  收藏  举报
编辑推荐:
· DeepSeek 解答了困扰我五年的技术问题
· 为什么说在企业级应用开发中,后端往往是效率杀手?
· 用 C# 插值字符串处理器写一个 sscanf
· Java 中堆内存和栈内存上的数据分布和特点
· 开发中对象命名的一点思考
阅读排行:
· DeepSeek 解答了困扰我五年的技术问题。时代确实变了!
· PPT革命!DeepSeek+Kimi=N小时工作5分钟完成?
· What?废柴, 还在本地部署DeepSeek吗?Are you kidding?
· DeepSeek企业级部署实战指南:从服务器选型到Dify私有化落地
· 程序员转型AI:行业分析
点击右上角即可分享
微信分享提示