Eure besten Quellcode Kommentare...

[ConnorMcLeod]

Length <= 0 finde ich extrem pessimistisch. lol

[Der schöne Günther]

Delphi-Quellcode:

try
   [...]
except
   // do a barrel roll
end;

[Ghostwalker]

Delphi-Quellcode:

var I :integer;
begin
  //i ist eine Zählvariable
  for i := 0 to flist.count-1 do
   :

Wer hät's gedacht.....

[ConnorMcLeod]

... aus neulich erwähntem geerbten Code:
procedure Abfragenauswahl; { Auswählen welche Abfrage genommen werden soll } Kommt auch in die Schublade "Wer hätt's gedacht"

[Ritsch]

Delphi-Quellcode:

ShowMessage('[...]Anwendung wird neu initialisert.' + #13#10 +
              'Aufgrund der deaktivierten Fehlerbehandlung kann es nun zu sehr sehr scheusslichen Szenen kommen. '+ #13#10#13#10 +
              'Kinder und Jugendliche unter 18 Jahren sollten nun den Raum verlassen.' + #10#13#10#13 +
              'Viel Glück!');

Gerade im Code gefunden. Die Message wurde durch eine Funktion ausgelöst von der nicht mal der Projektleiter wusste das es sie gibt.

[Delphi-Laie]

//jetzt alle "Mohikaner" einsammeln

(stammt von mir)

[Der schöne Günther]

WTF Mann...

Code:

   // Ja, Tabellen und Feldnamen sind hier fest einkodiert. Aber ich glaube
   // hungernde Kinder in Afrika haben ganz andere Probleme...

Darunter folgt dann ein Paradebeispiel für eine katastrophale SQL-Injection-Möglichkeit

[bcvs]

    AktRezeptur:='!"§$%&/()=?'; // kommt garantiert nicht vor
Wer weiß ...

[nakaramia]

Code:

// Ansonsten wurde das Programm trotz vieler Redundanzen nicht verändert, um die delikate
// Ablauflogik nicht zu gefährden

[himitsu]

Delphi-Quellcode:

type ☻ = Integer;

function ｡◕‿◕｡(☺: Integer): ☻;
begin
  Result := not ☺;
end;

Delphi-Quellcode:

var ☺, ☻: Integer;

☺ := 123;
☻ := ｡◕‿◕｡(☺);

Ist zwar kein Kommentar, aber diesen Code muß man doch auch nicht kommentieren, denn da erkennt man sofort was abgeht.

Und ja, der Code ist richtig, kompiliert und läuft sogar.
Quelle: http://www.delphipraxis.net/191928-k...ehlerhaft.html