with 语句的妙用

//一般写法

var

  MyForm1: TForm1;

begin

  MyForm1 := TForm1.Create(nil);

  MyForm1.ShowModal;

  MyForm1.Free;

end;


 
   




//用 with 语句重写

with TForm1.Create(nil) do begin

  ShowModal;

  Free;

end;