本文整理自网络,侵删。
delphi with 语句的妙用
//一般写法
var
MyForm1: TForm1;
begin
MyForm1 := TForm1.Create(nil);
MyForm1.ShowModal;
MyForm1.Free;
end;
--------------------------------------------------------------------------------
//用 with 语句重写
with TForm1.Create(nil) do begin
ShowModal;
Free;
end;
相关阅读 >>
Delphi 泛型容器单元(generics.collections) tdictionary<t>
Delphi2010 关于record类型rtti反射的用途和方法
更多相关阅读请进入《Delphi》频道 >>