with ..do 简化语句使用

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;