訪問對象的簡化語句可以用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;

with ..do 簡化語句使用