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