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:

Zitat von TurboMagic (Beitrag 1531876)

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

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.

[uligerhardt]

Schon a bissl älter, aber vielleicht nutzt's was: https://stackoverflow.com/questions/...or-with-blocks

[Redeemer]

Man bedenke:

Delphi-Quellcode:

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

Oder noch besser:

Delphi-Quellcode:

with TWuppdi.Create() do
try
  TuWas();
  TuNochWas();
finally
  Free();
end;

Das kann Refactor nicht wissen und müsste eigentlich alle with-do-Subjekte, die keine lokalen Variablen sind, in lokale Variablen schreiben, um sicher zu funkionieren, selbst wenn es unnötig ist.

[uligerhardt]

Zitat:

Zitat von Redeemer (Beitrag 1531903)

Man bedenke:

Delphi-Quellcode:

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

Oder noch besser:

Delphi-Quellcode:

with TWuppdi.Create() do
try
  TuWas();
  TuNochWas();
finally
  Free();
end;

Das kann Refactor nicht wissen und müsste eigentlich alle with-do-Subjekte, die keine lokalen Variablen sind, in lokale Variablen schreiben, um sicher zu funkionieren, selbst wenn es unnötig ist.

Mit etwas Heuristik könnte man das noch verbessern. Wenn das "Subjekt" z.B. eh schon eine Variable ist oder ein direkter Zugriff auf eine Property, die ohne Get-Routine auf eine Membervariable verweist.

[Uwe Raabe]

Zitat:

Zitat von himitsu (Beitrag 1531871)

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;

:angle:

[uligerhardt]

Zitat:

Zitat von himitsu (Beitrag 1531922)

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;

:angle:

Hat Redeemer ja geschrieben - lokale Variable einführen.

[himitsu]

Lokal, oder für so kurze Stückchen auch mal Inline-Variablen. (seit kurzer Zeit)

Nja, meistens nehme ich sowas vorwiegend für DebugCode, vielleicht auch noch in einem IFDEF, alles zusammen.

[TurboMagic]

Zitat:

Zitat von Uwe Raabe (Beitrag 1531914)

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.

Ja und nein: wenn das jemand heute schon als Feature Request einspeist, könnten nötige Arbeiten
evtl. mit sowas im Hinterkopf angegangen werden, was für die pätere Umsetzung von Vorteil sein könnte.

Grüße
TurboMagic