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! :mrgreen:

Was er auszudrücken versuchte:

Delphi-Quellcode:

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];

:wall:

[Mithrandir]

Rööspekt... :mrgreen:

[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!

Delphi-Quellcode:

trim(FormDimEingabe.editBesch.Lines[i]) + ' '

aber ohne Trim und das ' ' würde das Ergebnis schon übereinstimmen :angel2:

[Mikescher]

Zitat:

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 :mrgreen:

[sniper_w]

Delphi-Quellcode:

// 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:

Zitat von Mikescher

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

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

[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;

:wall:
Naja, manchmal muss man sich halt durch den Hintern in der Nase popeln. :-D

[himitsu]

ich kann's besser :angel2:

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. :mrgreen:

Aber vielleicht werden die ja nach Zeilen pro Tag bezahlt? :gruebel: