Всем доброго дня )

Вопрос у меня, возможно, и неправильно сформулирован, но в голову ничего не приходит. С Делфи я не работала особо много, так что разбираюсь не очень.
Проект не моей разработки, так случилось, что разработчики поддерживают его параллельно с нами. И консультируют тоже они. Даже они разводят руками... :/

Проблема в следующем. Имеется проект (oracle 9.2.01, delphi 5.0 (да, ммм... не современно, но так уж сложилось... увы) ), который в числе прочих использует библиотеку компонент TAdvStringGrid 2.01 (тоже не первой свежести, но что поделать).

При запуске проекта на исполнение в процессе создания одной из форм (отследила пошагово до куда пустил, дальше вылазит дебагер cpu) вылазит ошибка на строчке Self.SetColumnWidth := False; в процедуре TrfmProgs.CreateForm.
Ошибка гласит "Project xxx.exe raised exception class ECovertError with message ''' is not a valid integer value'." Дальше как обычно. Далее, после того, как кликну ОК, вылазит следующее окно, в котором мне сообщается, что Source file not found и этот файл AdvGrid.pas и предлагается его указать вручную.

Разработчики сказали, что "Файла AdvGrid.pas в исходниках нет, а есть его скомпилированный модуль AdvGrid.dcu. Просто при запуске из Delphi, когда генерится ошибка, оболочка пытается спозиционироваться в то место кода, где она произошла." Охотно верю, но все равно не понимаю.

Попросила у разработчиков текущую компоненту, которой они пользуются - дали, установила, все прописала - эффект тот же. Попробовала закаментить эту злосчастную строчку, ошибка не вылезла, зато как только процедурка подошла к концу вылезло окно с требование этого AdvGrid.pas. Поискала в Инете, может, кто тоже мучался - не нашла.

Вполне возможно, что сама библиотека ни в чем не виновата, но у меня предположений других нет - требует-то AdvGrid.pas из этой компоненты. Сам екзешник уже скомпиленый разработчиками работает, а вот проект из делфи - нет.

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

Укажите путь к AdvGrid.pas и удилите предыдущий AdvGrid.dcu

Внимание! Здесь обсуждаются вопросы, связанные с разработкой компонентов, редакторов свойств, редакторов компонентов и экспертов IDE.
Вопросы по поиску и использованию готовых компонентов, редакторов или экспертов являются нарушением тематики и могут быть удалены.

я бы указала путь к AdvGrid.pas, да ведь нет его в исходниках же, просто физически... а удалить этот AdvGrid.dcu наверняка вообще работать перестанет

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

