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

[JUDAS]

а так катит?

for i := 0 to High(Images)-Low(Images) do

или я что-то недопонял...

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

и так, начинает с 99))
я пробовал кучу разных вариантов и всё равно он начинает с максимума))
даже downto с -99)))
Вобщем, компилятор оказался неестественно хитрый)))

[Stilet]

Оптимизатор.
Вообще отключение его должно было дать эффект.

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

Да хрен с ним, главное работает как и задумал, тестировал с разным текстом, всё отлично)))

Пусть это останется на совести компиля и пусть ему будет стыдно))

[Smitt&Wesson]

Сообщение от ДралсяСошибками

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

Фраза, реально насмешила. Если цикл работает, в чём проблема?
Я обычно плюю на всякие заморочки типа соблюдение правил и прочую фигню. Иногда и г-код пишу. Работает и ладно. Найду время - поправлю...

[ResourceSpace]

JUDAS, Для массива

Images: Array[10..19] of ImagesX;

Low(Images) равен 10, а High(Images) равен 19.
И цикл перебирает i от 10 до 19. Должен. И вот у них как-то выходит что задом-наперёд меняется i.

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

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

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

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

Я смотрел по всякому:

Procedure TForm1.Button1Click(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;

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

Всё от минимального к максимальному. И в дебаге тоже - всегда только по порядку идут.

Как вы это видите, что начинает с 99 до 0? И у меня Делфи7. Хочу увидеть у себя. Не могу повторить. Всегда считает с начала до конца. Что я делаю не так? %)

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

Ставлю bp на:

Memo1.Text:=StringReplace(Memo1.Text, Images[i].Code, Images[i].Image, [rfReplaceAll, rfIgnoreCase]);

И смотрю в окошко локальных переменных.

Вот полный код, который я давече расписывал:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

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

var
  Form1: TForm1;

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

implementation

{$R *.dfm}

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

end.

[Serge_Bliznykov]

Сообщение от ДралсяСошибками

Вот полный код, который я давече расписывал:

товарищ, Вам же сразу предложили ОТКЛЮЧИТЬ оптимизацию.
Где опции отключения в вашем коде?

второе.
попробуйте банальное:

{$O-} // выключили оптимизацию
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
begin
  Memo1.Lines.Add(':),0:)');
  for i := Low(Images) to High(Images) do
    begin
      Memo1.Text := StringReplace(Memo1.Text, Images[i].Code, Images[i].Image, [rfReplaceAll, rfIgnoreCase]);
    end;
end;
{$O+} // включили оптимизацию

не помогло?

тогда так:

{$O-} // выключили оптимизацию
procedure TForm1.Button1Click(Sender: TObject);
var
  i: Integer;
  s : string;
begin
  Memo1.Lines.Add(':),0:)');
  i:= Low(Images);
  s :=  Memo1.Text;
  while i<= High(Images) do
    begin
       s := StringReplace(s, Images[i].Code, Images[i].Image, [rfReplaceAll, rfIgnoreCase]);
       inc(i);
    end;
  Memo1.Text := s
end;
{$O+} // включили оптимизацию

p.s. расскажите, пожалуйста, о результатах...

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

Отключал оптимизация перед циклом, не помогало, а вот отключение оптимизации перед процедурой помогло))

[p51x]

Две страницы из-за стандартной оптимизации, которая не влияет на правильность работы программы?