重构"with"块的工具

Question

是否有重构工具来删除"with"块？例如转换

with Form1 do
begin
  Height := Blah;
  Blubb := Name;
end;

至

Form1.Height := Blah;
Blubb := Form1.Name;

其中Form1是VCL TForm.最好它应该与Delphi 2007一起使用.

Answer 1

其中一个Castalia重构工具被命名为"消除'WITH'".

我不能评论它在非平凡代码中的工作情况,因为我倾向于避免"使用".

Answer 2

......我认为来自Jacob Thurman/TwoDesk Software的最后一个Castalia可以解决这个问题