with ..do 简化语句使用

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

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

如：

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;