XRefactor für Delphi !!

[DevilsCamp]

Ich habe da einen Bug(?) gefunden.

Ich habe folgenden Code:

Delphi-Quellcode:

procedure P1(Param1: String);
  procedure P2_in_P1;
  var
    machschon : String;
  begin
    machschon := 'Wird''s bald?';
    Mache_Irgend_Etwas(machschon);
  end;

var
  i : Integer;
begin
  P2_in_P1;
  if Param1='Hallo' then
    MacheIrgendwasAnderes
  else
    LangweileDich;
end;

Wenn ich nun folgendes hinzufüge:

Delphi-Quellcode:

  [..]             // alter Code
  else             // alter Code
    LangweileDich; // alter Code

// ab hier neuer Code
  s : String l        // <--- hier drücke ich STRG-L

dann bekomme ich folgendes:

Code:

procedure P1(Param1: String);
  procedure P2_in_P1;
  var
    machschon : String;
    [b][color=#ff0000]s : String;[/color][/b]
  begin
    machschon := 'Wird''s bald?';
    Mache_Irgend_Etwas(machschon);
  end;

var
  i : Integer;
begin
  P2_in_P1;
  if Param1='Hallo' then
    MacheIrgendwasAnderes
  else
    LangweileDich;

[b][color=#ff0000]  s := [/color][/b]
end;

Die Variable wird also in der falschen var-Sektion deklariert...