неизвестный глюк(или Дельфи не любит мой модуль)

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

написал модуль для чтения моделей формата PIE(модуль сырой...нужно было тупо чтение+структуры)

отрывок из файла(procedure TPcPIEv2File.LoadFromFile(FileName: string)

     t:=Copy(s,1,Pos(' ',s)-1);
     FLevels[i].Polygons[j].flags[1]:=false;
     FLevels[i].Polygons[j].flags[2]:=false;
     FLevels[i].Polygons[j].flags[3]:=false;
     if (t='200')or(t='a00')or(t='10200')or(t='10a00') then FLevels[i].Polygons[j].Flags[1]:=true
      else if (t='2a00')or(t='2200') then begin FLevels[i].Polygons[j].Flags[1]:=true; FLevels[i].Polygons[j].Flags[2]:=true; end
       else if (t='4a00')or(t='4200') then begin FLevels[i].Polygons[j].Flags[1]:=true; FLevels[i].Polygons[j].Flags[3]:=true; end
        else begin FLevels[i].Polygons[j].Flags[1]:=true;FLevels[i].Polygons[j].Flags[2]:=true;FLevels[i].Polygons[j].Flags[3]:=true; end;
     Delete(s,1,Pos(' ',s));
     SetLength(FLevels[i].Polygons[j].Points,StrToInt(Copy(s,1,Pos(' ',s)-1)));
     SetLength(FLevels[i].Polygons[j].TexturePoints,StrToInt(Copy(s,1,Pos(' ',s)-1)));
     Delete(s,1,Pos(' ',s));
     for k:=0 to Length(FLevels[i].Polygons[j].Points)-1 do
      begin
       FLevels[i].Polygons[j].Points[k]:=StrToInt(Copy(s,1,Pos(' ',s)-1));
       Delete(s,1,Pos(' ',s));
      end;

и наблюдаю следующие чудеса:
1)именно в этом модуле перестают работать динамические подсказки(параметры процедур...где что обьявленно и тд)
2)при трассировке, когда выполняется строки из модуля, выделяется всегда строка, которая уже выполнилась...а не та которая должна
3)самое странное!
файл читается успешно...
далее ставлю наблюдение при трассировке(P:TPcPIEv2File)
смотрю сразу целиком массив P.FLevels[0].Polygons
тогда вижу что, допустим P.FLevels[0].Polygons[2].Points[4]=18
ставлю наблюдение именно за P.FLevels[0].Polygons[2].Points[4]
и вижу что она равна...числу...побольше 17 миллионов(хотя при первом наблюдении(за полным массивом) вижу что она по прежнему равна 18-ти)

и еще!

ставлю точку останова на выделенной строке
при первой остановке(естественно с момента как P.FLevels[0].Polygons[2].Points[4] начинает сущкствовать) вижу положенные 18...а далее чередуется 18 и эти миллионы...хотя ничто не изменяетэто значение...

что за чудо?(этот модуль во вложении)

[Black Fregat]

Обычно от таких глюков помогает Rebuild

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

перепостройка не помогает...и это тут вообще не причем(в Дельфи такого не разу не видел...а вот в Сях слышал не редко)

[Stilet]

и наблюдаю следующие чудеса:

Мда... я тоже на такое напарывался.
Иногда помогает отключение оптимизации, но вот с подсказками бывает беда, такое впечатление что они зависят от билда оси...

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

отключение оптимизации не помогло

неужели придется все переписывать?

[Вавел из ГМТУ]

Тож такое происходило иногда помогало вместо например:
ListBox1. писать Form1.Listbox.

Кароч Делфи тупо не видела компонент и приходилось дописывать Form1.

Хотя не факт.. Тупо метод проб.

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

тут компоненты вообще не используются
только массивы.

и меня напрягает что в массиве P.FLevels[0].Polygons[2]
у P.FLevels[0].Polygons[2].Points[4] одно значение(если смотреть всю структуру в целом)
а если именно P.FLevels[0].Polygons[2].Points[4] то значение другое(вообще левое)

--------------------------------------------

а насчет компонент это смотря как процедуру оформляешь

[Вадим Буренков]

У меня тоже нередко Delphi глючит. Как-то писала ошибку чтения файла хотя все написано было правильно. Удалил несколько строчек кода вообще не связанных с файлом и код заработал!?!? Помогла перезагрузка.

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

неужели безнадега?

[DomiNick]

Бывает...

Если "перестают работать динамические подсказки", то это уже нехорошо...
Хотя часто бывает - просто что-то забыл заранее объявить.....

перепостройка не помогает...

Всмысле "перепостройка"..?

Когда начинает твориться что-то подобное, я делаю новый проект и переношу содержимое всех процедур и функций (можно через блокнот) в новый проект - после этого довольно часто всё становится нормально, хотя не изменилось ни одного символа...