divinusproject » 29.05.2006 08:24:16
Разобрался в чем дело!
Пожалуйста добавьте проверку индекса:
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 ошибка не возникает.
)
