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

var b: Integer;
For b := 1 to 19 do begin
... что-то тут делаем
end;

фишка и трабла в том, что цикл начинается не с 1, а с 19.
Пробовал переменную переименовывать, инициализировать до начала цикла, делать другого (byte) типа - всё то же самое.
:-(

значит внутри цикла переменная b не задействована.

>Всем дельфятникам привет.
1Cники идут лесом? ;)

сколько раз цикл делается?

//а не развод ли это?

бинарный файл старый ?

не верю

(1)и что?

(5) компилятор умный, цикл гоняет в обратном порядке.

(5) если ничего не происходит, то оптимизатор не выполняет цикл

(7) он же внутри что-то делает

(0) оптимизатор оптимизирует. В настройках компилятора можно отключить, если принципиально

твои.dcu файлы проекта удали.

Тело цикла:

         if Fil_Data[b, 1] = 0 then
           Break
         else begin
           if Fil_Data[b, 1] = Ints[5, a] then begin
             IsExist := True;
             Break;
           end;
         end;

+(11) переменная используется

(0)у меня такого ни разу не было

(11)и где тут и=1?

смотри чем у тебя иницализированы массивы

(14) при чём тут и?

(14) причем тут и )))?

(16) забавно

(16)понял
b Имеется ввиду
я убрал из иницализации, раз всё равно не помогает

(19) А как ты понимаешь, что переменная начинается с 19?

if Fil_Data[b, 1] = 0 then begin
           Message(IntToStr(b)); // добавь чтоб посмотреть )))
          Break;
          end;
        else begin
          if Fil_Data[b, 1] = Ints[5, a] then begin
            IsExist := True;
            Break;
          end;
        end;

(16),(17)ломало английский переключать

(21) Локальный массив по умолчанию содержит мусор

как вариант

b:=1;
while b < 20 do
 begin
   //что-то тут делаем
   inc(b);
 end;

Message(IntToStr(b)); // добавь чтоб посмотреть )))
if Fil_Data[b, 1] = 0 then begin
         
         Break;
         end;
       else begin
         if Fil_Data[b, 1] = Ints[5, a] then begin
           IsExist := True;
           Break;
         end;
       end;

вот так сделай

(20) отлаживает небось и по F7

Бред, все там нормально.
Цикл фор начинает исполнять только при изменении переменной "b" в теле цикла :)

скорее всего после break у тебя выскакивает из цикла, тогда вопрос а что ты хотел???

(27)бред

Цикл всегда исполняется от и до, значение переменой автоматически изменяется

IsExist до входа в цикл чему равно?

(26) Локальные счетчики при включенной оптимизации не видны в отладке.

Автор, а можно всех посмотреть?

что-то странное
смотрел значения переменных в WatchList. Оттуда и выцепил ошибку.
Добавил по совету (21) ShowMessage в цикл. Значение переменной сразу стало 1.
О_о
Закомментировал ShowMessage - та же самая ошибка. %)

(31) False
(28) смотрю значение ДО Break

DCU стирал - не помогло.

(35) всех - это что?

(34) всех - это что?

Скидывай весь код

Procedure Warraws(sg1, sg4 : TAdvStringGrid);
var Counter, a, b : Integer;
   Fil_Data : array[1..19,1..3] of Integer;
   IsExist : Boolean;
begin
For a := 1 to 19 do begin
 Fil_Data[a, 1] := 0;
 Fil_Data[a, 2] := 0;
 Fil_Data[a, 3] := 0;
end;
With sg1 do begin
   Counter := 1;
   For a := 1 to 19 do begin
     if Length(Cells[1, a]) > 0 then begin
     IsExist := False;
       For b := 1 to 19 do begin
         if Fil_Data[b, 1] = 0 then begin
           ShowMessage(IntToStr(b));
           Break
         end
         else begin
           if Fil_Data[b, 1] = Ints[5, a]
             IsExist := True;
             Break;
           end;
         end;
       end;
       if not IsExist then begin
         Fil_Data[Counter, 1] := Ints[5, a] + 100;
         if Cells[6, a] = '-' then
           Fil_Data[Counter, 2] := 500
         else
           Fil_Data[Counter, 2] := Ints[6, a] + 4;
         Fil_Data[Counter, 3] := Ints[3, a ];
         Counter := Counter + 1;
       end;
     end;
   end;
end;
end;

p.s.
For a := 1 to 19 do begin
Fil_Data[a, 1] := 0;
Fil_Data[a, 2] := 0;
Fil_Data[a, 3] := 0;
end;
заменить на
ZeroMemory(@Fil_Data,sizeOf(Fil_Data));

(0) ложь и провокация

(38) Если бы :-(

(39) Выключи оптимизацию и пересобери проект

Shift+F9

И не "гуляйте в тундре под наркотиками", не отлаживайте под оптимизацией.
Вообще забавные вещи происходят.

(39)Ты переменную "b" когда анализировал, после цикла или в цикле?
Так же, ту не читал про оптимизацию кода, компилятор это делает на автомате, так что советую отрубить оптимизатор и все начнет работать так как ты написал.

какие же?
не верю, что оптимизатор такой херней занимается

(44) Отлаживал ВК под 1С, например, при попытке
if Status=1 then begin
Status:=-4; //давал Access Violation,
......


Status - integer;

При оптимизации, выключил - не стало.

(44) Или вообще на точки останова не реагировал, а в лог писал, что dll подключена, да и функции dll 1С-ка выполняла.

(40) Спасибо огромное! Помогло! :-)

имхо, либо проект не пересобран, либо локальные/глобальные переменные одинаковые имена имеют
(45) тоже подозреваю одинаковые имена)

(48) Давал уникальное имя переменной, пересобирал после этого - толку ноль

(48) Ну совсем уж за дятла не держите.