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

Цитата

Error creating form: List index out of bounds (47).

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

Код

object GoodsTypeSet: TIBDataSet [13]     Database = BaseDataModule.Database     Transaction = BaseDataModule.IBTransaction     BufferChunks = 1000     CachedUpdates = False     SelectSQL.Strings = (       'select ID, NAME, ALTNAME from GOODSTYPE'       'order by ID')     ModifySQL.Strings = (       '')     GeneratorField.Field = 'ID'     GeneratorField.Generator = 'GEN_GOODSTYPE_ID'     Active = True     Left = 56     Top = 280     object GoodsTypeSetID: TIntegerField       DisplayLabel = #1050#1086#1076       FieldName = 'ID'       Origin = 'GOODSTYPE.ID'       ReadOnly = True       Required = True     end     object GoodsTypeSetNAME: TIBStringField       DisplayLabel = #1053#1072#1079#1074#1072       FieldName = 'NAME'       Origin = 'GOODSTYPE.NAME'       ReadOnly = True       Required = True       Size = 50     end     object GoodsTypeSetALTNAME: TIBStringField       DisplayLabel = #1040#1083#1100#1090#1077#1088#1085#1072#1090#1080#1074#1085#1072' '#1085#1072#1079#1074#1072       FieldName = 'ALTNAME'       Origin = 'GOODSTYPE.ALTNAME'       ReadOnly = True       Size = 30     end   end   object GoodsTypeSrc: TDataSource [14]     DataSet = GoodsTypeSet     Left = 56     Top = 312   end   object ProducerSet: TIBDataSet [15]     Database = BaseDataModule.Database     Transaction = BaseDataModule.IBTransaction     BufferChunks = 1000     CachedUpdates = False     SelectSQL.Strings = (       'select ID, NAME from PRODUCER '       'order by Name')     GeneratorField.Field = 'ID'     GeneratorField.Generator = 'GEN_PRODUCER_ID'     Active = True     Left = 88     Top = 280     object ProducerSetID: TIntegerField       DisplayLabel = #1050#1086#1076       FieldName = 'ID'       Origin = 'PRODUCER.ID'       ReadOnly = True       Required = True     end     object ProducerSetNAME: TIBStringField       DisplayLabel = #1053#1072#1079#1074#1072       FieldName = 'NAME'       Origin = 'PRODUCER.NAME'       ReadOnly = True       Required = True       Size = 25     end   end   object ProducerSrc: TDataSource [16]     DataSet = ProducerSet     Left = 88     Top = 312   end

Хорошо, расследую дальше. Вставил этот кусок в чистую форму -- работает. :-\ Вставил в старую (свежесохраненную) -- та же ошибка. Сам я ничего кривого в нем не вижу....
Товарищи, помогите пожалуйста -- пропадает результат двухдневной работы, да и клиент ждет.... уже долго. С меня -- виртуальное пиво! :-)

В аттаче -- кусок проекта (GoodsFrm.dfm -- не загружается)

Присоединённый файл ( Кол-во скачиваний: 3 )
 Complex.zip 22,87 Kb

...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 22:38

Удялял... Оставлял только DPR,DFM,PAS. Не помогло. Переносил по одной форме в чистый проект -- не помогло. Видать придется Делфи сносить -- давно уже напрашивается...

Слетела сама Дельфя скорее всего

Увы... Дельфи сегодня с утра переставил. (С нуля с чисткой реестра). Ноль эффекта. :-(
Но! Попробовал следующее. В формах после каждого TIBDataSet есть числа в квадратных скобках. Только-что попробовал его удалить и -- о чудо -- работает!
Теперь вопрос -- что эти число значат, и почему с ними форма открывалась у Quadr0?!

...

Это сообщение отредактировал(а) Quadr0 - 14.7.2011, 22:40

Гм. Там IBDataset -- он с делфи 7 стандартно идет. Разве что ты специально его отключал в пакетах... А касательно индексов... Возможно, но почему-то номеруются только DataSet-компоненты... Странно все это.

Эти индексы появляются только при визуальном наследовании и/или при использовании фреймов. Что они означают, я не знаю, но проблемы с ними бывают.. Удаление их из дфм"ки ни к чему плохому вроде не приводило..

Цитата

(GPF кажись).

где это ты такую древность откопал ?? Это ж вроде из Win 3.x ошибка ??

Цитата(Guest @ 8.7.2005, 23:03)

где это ты такую древность откопал ?? Это ж вроде из Win 3.x ошибка ??

По-моему, 9Х


StayAtHome
DelphiDecompiler (DeDe) тебе может помочь. Он это умеет...

DecemberСпасиб, я уже спас форму. Просто поудалял индексы, и пока что все работает. Но зачем они нужны?!