Debuggen in "with"

[Aviator]

Hi Leute,

mal eine (vielleicht) blöde Frage an alle Spezialisten hier. Ich programmiere nun auch schon länger mit Delphi und nutze auch den Debugger ziemlich oft. Bisher hatte ich auch nie Probleme damit bzw. konnte mir immer irgendwie weiterhelfen. Mich stört nur eine Sache relativ stark, bei der ich hoffe, dass man die irgendwie umgehen kann.

Das Problem liegt hier:

Delphi-Quellcode:

with Label1 do begin
  Canvas.Font.Size := 12;
  Canvas.Font.Name := 'Calibri';
  ...
end;

Das mal nur als Beispiel. Wenn ich jetzt die Maus auf Size halte, wird mir natürlich immer die Canvas.Font.Size der Form angezeigt und nicht auf das sich eigentlich beziehende Label. Meine Frage ist jetzt: Ist es irgendwie möglich, dem Debugger beizubringen, dass er mir den Wert des Labels zurückgibt wenn ich die Maus darauf halte und nicht den der Form ohne ihn in die Liste der überwachten Ausdrücke aufzunehmen?

Schonmal danke im Voraus für die Hilfe. Wenn noch Fragen dazu offen sind, einfach stellen.

[Furtbichler]

Einfach kein 'With' benutzen

[p80286]

Na klar, kein Problem:

Delphi-Quellcode:

Label1.Canvas.Font.Size := 12;
Label1.Canvas.Font.Name := 'Calibri';

Gruß
K-H

[Aviator]

Ja das es so geht ist mir klar. Gibt es aber keine Möglichkeit, das alles zu debuggen, ohne das "with" wegzulassen oder den Komponentennamen davor zu schreiben?

[Sir Rufo]

Zitat von Aviator:

Ja das es so geht ist mir klar. Gibt es aber keine Möglichkeit, das alles zu debuggen, ohne das "with" wegzulassen oder den Komponentennamen davor zu schreiben?

Nein

[Aviator]

Naja ok. Dann muss ich es weiterhin wie gewohnt machen. Danke für die Info.

[Perlsau]

Zitat von Aviator:

Naja ok. Dann muss ich es weiterhin wie gewohnt machen. Danke für die Info.

Die Verwendung von with ist generell problembehaftet und sollte daher grundsätzlich vermieden werden. Das Problem liegt darin, daß man in einem With-Block leicht einmal Befehle unterbringt, die sich gar nicht auf das With-Objekt beziehen sollen und damit Laufzeitfehler erzeugt, die dann nur sehr schwer zu finden sind. With ist im Prinzip nur eine scheinbare Erleichterung für Schreibfaule. Da ich auch dazu neige, eher weniger als mehr tippen zu müssen, kopiere ich mir in solchen Fällen das Objekt, dessen Properties und Methoden ich benötige, in den Zwischenspeicher und muß das dann auch nicht mehr tippen, in folgendem Fall die fett markierten Teile:

Label1.Canvas.Font.Size := 12;
Label1.Canvas.Font.Name := 'Calibri';
Label1.Canvas.Font.Color := clRed;
Label1.Canvas.Font.Style := [fsBold];

Das hat den zusätzlichen Vorteil, daß ich mittels Code-Vervollständigung die benötigten Properties ebenfalls nicht eintippen muß, sondern nach Eingabe des Punktes aus dem Kontextmenü auswählen kann, nachdem ich den ersten Buchstaben getippt habe.

[jaenicke]

Ein anderes Problem bei with ist, dass man z.B. darin Variablennamen benutzt, die dann z.B. durch ein Delphiupdate plötzlich auch in dem with Objekt verfügbar sind. Solche Probleme dann zu finden ist auch extrem aufwendig, da es keinerlei Compilerhinweise darauf gibt.

Zitat von Perlsau:

Da ich auch dazu neige, eher weniger als mehr tippen zu müssen, kopiere ich mir in solchen Fällen das Objekt, dessen Properties und Methoden ich benötige, in den Zwischenspeicher und muß das dann auch nicht mehr tippen, in folgendem Fall die fett markierten Teile:

Ich deklariere da schlicht eine Variable dafür und speichere das zwischen. So funktioniert intern with ja auch. Auf diese Weise ist der Quelltext übersichtlicher, aber nicht langsamer als mit with, ich kann ordentlich debuggen und es gibt keine möglichen Nebeneffekte.

Delphi-Quellcode:

var
  LabelFont: TFont;

LabelFont := Label1.Canvas.Font;
LabelFont.Size := 12;
LabelFont.Name := 'Calibri';
LabelFont.Color := clRed;
LabelFont.Style := [fsBold];

[Perlsau]

Zitat von jaenicke:

Ein anderes Problem bei with ist, dass man z.B. darin Variablennamen benutzt, die dann z.B. durch ein Delphiupdate plötzlich auch in dem with Objekt verfügbar sind. Solche Probleme dann zu finden ist auch extrem aufwendig, da es keinerlei Compilerhinweise darauf gibt.

Naja, das kann mir bei Delphi 2009 wohl eher nicht passieren
Ist aber dennoch ein gutes Argument

Zitat von jaenicke:

Ich deklariere da schlicht eine Variable dafür und speichere das zwischen. So funktioniert intern with ja auch. Auf diese Weise ist der Quelltext übersichtlicher, aber nicht langsamer als mit with, ich kann ordentlich debuggen und es gibt keine möglichen Nebeneffekte.

Gute Idee! Du meinst, die wiederholte Qualifizierung macht den Code echt langsamer? Das muß ich mir merken ...

[jaenicke]

Zitat von Perlsau:

Du meinst, die wiederholte Qualifizierung macht den Code echt langsamer? Das muß ich mir merken ...

Es wird ja jedesmal der Getter der entsprechenden Eigenschaft aufgerufen. Je nachdem was dieser macht, kann das deutlich langsamer sein.
Und selbst wenn nur die entsprechende Position des Feldes in dem Objekt aufgelöst werden muss, weil es keinen Getter gibt, braucht das mindestens einen Assemblerbefehl pro Stufe mehr.
Dazu kommt, dass der Compiler beim einmaligen Abruf die Register besser optimieren kann, da er ermitteln kann von wo bis wo dieser konkrete Wert benötigt wird und diesen dann z.B. in einem Register halten kann.

Heißt: Langsamer ist es in jedem Fall, wie viel hängt vom konkreten Fall ab.

Im konkreten Fall werden bei jedem Aufruf nur 3 Assemblerbefehle eingespart, weil es keine Getter gibt. Den Unterschied siehst du hier:



Links siehst du wie die Kette von Label1 über Canvas und Font aufgelöst wird. Rechts wird der Wert im Stack an Adresse ebp-$08 gespeichert und dann jeweils nur daraus hervorgeholt um dann direkt für den Aufruf in eax gespeichert zu werden. (Das Objekt, auf das sich eine Methode bezieht, wird immer als erster Parameter in eax mitgegeben.)
Bei with kommt übrigens der gleiche Code heraus wie mit der Zwischenvariable, denn wie schon geschrieben macht with ja nichts anderes, nur eben schlechter.