счетчик в цикле изменяется не от 0 до 4 а от 4 до 0

[Ntlegend]

$Optimization эквивалентна $O
единственная разница меж ними..

$Optimization неважно ON или OFF.. работает нормально..
$O только +

незнаю как у остальных.. это конкретно в моем случае..

[OCTAGRAM]

{$R+} {$Q+}

[Ntlegend]

OCTAGRAM, может все дерективы перечислить.. авось шото нужное попадется??

для чего использовать {$R+} если у меня задан размер массива и счетчик изменяется от первого до последнего его элемента.. не более..
и {$Q+} тоже для чего если счетчик у меня имеет тип Integer и его значеия изменяется от 0 до 4.. шо никак не может привести к переполнению..

??

[mihali4]

Скучно стало читать все это - взял да и проверил.
Что с оптимизацией, что без нее - 0,1,2,3,4.
Так что глюк стоит поискать где-то рядом, и поскольку топикстартер стесняется привести всю процедуру, то остается в очередной раз признаться в своей непринадлежности к славному отряду телепатов...

[Ntlegend]

телепатии не нада.. код большой.. потому не приводил.. ну коли хотите щас дам, мне не жалко..
просто у меня такое не в первый раз случается.. думал может еще кто сталкивался с подобным..

type
  TDataStruct = packed record
    FileName:String;
    FilNum:cardinal;
    Size:cardinal;
    Typ:Byte;
    Offset:cardinal;
    LastOffset:cardinal;
  end;
  TBlockInfo = packed record
    IndCoord:Word;
    StartTime:TDateTime;
    EndTime:TDateTime;
  end;
  TBlok = packed record
    Name:String;
    Inf:TBlockInfo;
    Activate:Boolean;
    Data: array of TDataStruct;
  end;
***
var
  Form1: TForm1;
  FilList:array [0..3] of TBlok;
***
procedure TForm1.Button1Click(Sender: TObject);
var byf: array of Byte;
    f, f1, br:cardinal;
    i, j, k:integer;
    siz, pos:cardinal;
    List:array of TDataStruct;
    s: String;
begin
if (Edit1.Text='')or
   (Edit2.Text='')or
   (Edit2.Text='')or
   (Edit3.Text='')or
   (Edit4.Text='')or
   (Edit5.Text='')or
   (Edit6.Text='')or
   (Edit7.Text='')
  then begin
   ShowMessage('Не все поля заполнены');
   exit;
  end;

//узнаем длинну заголовка

s:='какаято строка';
siz:=Length(s);

for i:=0 to 3 do
  if FilList[i].Activate
    then inc(siz, (3+Length(FilList[i].Name)+Length(FilList[i].Data)*5));
SetLength(byf, siz);
pos:=0;

//пишем строку
Move(s[1], byf[pos], Length(s));
inc(pos, Length(s));
//заголовки блоков 1..4
for i:=0 to 3 do
  if FilList[i].Activate
    then begin
      s:=FilList[i].Name;
      byf[pos]:=Length(s);
      inc(pos);
      Move(s[1], byf[pos], Length(s));
      inc(pos, Length(s));
      siz:=Length(FilList[i].Data);
      Move(siz, byf[pos], 2);
      inc(pos, 2);
      for j:=0 to Length(FilList[i].Data)-1 do
        FilList[i].Data[j].LastOffset:=pos;
// оставляем место под данные блока
      inc(pos, siz*5);
    end;

f:=CreateFile('1.dat', GENERIC_ALL, FILE_SHARE_WRITE, nil, CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0);
WriteFile(f, byf[0], Length(byf), br, nil);
//обнуляем буфер
SetLength(byf, 0);

//кешируем файлы из 4-х сисков в 1
siz:=0;
for i:=0 to 3 do
  if FilList[i].Activate
    then inc(siz, Length(FilList[i].Data));

SetLength(List, siz);
j:=0;
for k:=0 to 3 do
  if FilList[k].Activate
    then begin
      for i:=0 to Length(FilList[k].Data)-1 do
        List[i+j]:=FilList[k].Data[i];
      inc(j, Length(FilList[k].Data));
    end;

Randomize;

while Length(List) > 0 do
  begin
    //чото делаем уменьшая длинну листа
  end;

CloseHandle(f);
end;

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

я считаю это всетаки оптимизацией...просто сами строки например показать i(по смыслу пишу...но это именно код) просто эта самая переменная(которая обратная) преобразуется в прямой вид.

разница есть на уровне асма...ибо
цикл loop идет.(именно он на обратном отсчете)
а не ветвление.

вопрос такой, не взирая на обратный отсчет, код верно отрабатывает?

[Ntlegend]

я в посте #5 писал об этом.. из-за неверного индекса не в той последовательности записываются данные, соответственно их становится невозможно прочитать, т.к. структура данных динамическая, а не статическая..
про "цикл loop".. это интересно.. сейчас почитаю...
(Боремся за чистоту русского, великого и могучего)

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

из-за неверного индекса не в той последовательности записываются данные

видимо глюк оптимизации...