Eure besten Quellcode Kommentare...

[ConnorMcLeod]

... aus einem übernommenen Quelltext:

Delphi-Quellcode:

procedure Datenerfassung
begin
   // Hier steht der Code für die Datenerfassung
   // ******************************************
...
end;

[Der schöne Günther]

Zählen auch Commit-Messages?

Zitat:

Fix: Lokaler Record evtl nicht initialisiert. Es ist 2014 und der Compiler warnt
nicht vor so etwas ¯\_(ツ)_/¯

[Fritzew]

Kommentar in einem Project das ich für ein refactoring übernommen habe:

Delphi-Quellcode:

  { TODO :  Ich will wissen was der Typ geraucht hat!!!!!!!!      Für weitere Informationen bitte Unbedingt mail an xxxxx@xxxxx }

[himitsu]

Ist doch auch sowas, wie ein Kommentar (im SVN heißen die sogar Comments).

Hey Kopfloser.
Noch besser sind Quellcodes, wo jeder Befehl kommentiert ist.
Wirklich JEDER, selbst ein

Delphi-Quellcode:

Inc(i);  // erhöht i um 1

. (und ja, sowas hab ich schonmal gesehn :shock:)
Und sowas, wie deinen Kommentar finde ich bei uns auch öfters mal. :lol:

[dGeek]

Delphi-Quellcode:

Inc(i); // erhöht i um 1

Ist doch total legitim?

Denn es könnte ja in derselben Unit folgendes stehen:

Delphi-Quellcode:

procedure Inc(var iValue: Integer);
begin
 System.Inc(iValue, 2);
end;

:lol:

[himitsu]

Der Schuldige gehört dann aber auch dafür gevierteilt ... mindestens

Delphi-Quellcode:

const
  False = True;

[Luckie]

Nee. Der Schuldige gehört bis auf null decrementiert. :mrgreen:

[dGeek]

Hier noch ein guter Kommentar, gerade gefunden:

Delphi-Quellcode:

// Das funktioniert noch immer nicht
// Die Erkennung ist sche***

[Horst0815]

Zitat:

Zitat von himitsu (Beitrag 1346992)

Der Schuldige gehört dann aber auch dafür gevierteilt ... mindestens

Delphi-Quellcode:

const
  False = True;

Zwar kein Kommentar aber endgeil:thumb:

[JanWe]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var x : Integer;
s, t, u: String; [...]
begin
if lenght(t) <= 0 then msgboxDLG("FEHLER","findet nix",[mbOK],0);
exit; // für Fehlersuche, falls t leer ist
for i := 1 to x do
  begin
  [...]
  end;
Edit1.text := s;
end;

Zitat:

»ich weiß garnicht, "s" bleibt immer leer. Sieht einer, warum?