Công cụ để tái cấu trúc "với" khối

Question

Có công cụ tái cấu trúc nào để loại bỏ các khối "có" không? Ví dụ chuyển đổi

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

để

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

nơi Form1 là một VCL TForm. Tối ưu nó sẽ hoạt động với Delphi 2007.

Answer 1

... Tôi nghĩ rằng Castalia cuối cùng từ Jacob Thurman/TwoDesk Phần mềm làm các trick

Answer 2

Một trong số Castalia refactoring tools được đặt tên là "Loại bỏ 'VỚI'".

Tôi không thể nhận xét về hiệu quả hoạt động của nó trong mã không tầm thường vì tôi có xu hướng tránh "bằng".