mystringlistunit.pas: tMyStringList.appendTo: bugfix

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;