Eure besten Quellcode Kommentare...

[Neutral General]

Hi,

Zwar kein Code Kommentar aber ein "normaler", den ich in der FAT Spezifikation von Microsoft gefunden habe und lustig fand:

Zitat:

Do not spend too much time trying to figure out why this math works. The basis for the computation is complicated; the important point is that this is how Microsoft operating systems do it, and it works.

Hört sich so an, als wüssten sie selbst nicht so genau warum es funktioniert

[Mikescher]

Da muss ich hier auch mal was beitragen:

/* no comment */

[himitsu]

tut mir Leid, aber ich konnt nimmer anders

Delphi-Quellcode:

{$IF Declared(UnicodeString)}

  Function AnsiLowerCase(Const S: AnsiString): AnsiString;
    Begin
      Result := AnsiStrings.AnsiLowerCase(S);
    End;

  Function UnicodeLowerCase(Const S: UnicodeString): UnicodeString;
    Begin
      Result := SysUtils.AnsiLowerCase(S);  // ich weiß, D2009 ist besch***
    End;

{$IFEND}

(WideLowerCase ist wenigstens noch OK)

[PhilmacFLy]

Gerade in meinen Code eingeflossen

//Ich kommentier das mal jetzt in der Hoffnung das ich es in 3 Monaten noch versteh ´

und dann auch den hier auch grad noch reingeschreiben

Delphi-Quellcode:

//So hier Erklärung also aufgepasst:
//Ok Erklärung fällt kleiner aus da toten Code gefunden
//Eigentlich ziemlich einfach die Id zum messmodus
//namen festellen und an die Messung übergeben
//Und Philipp wenn du den gelöschten Code suchst --> L:\NX\messmodus_check.txt

[Satty67]

Also ich hab' jetzt stichprobenartig meinen Quellcode bis zurück zu 1993 durchsucht. Ich habe keine lustigen Kommentare gefunden, allgemein war ich ziemlich spärlich mit kommentieren

Aber... ich hab' jede Menge sehr lustigen Quellcode gefunden (...und ich war stolz drauf!)

[xZise]

Was ist denn lustiger Quelltext?

MfG
Fabian

[Satty67]

Ich bin wieder im Büro, sonst hätte ich ein Abschnitt 1:1 kopiert...

...aber sinngemäss (nicht ganz so banal, aber fast) sieht das in meinem UraltCode etwa so aus:

Delphi-Quellcode:

if i = 1 then value := 1 
else if i = 2 then value := 2
else if i = 3 then value := 3;

Also von 1993, ein klein wenig hab' ich inzwischen dazu gelernt

Damals hatte ich wohl gedacht, erst mal prüfen ob es eine Zwei eine Zwei ist.

PS: Einige Funktionen, die sich über mehrere (heutige, 23"-) Bildschirmseiten ziehen sind auch dabei, die kann ich jetzt aber nicht wiedergeben... auch nicht sinngemäß.

[MarcoWarm]

//Do not panic if you see an EAccessViolation here, it is perfectly harmless!

//logisch oder?

//Hier gehts dann wirklich um die Wurst

wer's glaubt:
//Natürlich bekommen wir hier nur die, die wir auch definiert haben

// doesn't seem to work properly...

[Jakob Ullmann]

Gerade gesehen:

Delphi-Quellcode:

try
  ...
except
  // Wird noch implementiert...
  // oder auch nicht...
  // Abwarten und Tee trinken...
  // ach mach einfach gar nichts, ...
  // ...falls eine Exception auftritt
end;

[Assertor]

Hi,

heute entdeckt:

Zitat:

{ TODO -oJMT -cMUSTFIX : What is this code doing? }

Quelle: Delphi 2009 Source für WebSnap.

Übrigens kann ich jedem mal eine Suche nach "???", "!!!" und "TODO" in der VCL/RTL empfehlen - echt lustig, wir kochen ja alle nur mit Wasser

Gruß Assertor