Eure besten Quellcode Kommentare...

[Maliko]

Zitat von dummzeuch:

Besser gar keine Kommentare als falsche oder sinnlose ala

Delphi-Quellcode:

// *******************
// * Prozdur bla     *
// *******************
procedure bla;
var
  i: integer; // Schleifenvariable
begin
  // alle Listenelemente durchlaufen
  for i := 0 to Liste.Count -1 do begin
    // Listenelement verarbeiten
    Process(Liste[i]);
  end;
end;

Leider gibt es immer wieder Firmen die genau sowas wollen. Ich war mal in einer Firma, da sah der Quellcode genauso aus, weil der Entwicklungsleiter darauf bestanden hat, dass jede einzelne Zeile Code kommentiert werden muss. Da kommt dann so ein Müll bei raus. Manchmal habe ich fürs Kommentieren länger gebraucht als für das Schreiben der Funktion.

[Robert Marquardt]

Das IOCCC-Programm das wie Line Garbage aussieht ist schon viele Jahre alt. Da ist dieser Node doch ein eher schwaechlicher Versuch.

[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

[Memnarch]

@Himitsu:
Pack mal inen Funktionsnamen nen LR-Overwrite Character rein. Das ist lustig . Dann kannst du die dinge Teils spiegelverkehrt schreiben, und IDE und Compiler schluckens

[himitsu]

Geil, Variable rückwärts schreiben und umgedreht anzeigen.
Selbst wenn jemand den Namen abschreibt und sich in deine Klasse häcken will, dann kompiliert nichts, weil er ja verkehrtrum schreibt.




Die extrem jugendgefährdeten Kommentare hab ich aber besser mal weggelassen.
Sorry, war etwas genervt.
TJSONObject.ParseJSONValue gibt einfach wortlos NIL zurück, und keine Ahnung warum, denn in der Datei ist jetzt ein valides JSON-Objekt drin.
Vorher JSONObject.ToString entdeckt, dass es totalen Schrott produziert, wie z.B. keine " und sonstige Steuer und Nicht-ASCII-Zeichen zu kodieren, aber vorallem \ und " unkodiert zu lassen ist der Megaburner und gehört eigentlich mit Steinigung bestraft.
Und JSONObject.Parse hört einfach mitten drin auf, wenn ihm was nicht gefällt und lässt dann netterweise defekte/unvollständige Subobjekte zurück.
Delphi DBXJSON.pas aus Delphi XE.

Delphi-Quellcode:

J := TJSONObject.Create;
try
  J.AddPair(...);
  J.AddPair(...);
  ...

  // der DRECK im ToString kodiert die Steuerzeichen nicht
  //TFile.WriteAllText(Datei, J.ToString, TEncoding.UTF8);
  B := TEncoding.UTF8.GetPreamble;
  i := Length(B);
  SetLength(B, i + J.EstimatedByteSize);
  J.ToBytes(B, i);
  while B[High(B)] = 0 do Delete(B, High(B), 1);  // Trim, denn EstimatedByteSize gibt etwa 4 Mal zuviele Bytes zurück
  TFile.WriteAllBytes(Datei, B);
finally
  J.Free;
end;

//J := TJSONObject.ParseJSONValue(TFile.ReadAllText(Datei)) as TJSONObject;
J := TJSONObject.Create;
try
  J.Parse(TFile.ReadAllBytes(Datei), Length(TEncoding.UTF8.GetPreamble));

  // Bei Ladefehler hat das letzte SubObjekt (Size-1) eventuell keinen Namen und es knallt dann bei der Namenssuche
  if not Assigned(J) then
    raise Exception.Create('Fehler beim Laden der Datei');
  if not ((J.Size > 0) and Assigned(J.Get(J.Size-1).JsonString) and Assigned(J.Get('last_sql_columnwidth'))) then
    raise Exception.CreateFmt('Fehler beim Laden der Datei (Item %d)', [J.Size]);

  S := J.Get(ValueName).JsonValue.Value;  // Dieses .Value ist natürlich leer, darum oben auch .JsonValue.Value
  ...
finally
  J.Free;
end;

Der Code, wie er schön aussähr, aber nicht funktioniert:

Delphi-Quellcode:

J := TJSONObject.Create;
try
  J.AddPair(...);
  ...
  TFile.WriteAllText(Datei, J.ToString, TEncoding.UTF8);
finally
  J.Free;
end;

J := TJSONObject.ParseJSONValue(TFile.ReadAllText(Datei)) as TJSONObject;
try
  S := J.Get(ValueName).Value;
  ...
finally
  J.Free;
end;

[Der schöne Günther]

Delphi-Quellcode:

try
  (Gedöns)
except
  // Gibt schlimmeres
end;

[Dax]

Das ist kein Versuch, irgendetwas zu toppen - es ist lediglich ein Stück aus einem schon etwas älteren Programm. Und da ich ja (Schande über mich) so gut wie garnichts kommentiere, war die Auswahl nicht gerade groß

[RavenIV]

In meiner alten Firma war ein Kollege, der immer lustige Kommentare geschrieben hat.
Immerhin hat er immer seine Kommentare mit Datum und Name versehen...

Die Zeilen in /*...*/ sind Anmerkungen von mir.

Delphi-Quellcode:

// so öppis bruuch kei Sau!
/* 10 Zeilen auskommentiert */

// da hat jemand was auskommentiert
/* 3 Zeilen auskommentiert */

// alles Murks, das versteht doch keiner
/* komplette Funktion ausgetauscht */

// der Name "blabla" für eine Variable ist nicht zulässig
/* aber geändert hat er es nicht */

Das sind nur einige seiner tollen Kommentare.
Beim durchblättern der Sourcen hat man öfters einen Lachanfall bekommen...

[Relicted]

chi chi verständlich

[FAlter]

Hi,

Sammlung aus versch. Projekten, aber es sieht dürftig aus...
Jede Leerzeile bedeutet hier, dass es nichts mit dem vorigen zu tun hat.

Delphi-Quellcode:

    //Spielerstatusänderungsprocedure
    procedure ProcessSpielerstatus;

    begin
      Beep; //Noch nicht implementiert...
    end;


      //WriteBuf('MTrk' + #$00#$00#$00#$04#$00#$FF#$2F#$00); //Wenns hilft?

        if Lautstaerke = 0 then //Kein Ton...


  const
    VFakt = 5;
  //Lautstärkeverringerungsfaktor


        //TODO!

    //...

Aus meinem OS-Versuch:

Code:

      ;FAlterOS Kernel 0.0.0
      ;This is the Kernel of FAlterOS :-)


      ;TODO:
      ;- nearly everything

;Felix Alter, 21st June 2005 (my 17th Birthday :-D)

Eigentlich aus PHP (live-Berechnung, wie alt ich bin )...

Code:

   '.' /* Tausenderseparator
     man weiß ja nie, wie alt ich mal werde ;) */

Mfg
FAlter