Цикл for обезумел и восстал!

[ДралсяСошибками]

Всем привет))

Вполне обычный цикл, начинает не с 0, а с предела, знаю, что это какая-то оптимизация, но мне нужно именно с 0.

Как отключить сие недоразумение?

[Shouldercannon]

Покажите свой цикл

[ДралсяСошибками]

type
  ImagesX = packed record
    Code: String;
    Image: String;
  end;

const
  Images: Array[0..99] of ImagesX = ((Code: '0'; Image: '0.gif'),....

procedure TForm1.Button3Click(Sender: TObject);
var
  i: Integer;
begin
  for i := Low(Images) to High(Images) do
    begin
      Memo1.Text := StringReplace(Memo1.Text, Images[i].Code, Images[i].Image, [rfReplaceAll, rfIgnoreCase]);
    end;
end;

ну как-то так))

[Stilet]

Попробуй {$o-} приписать перед циклом. и {$o+} после.

[ДралсяСошибками]

Пробовал, без изменений, но странность в том, что цикл работает как надо)))

[Utkin]

Цикл for обезумел и восстал!

Тапком его!
Тогда явно получай длину массива и ручками в цикле от 0 до count.

[Пепел Феникса]

это оптимизация, в результате переменные вы видите криво, но внутри все компенсируется.

[ResourceSpace]

Любопытно. Но не могу повторить. Какая IDE? Вы уверены что у вас перепутано? Как проверяли?

Procedure TForm1.Button3Click(Sender: TObject);
Var i: Integer; S: String;
Begin
S:='';
For i:=Low(Images) To High(Images) Do
      Begin
      S:=S+'|'+IntToStr(i);
      Memo1.Text := StringReplace(Memo1.Text, Images[i].Code, Images[i].Image, [rfReplaceAll, rfIgnoreCase]);
      End;
S:=S+'|';
ShowMessage(S);
End;

[Toxa]

попробуй такой костыль

procedure TForm1.Button3Click(Sender: TObject);
var
  i,jKostyl: Integer;
begin
  for i := Low(Images) to High(Images) do
    begin
      jKostyl := i;
      Memo1.Text := StringReplace(Memo1.Text, Images[i].Code, Images[i].Image, [rfReplaceAll, rfIgnoreCase]);
    end;
end;

ResourceSpace
мешает эта строка

S:=S+'|'+IntToStr(i);

если смотреть в дебаге значение переменной i то она ведет отсчет с 100 к нулю, а если добавить использование переменной i, то отсчет нормалиизуется


для массива Array[6..9]
выдает значения i от 4 к 1

[ДралсяСошибками]

Суть сей пляски заменить коды смайлов цифрами, есть список:

:) 1
0:) 2

Пусть текст:

:),0:)

При замене, получится:

1,01

Если список отсортировать по убыванию, то получится 1,2
Мой список отсортирован по убыванию, но когда я смотрю значения переменных в цикле, то он начинает с наименьших, но при этом отрабатывает правильно, видимо, как написали выше, это какая-то иллюзия)))

Delphi7