With Auflösen Refactoring?

[TurboMagic]

Habe gerade gegoogelt ob es irgendwo eine Funktion/Erweiterung gibt mit der man in einem existierenden Code
der sehr viele With Anweisungen verwendet (sogar der Form with a,b do) die Withs in normale Aufrufe
umwandeln lassen kann.

Quasi von hier:

Delphi-Quellcode:

var
  MyForm : TForm;
begin
  with MyForm do
  begin
    Left := 100;
    Top := 100;
    Width := 600;
    Height := 400;
  end;
end;

nach da:

Delphi-Quellcode:

var
  MyForm : TForm;
begin
  MyForm.Left := 100;
  MyForm.Top := 100;
  MyForm.Width := 600;
  MyForm.Height := 400;
end;

Hab' aber nichts gefunden.
Gibt's sowas?

Grüße
TurboMagic

[DieDolly]

Versuchs mal mit Bard. Das hat bei mir bisher immer gute Ergebnisse gezeigt.

[jaenicke]

Nein, das gibt es nicht. Durch die Probleme, die with mit sich bringt, kann nur der Compiler das sinnvoll auflösen. Denn dafür muss man genau wissen, welche Eigenschaften welches Objekt hat usw., damit man die Befehle richtig zuordnet. Das kann kein externes Tool sinnvoll machen. Das schafft ja nicht einmal der Debugger.

Wenn es nur um die reine Umsetzung wie im Beispiel geht, könnte man das sicher automatisieren, z.B. wie vorgeschlagen mit KI, aber meist ist es ja komplizierter.

[himitsu]

Wenn man absolut garnichts weiß, dann gibt es nur einen Weg.
Und der geht auch nur, wenn es nur einen Eintrag im With gibt. (ja, man kann mehr als einwas dort angeben)

* Vor alles in dem WITH diesen Ausdruck mit Punkt hinzufügen,
* das WITH entfernen
* und dann alles wieder rauswerfen, was der Compiler bemängelt.



Klar, man könnte bestimmt einer KI ALLES beibringen, was an Sourcen rein geht (auch alles vom USES und dem was wiederum darin vorkommt.
Dann könnte man, ähnlich wie der Compiler, den Code analysieren und erkennen was zu wem gehört.
Aber wie gefährtlich das ist, erkannt man daran, dass inzwischen Vieles auf ein gemeinsames LSP umgebaut wird, denn es wirde nie geschafft ALLE Parser so hinzubekommen, dass sie mit der gleichen Syntax/Optionen/Quellen arbeiten und tweilweise unterschiedlich/falsch reagieren, z.B. siehe das Error-Insight, welches bekanntlich oft nur Mist anzeigt(e).

Problematisch sind dann auch noch Versionsunterschiede, also wo sich Objekte verändert haben.
Denn folgender Code hat im Delphi 7 eine ganz andere Wirkung, als z.B. im Delphi 11:

Delphi-Quellcode:

// in einer Methode einer TForm und Rect1=TRect;
with Rect1 do begin
  Width := Right - Left;
  Height := Botton - Top;
end;

end;

[TurboMagic]

Hallo,

danke für die Antworten. Dann wäre das doch ein Anwendungsfall
für ein LSP basiertes Refactoring in der IDE. Oder?

Grüße
TurboMagic

[jaenicke]

Zitat von TurboMagic:

Dann wäre das doch ein Anwendungsfall für ein LSP basiertes Refactoring in der IDE. Oder?

Wie so vieles andere auch...
Irgendwann wird das Refactoring vielleicht mal auf der Basis umgesetzt... ich hoffe vor meiner Rente.

Im Ernst: Ich fürchte, dass so etwas noch eine Weile auf sich warten lässt. Leider.

[himitsu]

Ich wollte ja mal schauen was da möglich ist, aber in der OTA fehlt komplett alles dazu, ebenso nichts zum GetIt.
Und Infos zu finden, wie man den LSP manuell ansprechen konnte, sind auch recht selten.

[Uwe Raabe]

Zitat von himitsu:

Wenn man absolut garnichts weiß, dann gibt es nur einen Weg.
Und der geht auch nur, wenn es nur einen Eintrag im With gibt. (ja, man kann mehr als einwas dort angeben)

* Vor alles in dem WITH diesen Ausdruck mit Punkt hinzufügen,
* das WITH entfernen
* und dann alles wieder rauswerfen, was der Compiler bemängelt.

Das ist schon mal gar keine so schlechte Idee. Das mit den Multiple-Withs kann man lösen, in dem man sukzessive von hinten nach vorn eliminiert.

Der MMX Code Explorer hat ja ein Convert with statement, was aber eben keine vollständig automatische Konvertierung macht, sondern lediglich Hilfe bei der manuellen Lösung bietet. Ich könnte mir vorstellen, dass eine Option zur Implementierung deines ersten Punktes eine Verbesserung bringen könnte. Bei entsprechend aufwändiger Implementierung ließen sich vielleicht auch noch einige triviale Fälle ausblenden.

Für die OTAPI hätte ich auch gerne noch ein Interface um den LSP zu verwenden, aber da sollen sie besser erstmal ihren eigenen Kram stabil zum Laufen kriegen.

[himitsu]

Zitat:

Delphi-Quellcode:

with ListView1.Items.Add do
begin
  Caption := 'wupp';
  SubItems.Add('di');
  ImageIndex := 42;
end;

Delphi-Quellcode:

var I := ListView1.Items.Add;
I.Caption := 'wupp';
I.SubItems.Add('di');
I.ImageIndex := 42;

[uligerhardt]

Zitat von himitsu:

Zitat:

Delphi-Quellcode:

with ListView1.Items.Add do
begin
  Caption := 'wupp';
  SubItems.Add('di');
  ImageIndex := 42;
end;

Delphi-Quellcode:

var I := ListView1.Items.Add;
I.Caption := 'wupp';
I.SubItems.Add('di');
I.ImageIndex := 42;

Hat Redeemer ja geschrieben - lokale Variable einführen.