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...

[Jelly]

Also ich finde das Tool von der Idee her genial. Nur leider streikt mein Delphi 6 verständlicherweise das Package zu installieren!

Also wenn du willst, kompilier ich dir gerne das Package mal unter Delphi6, damit wir mittelalterlichen Delphi Programmieren das Tool auch nutzen können.

[stoxx]

Hi DevilsCamp !

komisch, bei mir macht er folgendes, was zwar auch nicht ganz perfekt ist, weil die alte VAR Deklaration noch nicht erkannt wird, aber dennoch lässt es sich compilieren, kann es sein, dass Du ne alte Version installiert hast ?

bei mir ergibt Dein Beispiel folgenden Code

Delphi-Quellcode:

procedure P1(Param1: String);
var
  s : 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;

   s :=
end;

@ Jelly, ich überlege gerade, das ganze Tool incl. Sourcen freizugeben für alle, die Überlegungen sind innerhalb ein bis zwei Tagen abgeschlossen ;-)

[Jelly]

Zitat:

Zitat von stoxx

@ Jelly, ich überlege gerade, das ganze Tool incl. Sourcen freizugeben für alle, die Überlegungen sind innerhalb ein bis zwei Tagen abgeschlossen ;-)

Das wär ja genial :thumb:

[DevilsCamp]

@stoxx:
Falls du den Quellcode nicht freigibst, wie wäre es mit einer Tastenkombination mit der man eine Zeile nachträglich zu einem Kommentar werden lassen kann bzw. nich mehr...

Wie bei Delphi 2005 mit CTRL-#

Also z.B.

ich habe folgende Zeile im Code:

x:=1;

Drücke ich nun die Kombination, dann wird daraus:

// x:=1;

Drücke ich die Kombi nochmal:

x:=1;

usw. :D

[DevilsCamp]

wird hier iegentlich noch dran gearbeitet oder ist das Projekt gestorben?

[Die Muhkuh]

Ja, würde ich auch gerne wissen :)

[md_mse]

Ich nutze xRefactor ausgiebig und mich würde es auch interessieren! :pale:

[Die Muhkuh]

So,

mal wieder nachfragen hier ;) .

Wann gibts eine neue Version bzw. bastelst du überhaupt noch weiter? Wenn nein, gibst du dann den Source frei?

[Die Muhkuh]

So,

dann muss ich mal wieder hier nachfragen ;)

Kommt da noch was?

[stoxx]

hier möchte ich nun endlich mein Versprechen einlösen, die Quelltexte freizugeben.
Habe es leider noch nicht geschafft, meine weiteren Ideen zu integrieren.
Wie unter anderem mehrzeiligen Support oder das bequeme integrieren von properties mit automatischem Erzeugen der get und set proceduren.
Die Quelltexte sind im Anhang, ich befürchte, die Dokumentation ist nicht berauschend :-)
hehe ..

na dann ....

[stoxx]

was übrigens auch geht:

zu schreiben:

Delphi-Quellcode:

sl := TSTringlist.create; l

dabei wird

Delphi-Quellcode:

var  sl : TStringlist;

automatisch deklariert (je nachdem wo man will, lokal oder auch als Feld)
Da auch die LiveTemplates von D2006 einen recht umständlichen Eindruck in diesem Bereich zu machen scheinen ( laut Daniels Film) werde ich wohl xRefactor weiterentwickeln.

Strg+W kopiert die gesamte Zeile des Cursors in die Zwischenablage ( ohne vorher alles markieren zu müssen)
und noch eine kleine Funktion, die ich relativ häufig nutze..
shift+alt und pfeil links und rechts, damit wird der Text verrückt, egal wo der Cursor gerade steht.
Man muss also nicht den Curser erst an den Zeilenanfang setzen und dann mit Entf arbeiten, das erpart man sich.

Alt+Pfeil Runter verschiebt den ganzen Text unter dem Cursor nach unten. Dazu da, wenn man sich "Platz" schaffen will.
Der Cursor bleibt wo er ist, ohne dass man mit dem Cursor ans Ende der Zeile gehen muss und Return betätigen muss.
nun ja :-)
das noch als Ergänzung ...

[Nils_13]

Zitat:

Zitat von Sharky

Hai stoxx,

wie muss ich das denn installieren (Delphi 7).?

Komponente Installieren --> Hinzufügen --> Ok --> fertig.