首页 > 代码库 > with ..do 简化语句使用
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;
with ..do 简化语句使用
声明:以上内容来自用户投稿及互联网公开渠道收集整理发布,本网站不拥有所有权,未作人工编辑处理,也不承担相关法律责任,若内容有误或涉及侵权可进行投诉: 投诉/举报 工作人员会在5个工作日内联系你,一经查实,本站将立刻删除涉嫌侵权内容。