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