diff options
| -rw-r--r-- | mystringlistunit.pas | 8 |
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; |