delphi - delphi2010 中的错误行为/Bug "extract method"

Question

当我尝试在 if 语句中提取方法时，我遇到了这个问题。我找不到任何报告的错误。

procedure TForm1.BitBtn3Click(Sender: TObject);
var
  x: integer;
  b: boolean;
begin
  if true then
    x := 8    //********************** i try to extract this line
  else
    x := 6;

  showmessage(inttostr(x));
end;

我得到的结果是:

procedure TForm1.BitBtn3Click(Sender: TObject);
var
  x: integer;
  b: boolean;
begin
  if true then
    newMethode
  else
    x := 6;

  showmessage(inttostr(x));
end;

新方法是:

procedure TForm1.newMethode;
var
  x: Integer;
begin
  x := 8;
end;

任何人都可以检查 Delphi XE 上的行为如何吗？有人知道有没有被举报吗？

Answer 1

这是“Extract Method”重构中的一个错误。

作为替代方案，您可能希望使用 ModelMaker Code Explorer 中的“提取方法”重构重构工具。售价 99 欧元，是 relatively cheap从 Delphi 5 开始运行的工具，以及 recent 9.0.5 updates他们的 Extract Method 重构得到了极大的改进，以至于我已经有一段时间没有使用 Delphi 内置的方法了。

两大好处:

• 它会启动方法编辑器对话框，您可以在其中更改和重新排序参数，这些参数随后会反射(reflect)在提取和调用的代码中
• 它将原始代码保留在 (* *) 注释中，以防出现问题或您需要引用它

此外，它还在代码中放置了书签(编号为 7、8 和 9)，以便在提取的代码和调用站点之间轻松导航。

强烈推荐。