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;