Quelltext kommentieren

[coocky]

Hey, ich habe folgenden Quelltext in ein Programm eingefügt und soll diesen jetzt kommentieren, versteh ihn aber nicht. Könntet ihr ihn bitte kommentieren? Und Weiß jemand, wie man diesen Quelltext in einem Struktogramm darstellt, weil ich die Struktur with as noch nicht kenne.

Delphi-Quellcode:

begin
  with Control as TListBox do begin
    Canvas.FillRect(Rect);
    Canvas.FontColor:=TColor(Items.Objects[Index]);
    Canvas.TextOut(Rect.Left +2, Rect.Top, Items[Index]);
  end;
end;

[Fussball-Robby]

Zitat:

Zitat von coocky

Könntet ihr ihn bitte kommentieren?

Nein, wir können dir aber helfen. Was von dem Quelltext genau verstehst du denn bzw verstehst du nicht?

[patti]

Die Online-Hilfe könnte dir dabei sehr behilflich sein!

Einfach z.B. den Caret ("Text-Cursor") auf FillRect setzen und F1 drücken. Schon gelangst du in die Hilfe, wo einiges erklärt wird. Wenn du dann immer noch Verständnis-Probleme hast, dann frag einfach nach.

Zu "with ... as ... do": das "Objekt" Control soll wie eine TListBox behandelt werden. Zwischen dem begin und dem end steht, was mit diesem Objekt passieren soll (in deinem Beipsiel wird die Canvas - also die Zeichenfläche - benutzt).

Hoffe, ich konnte dir auf die Schnelle zumindest etwas weiterhelfen ;-)

Patti

[gmc616]

Delphi-Quellcode:

begin
  with Control as TListBox do begin  // Mit dem gewählten Control
    Canvas.FillRect(Rect); // mal ein Viereck, so groß wie das Control ist
    Canvas.FontColor:=TColor(Items.Objects[Index]); // Setze Schriftart, so wie irgendwo gewählt
    Canvas.TextOut(Rect.Left +2, Rect.Top, Items[Index]); // Schreibe einen String aufs Control
  end;
end;

Mehr läßt sich auch den 5 Zeilen nicht entnehmen

[jbg]

Und das sind genau die Art von Quellcode-Kommentaren, die man nicht machen soll. Das Offensichtliche muss nicht noch zusätzlich kommentiert werden. (Infos für Anfänger mal ausgenommen).

[s-off]

Zitat:

Zitat von gmc616

Delphi-Quellcode:

Canvas.FillRect(Rect); // mal ein Viereck, so groß wie das Control ist

Woher weißt Du, dass 'Rect' keine Variable ist, die ganz andere Maße hat, als das Control?
Desweiteren hast Du die grundlegende Eigenschaft der Methode 'FillRect' unterschlagen.

Zitat:

Zitat von gmc616

Delphi-Quellcode:

Canvas.FontColor:=TColor(Items.Objects[Index]); // Setze Schriftart, so wie irgendwo gewählt

Wo wird hier eine Schriftart gesetzt?

Wie bereits gesagt wurde, ist es besser, mal die Hilfe zu bemühen, als noch falsche Sachen zu lernen.

[Phoenix]

Zitat:

Zitat von s-off

Zitat:

Zitat von gmc616

Delphi-Quellcode:

Canvas.FillRect(Rect); // mal ein Viereck, so groß wie das Control ist

Woher weißt Du, dass 'Rect' keine Variable ist, die ganz andere Maße hat, als das Control?

Es könnte eine Variable Namens Rect geben, aber benutzt wird Control.Rect. Eine der bösen Fallen bei with...

[s-off]

Zitat:

Zitat von Phoenix

Es könnte eine Variable Namens Rect geben, aber benutzt wird Control.Rect. Eine der bösen Fallen bei with...

Da muss ich DIr leider widersprechen; probier's aus:

Delphi-Quellcode:

Procedure TForm1.MalDas(Control: TControl);
Var
   Rect: TRect;
Begin
   Rect.Left := 10;
   Rect.Top := 10;
   Rect.Right := 60;
   Rect.Bottom := 60;

   //alles was hier drüber steht, kennen wir nicht - könnte ja eine lokale Variable sein *g*
   With Control As TListBox Do Begin
      Canvas.Brush.Color := clYellow;
      Canvas.FillRect(Rect);
      Canvas.Font.Color := clRed; 
      Canvas.TextOut(Rect.Left + 2, Rect.Top, 'Hallo');
   End;
End;

Hier wird die lokale Variable Rect zugrunde gelegt.

[gmc616]

Oho, so wie's scheint hab ich vergessen meinen Post in IRONIE-Tag zu setzten.

Dachte eigentlich, das mit dem Satz "Mehr läßt sich auch den 5 Zeilen nicht entnehmen" alles gesagt wäre.

[s-off]

Zitat:

Zitat von gmc616

Dachte eigentlich, das mit dem Satz "Mehr läßt sich auch den 5 Zeilen nicht entnehmen" alles gesagt wäre.

Wäre es ja auch - wenn es denn korrekt wäre, was Du schreibst, was aber leider nur zu 50% zutrifft :mrgreen:

[gmc616]

<IRONIE>
33,33% -> 50% :kiss:
</IRONIE>

[Tharon]

Zitat:

Zitat von gmc616

Oho, so wie's scheint hab ich vergessen meinen Post in IRONIE-Tag zu setzten.

Dachte eigentlich, das mit dem Satz "Mehr läßt sich auch den 5 Zeilen nicht entnehmen" alles gesagt wäre.

Mag sein, dass Du das ironisch gemeint hast (was ich hoffe :wink: )... aber woher soll das ein Anfänger wissen??? Der denkt wahrscheinlich, so sollten die Kommentare wirklich aussehen...

Zitat:

Zitat von s-off

Zitat:

Zitat von Phoenix

Es könnte eine Variable Namens Rect geben, aber benutzt wird Control.Rect. Eine der bösen Fallen bei with...

Da muss ich DIr leider widersprechen; probier's aus:

Delphi-Quellcode:

Procedure TForm1.MalDas(Control: TControl);
Var
   Rect: TRect;
Begin
   Rect.Left := 10;
   Rect.Top := 10;
   Rect.Right := 60;
   Rect.Bottom := 60;

   //alles was hier drüber steht, kennen wir nicht - könnte ja eine lokale Variable sein *g*
   With Control As TListBox Do Begin
      Canvas.Brush.Color := clYellow;
      Canvas.FillRect(Rect);
      Canvas.Font.Color := clRed; 
      Canvas.TextOut(Rect.Left + 2, Rect.Top, 'Hallo');
   End;
End;

Hier wird die lokale Variable Rect zugrunde gelegt.

Also... with gehört IMHO mit zu den schrecklichsten Sprachkonstrukten überhaupt *schauder*
Nicht nur, dass der Code schwieriger lesbar wird (vor allem bei langen with-Blöcken und gerade da würde ein with überhaupt nur Sinn machen), es wird auch <IRONIE>unheimlich das Debuggen erleichtert&lt;/IRONIE&amp;gt;... :wink:

Ich finde, with sollte grundsätzlich nicht verwendet werden (in eigenem Code). Es gibt auch keinen Grund dafür... außer um anderen das Leben schwerer zu machen. Code sollte wenn möglich so geschrieben sein, dass er möglichst einfach und schnell zu verstehen, zu warten und zu debuggen ist.

Auch der Cast in dem with-Block ist kein Argument, denn man kann sich einfach mit einer lokalen Variablen behelfen:

Delphi-Quellcode:

Procedure TForm1.MalDas(Control: TControl);
Var
   rect:    TRect;
   lst:     TListBox;
Begin
   rect.Left := 10;
   rect.Top := 10;
   rect.Right := 60;
   rect.Bottom := 60;


   // alles was hier drüber steht, kennen wir nicht - könnte ja eine lokale Variable sein *g*
   With Control As TListBox Do Begin
      Canvas.Brush.Color := clYellow;
      Canvas.FillRect(Rect);
      Canvas.Font.Color := clRed; 
      Canvas.TextOut(Rect.Left + 2, Rect.Top, 'Hallo');
   End;

   // diese Variante kommt ohne with aus... und es ist nicht wirklich mehr zu tippen... habe die
   // Zeichen jetzt aber nicht gezählt *g*
   lst := (Control as TListBox);
   lst.Canvas.Brush.Color := clYellow;
   lst.Canvas.FillRect(lst.Rect);
   lst.Canvas.Font.Color := clRed; 
   lst.Canvas.TextOut(lst.Rect.Left + 2, lst.Rect.Top, 'Hallo');
End;

Wobei in diesem Beispiel der Cast in TListBox sowieso unnötig ist - mal nebenbei bemerkt - aber es ging ja jetzt ums Prinzip :wink:

Allerdings ist diese Diskussion jetzt grade etwas off-topic...
Daher noch was zu der ursprünglichen Frage von coocky:

Die schlechtesten Kommentare sind die, welche schlicht falsch sind (weil z.B. von irgendwoher kopiert und nicht angepasst wurden), da sie nicht nur ihren Sinn nicht erfüllen, sondern den Leser auch noch in die Irre führen...
Daher Kommentare immer sehr sorgfältig schreiben!

Schlicht sinnlos sind Kommentare, die einfach nur den Code in unsere Sprache übersetzen - Kommentare sind nicht dazu gedacht, dem Leser die Sprache beizubringen!

Delphi-Quellcode:

// völlig sinnloser Kommentar...
Canvas.TextOut(Rect.Left + 2, Rect.Top, 'Hallo');    // Schreibe 'Hallo' auf die Zeichenfläche des Controls

// das ist so wie...
i := i + 1;    // erhöhe i um 1

Kommentare sollen z.B. erklären, warum man etwas macht... oder warum gerade so und nicht anders... oder können einfach zur Strukturierung des Codes verwendet werden, wie Überschriften in einem Text... nur um mal ein paar wenige Beipiele zu nennen :wink:

Delphi-Quellcode:

