summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorErich Eckner <git@eckner.net>2017-12-20 16:08:15 +0100
committerErich Eckner <git@eckner.net>2017-12-20 16:08:15 +0100
commitd566acbba1080b69e580093a053b3f914caa8746 (patch)
tree0b099e3c9aa9234b54e9cfc87f87a8e51e47126a
parent9ee3af54d87bef75607e73979f65761ce6f0bf54 (diff)
downloadunits-d566acbba1080b69e580093a053b3f914caa8746.tar.xz
mystringlistunit.pas: tMyStringList.appendTo: bugfix
-rw-r--r--mystringlistunit.pas8
1 files changed, 4 insertions, 4 deletions
diff --git a/mystringlistunit.pas b/mystringlistunit.pas
index 1a5e9ba..1155426 100644
--- a/mystringlistunit.pas
+++ b/mystringlistunit.pas
@@ -659,8 +659,8 @@ end;
procedure tMyStringList.appendTo(wen: tStringList; maxLen: int64; praeludium,fuge,coda: string);
var
- habIchSchon,bisherLaenge,i,j: longint;
- s: string;
+ habIchSchon,bisherLaenge,i: longint;
+ s: string;
begin
if count=0 then
exit;
@@ -675,12 +675,12 @@ begin
s:=praeludium;
end;
if i<count then begin
- bisherLaenge:=bisherLaenge+length(self[i]);
- s:=s+self[i];
if i>habIchSchon+1 then begin
s:=s+fuge;
bisherLaenge:=bisherLaenge+length(fuge);
end;
+ bisherLaenge:=bisherLaenge+length(self[i]);
+ s:=s+self[i];
end;
end;
end;