with…do语句的用法
with…do语句用来指定一个块中的字段(记录的或者对象的)、属性和方法所属的记录或者对象。Delphi初学者可能已经习惯了如下的代码书写格式:
var
Button: TButton;
begin
Button := TButton.Create(Self,',',');
Button.Parent := Self;
Button.Left := 50;
Button.Top := 50;
……
end;
每行都写一个Button是否让你感觉厌烦。Object Pascal提供它特有的with…do语句,可以帮你消除这个烦恼。上面的代码可以写为:
var
Button: TButton;
begin
Button := TButton.Create(Self,',',');
with Button do {编译器会知道下面的三个属性属于Button}
begin
Parent := Self;
Left := 50;
Top := 50;
……
end;
end;
with…do中可以包含多个记录或者对象,用逗号隔开。with…do也可以嵌套使用。
关键字词: