Eure besten Quellcode Kommentare...

[jaenicke]

Dann will ich euch auch diese Zeilen aus einer Open Source Unit von mir nicht vorenthalten:

Delphi-Quellcode:

// Hier kann direkt eingestellt werden welche Möglichkeiten zur Verfügung stehen
// sollen, andere werden dem Benutzer nicht angeboten.
{$DEFINE ...}
...
// Um eine Möglichkeit zu entfernen genügt ein Punkt nach dem { wie im Beispiel:
{.$DEFINE DoNonsens :D}

[FAlter]

Delphi-Quellcode:

{ ... }
    Bitmap.Width  := Width;
    Bitmap.Height := Height;
    //Früher wars mal so, führte zu ner AV weiter unten (LOL!!!!)
//    Bitmap.Width  := Height;
//    Bitmap.Height := Width;

[himitsu]

wenn ich alle Fehler so dokumentiert festhalten würde, dann wären einige Quellcodes bestimmt 3ma so lang

[Mithrandir]

Musste eben über einen Kommentar in der Unit "U_Store_Dynamic_Params.pas" von Sirius schmunzeln:

Delphi-Quellcode:

//wird häufig benutzt ;-)
procedure fehler;
begin
    raise RTTIException.Create(StreamFehler);
end;

[TurboMartin]

Grade gefunden:

Code:

# .inc-Includes nie ausliefern.
# Ja, Kunden sind doof ...

[Medium]

Gefunden in TGIFImage von F. Tolderlund/A. Melander, in einem Abschnitt in dem Compilerversionsunterschiede behandelt werden:

Delphi-Quellcode:

// C++ Builder 1.x
{$IFDEF VER93}
  // Good luck...
  {$DEFINE VER9x}
{$ENDIF}

Fand ich irgendwie knuffig

[himitsu]

Zitat von Medium:

Fand ich irgendwie knuffig

hey, das paßt ja ... hab grad sowas gefunden

Delphi-Quellcode:

(*$IFDEF MSWINDOWS *)
  (*$DEFINE D1_OR_NEWER *)
  (*$IFNDEF VER80 *)
    (*$DEFINE D2_OR_NEWER *)
    (*$IFNDEF VER90 *)
      (*$DEFINE D3_OR_NEWER *)
      (*$IFNDEF VER100 *)
        (*$DEFINE D4_OR_NEWER *)
        (*$IFNDEF VER120 *)
          (*$DEFINE D5_OR_NEWER *)
          (*$IFNDEF VER130 *)
            (*$IFNDEF VER140 *)
              (*$IFNDEF VER150 *)
                If the compiler gets stuck here,
                you are using a compiler version unknown to this code.
                You will probably have to change this code accordingly.
                At first, try to comment out these lines and see what will happen.
              (*$ENDIF *)
            (*$ENDIF *)
          (*$ENDIF *)
        (*$ENDIF *)
      (*$ENDIF *)
    (*$ENDIF *)
  (*$ENDIF *)
(*$ENDIF *)

aus dem LibXmlParser von Stefan Heymann

aber ich mußte erst mehrfach hingucken, bevor ich merkte was hier los ist.

kenn sowas Ähnliches nur von Einigen zum Abschalten von Compilerdirektiven
{*$irgendwas}  // man beachte die Klammern

[nahpets]

aus einem PL/SQL-Package...

Code:

...
EXCEPTION
  WHEN NO_DATA_FOUND THEN                             --  Setze Endmeldung in datenapkete
    null;
END;

Wer mag die so gesetzte Meldung wohl finden

[igel457]

Folgendes habe ich letztens bei mir im Quellcode gefunden:

Delphi-Quellcode:

{The buffer size in bytes.}
property BufSize: integer read FBufSize write FBufSize; //!TODO: What the heck is this?? And why is it writeable? Which buffer???

[Luckie]

Im Internet gefunden:

Delphi-Quellcode:

// 
// Dear maintainer:
// 
// Once you are done trying to 'optimize' this routine,
// and have realized what a terrible mistake that was,
// please increment the following counter as a warning
// to the next guy:
// 
// total_hours_wasted_here = 17
//