!setze-Bug in mystringlistunit.pas entfernt

1 files changed, 2 insertions, 2 deletions

diff --git a/mystringlistunit.pas b/mystringlistunit.pas
index 46bf87e..72a86b0 100644
--- a/mystringlistunit.pas
+++ b/mystringlistunit.pas
@@ -381,13 +381,13 @@ begin
         end;
         delete(i);
         for j:=i to count-1 do begin
-          u:=self[i];
+          u:=self[j];
           k:=length(u);
           while (pos(t,u)>0) and (k>0) do begin       // ... nach Ersetzung ...
             u:=copy(u,1,pos(t,u)-1)+s+copy(u,pos(t,u)+length(t),length(u));
             dec(k);
           end;
-          self[i]:=u;
+          self[j]:=u;
         end;
       end
       else