From 75cfcada7d08c5c4e8d5b5e084f5ffbbca110539 Mon Sep 17 00:00:00 2001 From: Erich Eckner Date: Wed, 29 Jul 2015 14:04:03 +0200 Subject: !setze-Bug in mystringlistunit.pas entfernt --- mystringlistunit.pas | 4 ++-- 1 file 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 -- cgit v1.2.3-70-g09d2