Ошибка в SQL-редакторе компонента TFBDataSet

[divinusproject]

ASPLinux 10
Lazarus 0.9.14-1
alexsDataSet 1.16
Firebird 2.0 RC1

Открываю SQL-редактор компонента, выбираю одну из таблиц, после этого Lazarus зависает, процессор занят на 100%. В чем проблема?

[m_guest]

Версию 1.17 пробывал?

[divinusproject]

пробовал, и uib_fix пробовал не помогло

[alexs]

Проверил на последнем снапшоте Лазаря
ASP11
FPC 2.0.2
FBDataSet последний 1.17 (естественно )
работает
давай подробнее ошибку
если сижеш - отдебаж где виснет...

[alexs]

очепятка
сижеш=сможеш

[divinusproject]

Теперь:
ASPLinux 11
Lazarus 0.9.14-1
fpc 2.0.2
Firebird 2.0 RC2
alexsDataSet 1.18

ошибка все равно появляется
Более подробно:
когда в окне sql-редактора выбираю одну из таблиц, то все нормально - список полей отображается. Когда выбираю другую таблицу (перемещаюсь по списку), то виснет.

[alexs]

не подтверждаю
может какие-то хитрые таблицы?
на любой БД так?
а может из-за лазаря - у меня последние снапшоты

[divinusproject]

Разобрался в чем дело!

Пожалуйста добавьте проверку индекса:

procedure TFBCustomDataSetSQLEditor.ListBoxRelationsClick(Sender: TObject);
var
ind:integer;
S:string;
begin
if (ListBoxRelations.ItemIndex > -1) and Assigned(JvUIBQuery1.DataBase) and Assigned(JvUIBQuery1.Transaction) then
begin
JvUIBQuery1.Sql.Clear;
JvUIBQuery1.Sql.Add(Format(sqlSelectFields, [ListBoxRelations.Items[ListBoxRelations.ItemIndex]]));
try
JvUIBQuery1.Execute;
ListBoxFields.Items.Clear;
JvUIBQuery1.First;
JvUIBQuery1.Next;
while not JvUIBQuery1.Eof do
begin
ind:=ListBoxFields.Items.Add(trim(JvUIBQuery1.Fields.AsString[0]));
JvUIBQuery1.ReadBlob(1, s);
ListBoxFields.Items.Objects[ind]:=TFieldInfo.Create(s);
JvUIBQuery1.Next;
end;
finally
JvUIBQuery1.Close;
end;
end;
end;

Не стал копаться в исходниках LCL, скорее всего дело именно в них, потому что под виндовс с версией 0.9.12 ошибка не возникает.

[alexs]

ок. добавлю.

[alexs]

кого в багрепорты вписывать? а то безымянно будет