summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorErich Eckner <git@eckner.net>2018-01-08 15:46:03 +0100
committerErich Eckner <git@eckner.net>2018-01-08 15:46:03 +0100
commitce843fd0be7e5f7c065c317123c24f93987ee665 (patch)
treedb94660d658291c9acb784e8322aa4b6f8730e8b
parentd566acbba1080b69e580093a053b3f914caa8746 (diff)
downloadunits-ce843fd0be7e5f7c065c317123c24f93987ee665.tar.xz
mystringlistunit.pas: bugfix in appendTo
-rw-r--r--mystringlistunit.pas2
1 files changed, 1 insertions, 1 deletions
diff --git a/mystringlistunit.pas b/mystringlistunit.pas
index 1155426..98fdb07 100644
--- a/mystringlistunit.pas
+++ b/mystringlistunit.pas
@@ -670,7 +670,7 @@ begin
for i:=0 to count do begin
if (i=count) or (bisherLaenge+length(self[i])+byte(i>habIchSchon+1)*length(fuge) > maxLen) then begin
wen.append(s+coda);
- habIchSchon:=i;
+ habIchSchon:=i-1;
bisherLaenge:=length(praeludium)+length(coda);
s:=praeludium;
end;