Изменение диапазона FOR

[Winexcel]

Собственно такая проблема:
Есть переменная i:integer;, которая имеет значение к примеру:12323.
Все 1 мы должны заменить на 33, пробовал сделать так:

var
i,i2,i3:integer;
str:string;

begin
i:=12323;


i2:=length(IntToStr(i));  
str:=IntToStr(i);     

for i3:=1 to i2 do begin
  if str[i3]='1' then begin
    delete(str,i3,1);
    insert('33',str,i3);
    i2:=i2+1;
    continue;
  end else

такой код работает, но не так как нужно, а именно:
если в переменную присвоить следующее:
i:=123231; то - первая единица поменяется на 33 а вторая вот уже нет. Так как у нас длинна строки остаётся старая. Собственно вопрос, как проверять всю строку а не с таким дефектом?

[Stilet]

Все 1 мы должны заменить на 33

i:=12323;
i:=IntToStr(StringReplace(StrToInt(i),'1','33',[rfreplaceall]));

И никаких циклов не надо. Тем более таких.

[evg_m]

1. вар цикл типа while всегда сравниваем с актуальной длиной

i:=1;
while i<=length|(s) do
begin
  i:=i+1;
end;

2 вар проход от конца строки к началу
Изменения вносятся в просмотренную часть и никак не влияют на оставшуюся часть работы.

for i:=length(s) downto 1 do

[Winexcel]

Сообщение от Stilet

i:=12323;
i:=IntToStr(StringReplace(StrToInt(i),'1','33',[rfreplaceall]));

И никаких циклов не надо. Тем более таких.

спасибо, помогло.