Eure besten Quellcode Kommentare...

[nuclearping]

Ist zwar kein Kommentar, allerdings ein Code-Block über den ich grad beim Überarbeiten eines Moduls gestolpert bin.

Merke: Beschäftigt niemals unmotivierte Programmierer in eurem Unternehmen! Ihr werdet Lösungsansätze kennen lernen, auf die ihr selber niemals gekommen wärt!

Was er auszudrücken versuchte:dimTableData.Beschreibung := FormDimEingabe.editBesch.Text; Wie er es umgesetzt hat:

Delphi-Quellcode:

dimTableData.Beschreibung := '';
for i:= 0 to FormDimEingabe.editBesch.Lines.Count-2 do
  dimTableData.Beschreibung := dimTableData.Beschreibung
    + trim(FormDimEingabe.editBesch.Lines[i])+' '+#13#10;
if FormDimEingabe.editBesch.Lines.Count>0 then
  dimTableData.Beschreibung := dimTableData.Beschreibung
    + FormDimEingabe.editBesch.Lines[FormDimEingabe.editBesch.Lines.Count-1];

[Mithrandir]

Rööspekt...

[Matze]

Hui, also der Mitarbeiter muss zu viel Zeit haben. Die Motivation, es den anderen möglichst schwer zu machen, war sicher da.

[himitsu]

nein, es ist nicht das Selbe!
trim(FormDimEingabe.editBesch.Lines[i]) + ' ' aber ohne Trim und das ' ' würde das Ergebnis schon übereinstimmen

[Mikescher]

Zitat von nuclearping:

[/delphi]
Wie er es umgesetzt hat:

Delphi-Quellcode:

dimTableData.Beschreibung := '';
for i:= 0 to FormDimEingabe.editBesch.Lines.Count-2 do
  dimTableData.Beschreibung := dimTableData.Beschreibung
    + trim(FormDimEingabe.editBesch.Lines[i])+' '+#13#10;
if FormDimEingabe.editBesch.Lines.Count>0 then
  dimTableData.Beschreibung := dimTableData.Beschreibung
    + FormDimEingabe.editBesch.Lines[FormDimEingabe.editBesch.Lines.Count-1];

Ich würde so was nicht unmotiviert sondern unterfordert nennen, auf so was muss man erstmal kommen

[sniper_w]

// TODO: place this peace of code somewhere else... Das ist bis jetzt noch nicht passiert.

[Dax]

Seit wann ist Frieden eine unbestimmte Menge? Ich mein, dass Frieden in der Realität nicht existiert, wissen wir ja, aber damit gleich Codestücke zu messen... *g*

[nuclearping]

Zitat von Mikescher:

Ich würde so was nicht unmotiviert sondern unterfordert nennen, auf so was muss man erstmal kommen

Hrhrhr. Stimmt! So könnte man es auch sehen.

[Nersgatt]

Ein ähnliches "Meisterstück der Programmierkunst" habe ich auch letztens gefunden:

Delphi-Quellcode:

    
anzahl := 0;
for I := 0 to ts.Count - 1 do
  anzahl := anzahl + 1;

Naja, manchmal muss man sich halt durch den Hintern in der Nase popeln.

[himitsu]

ich kann's besser

Delphi-Quellcode:

anzahl := 0;
i := ts.Count;
while i > 0 do
begin
  anzahl := anzahl + 1;
  //dec(i);            // *lösch*
  i := (-i + 1) * -1;  // sieht nach mehr aus ^^
end;
anzahl := Max(Max(Min(i, MaxInt), 0), -Random(456471));

und jetzt kann ich richtig damit angeben, daß mein Programm voll gut ist,
weil ja massig viel Quellcode drin vorkommt.

Aber vielleicht werden die ja nach Zeilen pro Tag bezahlt?