> Ошибка гласит "Project xxx.exe raised exception class ECovertError
> with message ''' is not a valid integer value'."

Вы пытаетесь в своей программе, в каком-то из событий, обработать содержимое ячейки как целое число, а в ячейке пустая строка. Ищите эту обработку в своей программе, AdvGrid.pas Вам не поможет.

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

Поставь точки остановки во всех методах формы TrfmProgs и попадёте, 90%, туда где возникает эта ошибка.


> еще вариант, попробую поискать

рекомендую, если телевизор не включается, сначала поменять предохранитель, а не кинескоп.

хорошо, попробую

так, получилось закопаться поглубже )
ошибка выпадает на строке stgrProgs.AutoSizeRow(ind);
тогда когда ind=0
a stgrProgs - это элемент TAdvStringGrid

короче говоря, при отрабатывании этого свойства не с 0, а например с 1, все хорошо, ошибка больше not a valid integer value не лезет, но в конце процедуры на end; все равно требует файл AdvGrid.pas

Это, типа, ваш дневник такой?
Хотите что бы вас полечили, давайте фотографию. Здесь без фотографии только в конференции "Прочее" лечат.

> Seally  (22.06.2010 17:48:11)  [11]

Это означает, что у вас нет версии DCU для Дельфи 5
Владельцы не хотят давать его, как я понял.

Как насчет привести код процедурки?

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

Код процедур привожу полностью, они не такие большие

1) основная процедура, из которой вызывается SetColumnWidth




2) процедура SetColumWidth




>Anatoly Podgoretsky ©   (22.06.10 18:19) [13]
Да, когда я только с этим столкнулась, то вычитала в Инете, что у меня некорректная версия файла dcu, но дело в том, что я попросила разработчиков дать мне именно то, с чем они работают, и они выслали. Вообще-то, в их интересах, чтобы у меня иде нормально работало, т.к. им тогда работы меньше с нашей поддержкой.

Я вообще-то думала, может у меня с делфи проблемы, потому что там уже много чего ставилось-удалялось и т.д. Однако на другой машине пробовали этот проект открыть - тоже самое.

Требуемая ошибка не в этом коде.

Я делаю так ставлю точку останова в самом начале, с чего начинает работать модуль, и дальше пошагово иду, заходя по ходу дела во все вызываемые процедуры.

Ошибка и впрямь вылазит на строке

goto [8]

я поставила во всех методах в которых нашла, их там всего 6

OnActivate
FormCanResize
FormClose
FormCreate
FormKeyPress
FormShow

Как я писала, самой первой отрабатывает процедура TfrProgs.FormCreate, из нее управление переходит в процедуру TfrProgs.SetColumnWidth, потом возвращается обратно (если ошибка не валит)

Все procedure/function описанные в классе формы являются её методами. А то что вы написали есть частный случай методов, автоматически создаваемых для обработки событий.

ок, поставила на все процедуры которые нашла в коде

да из TfrProgs.SetColumnWidth пошло на процедуру TfrProgs.stgrProgsGetCellColor




Ошибка появляется на curLev:=StrToInt(AGrid.Cells[indLevel,ARow]);

Cells я нашла

синтаксис Cells (c:integer, r:integer):String

исходные данные, при которых появляется ошибка: indLevel=8 ARow=0, руками написала curLev:=StrToInt(AGrid.Cells[indLevel,1]); проскочило, но в конце процедуры опять потребовало указать ему, где AdvGrid.pas …

Может, я еще какие манипуляции могу совершить?

Вот с этого
curLev:=StrToInt(AGrid.Cells[indLevel,ARow]);
и надо было начинать.
Чему в этот момент (indLevel=8 ARow=0) равно AGrid.Cells[8,0] ?

ну, не знала я как докопаться...

а равно оно пустому значению т.е. ''

Можете не обращать внимания на это исключение, оно обрабатывается в секции except .. end;

> Seally   (23.06.10 16:17) [23]
>
> ну, не знала я как докопаться...
>

Странно, почему сразу не решили, что это биллагейтса виноват?

Можете не обращать внимания на это исключение, оно обрабатывается в секции except .. end;

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

Странно, почему сразу не решили, что это биллагейтса виноват?

а Вы почему такой язвительный? Я честно сказала, не знала, как докопаться. Я в Делфи не работала никогда раньше, это не моя специализация, а когда дают еще и чужие коды в них разбираться приятного мало, особенно если не работает и особенно если разработчики не знают, отчего у меня трудности и проблемы. И я честно в первом посте призналась, что не знаю отчего трудности, а на компоненту подумала, потому что элементы от нее упоминались в ошибках.

Спасибо Вам за помощь большое, но вот можно обойтись без колкостей?

> но вот можно обойтись без колкостей?

А смысл?

> Я в Делфи не работала никогда раньше, это не моя специализация,
>  а когда дают еще и чужие коды

А зачем взяла? Вот честно не понимаю, что ж за контора-такая рога и копыта, где исходники дают кому попало для разбираний.

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

вот, если кому интересно...
Нужно было в параметрах отладки для оболочки (Tools -> Debugger Options -> Language Exceptions) снять галочку Stop on Delphi Exceptions.
и все заработало )