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