// Hierdurch soll erreicht werden, dass.... blabla...
//
// Diese Variante wurde gewählt, weil... blabla...
//
// ACHTUNG:
// Es wird hier nicht überprüft, ob Items.Objects[Index] auch in TColor gecastet werden kann!
// Es sollte unbedingt noch eine entsprechende Prüfung eingebaut werden und im Falle eines ungültigen Wertes
// eine festgelegte Standardfarbe verwendet werden!
//
// TODO: Prüfung auf gültigen Farbwert in Items.Objects[Index]!      (<-- Dies erzeugt einen Eintrag in der Delphi-ToDo-Liste)
//
with Control as TListBox do begin
  Canvas.FillRect(Rect);
  Canvas.FontColor := TColor(Items.Objects[Index]);
  Canvas.TextOut(Rect.Left + 2, Rect.Top, Items[Index]);
end;

So... das mal so als Anregung :wink:

[Aurelius]

Klar sollen Kommentare das Ganze nicht in "unsere" Sprache übersetzen. Aber als Erklärung für Anfänger ist sowas dann doch geeignet

[RavenIV]

Zitat:

Zitat von Tharon

schnip - schnap

Ich gebe Dir in allen erwähnten Punkten volle Zustimmung.

Endlich einer, der auf der selben Wellenlänge schwimmt wie ich. :hello: :hi:

[jottkaerr]

Hallo s-off, Hallo Phoenix,

Zitat:

Zitat von s-off

Zitat:

Zitat von Phoenix

Es könnte eine Variable Namens Rect geben, aber benutzt wird Control.Rect. Eine der bösen Fallen bei with...

Da muss ich DIr leider widersprechen; probier's aus:

Delphi-Quellcode:

Procedure TForm1.MalDas(Control: TControl);
Var
   Rect: TRect;
Begin
   Rect.Left := 10;
   Rect.Top := 10;
   Rect.Right := 60;
   Rect.Bottom := 60;

   //alles was hier drüber steht, kennen wir nicht - könnte ja eine lokale Variable sein *g*
   With Control As TListBox Do Begin
      Canvas.Brush.Color := clYellow;
      Canvas.FillRect(Rect);
      Canvas.Font.Color := clRed; 
      Canvas.TextOut(Rect.Left + 2, Rect.Top, 'Hallo');
   End;
End;

Hier wird die lokale Variable Rect zugrunde gelegt.

Phoenix hat im Prinzip Recht -- wenn TListBox ein Property Rect hätte, würde die lokale Variable versteckt. s-offs Beispiel beweist hier nichts, denn erst durch sein Hinzufügen einer lokalen Variable wird das Beispiel kompilierbar. Die ursprüngliche Variante lässt sich wegen des fehlenden TControl.Rect bzw. TListBox.Rect gar nicht übersetzen.

jkr

[s-off]

Hallo Jürgen,

was möchtest Du mir jetzt mitteilen?

Zitat:

Zitat von jottkaerr

Phoenix hat im Prinzip Recht -- wenn TListBox ein Property Rect hätte, würde die lokale Variable versteckt.

Hat es aber nicht.

Zitat:

Zitat von jottkaerr

s-offs Beispiel beweist hier nichts, denn erst durch sein Hinzufügen einer lokalen Variable wird das Beispiel kompilierbar. Die ursprüngliche Variante lässt sich wegen des fehlenden TControl.Rect bzw. TListBox.Rect gar nicht übersetzen.
jkr

Ja, natürlich ist das nur durch Hinzufügen der Variable kompilierbar - ich habe auch nichts anderes behauptet:

Zitat:

Zitat von s-off

Woher weißt Du, dass 'Rect' keine Variable ist, die ganz andere Maße hat, als das Control?

Wir wissen nicht, ob Rect eine Variable ist, oder nicht.

Mein Beispiel sollte zeigen, dass, wenn meine Annahme, dass Rect eine Variable ist, zutrifft, diese gezogen wird, - und das tut es - da gibt es nichts dran zu rütteln.

[jottkaerr]

Hallo s-off,

ich hatte Phoenix so verstanden (und tue das noch immer), dass er von einem vorhandenen Property TListBox.Rect ausging, das innerhalb der with-Anweisung eine eventuell vorhandene lokale Variable Rect versteckt. Ich war davon ausgegangen, dass Du

Zitat:

Es könnte eine Variable Namens Rect geben, aber benutzt wird Control.Rect. Eine der bösen Fallen bei with...

ebenfalls so interpretierst.

Dich hatte ich daher so verstanden, dass, auch wenn es ein TListBox.Rect gäbe, die lokale Variable Vorrang hätte und Du ein Gegenbeispiel zu Phoenix' Behauptung bringen wolltest.

Meine Aussage war daher: Wenn Phoenix' Annahme wahr wäre, würde Dein Gegenbeispiel nicht zeigen, dass eine lokale Variable verwendet wird.

jkr

[s-off]

Huhu,

ok, dann war das ein klassischer aneinandervorbeiredner und wir haben alle auf unsere Art recht :zwinker:

[stahli]

OT: Der arme coocky :wink:
... stellt eine einfache Frage und hat jetzt Kopfschmerzen...

(Aber wenn es noch Fragen gibt, trau Dich trotzdem wieder! :lol: )

stahli