Добрый день. Появилась у меня ошибка, которую не могу понять, итак
объявляю объект
TInfo = record
sInt : integer;
sStr : string;
end;
TSPInfoObj = class(TObject)
private
sStructure : TInfo;
function GetValue : TInfo;
public
constructor Create(ID : string; ID_1 : integer);
property pValue : TInfo read GetValue;
end;
...
constructor TSPInfoObj.Create(ID : string; ID_1 : integer);
begin
inherited Create;
sStructure.sStr := ID;
sStructure.sInt := ID_1;
end;
function TSPInfoObj.GetValue : TInfo;
begin
Result := sStructure;
end;
Далее заполняю Combobox из запроса
var vInfo_1 : TSPInfoObj;
...
fAddData.cbSP.Clear;
if UniMainModule.qPlaces.Active then UniMainModule.qPlaces.Close;
UniMainModule.qPlaces.Prepared := true;
UniMainModule.qPlaces.Parameters.ParamByName('pID_FILIAL').Value := UniMainModule.qFilials.FieldByName('ID').AsInteger;
UniMainModule.qPlaces.Open;
vInfo_1 := TSPInfoObj.Create( '' , -1);
fAddData.cbSP.Items.AddObject('<без объекта>',vInfo_1);
while not UniMainModule.qPlaces.Eof do begin
vInfo_1 := TSPInfoObj.Create(UniMainModule.qPlaces.FieldByName('AddressID').asString, UniMainModule.qPlaces.FieldByName('ID').AsInteger);
fAddData.cbSP.Items.AddObject(UniMainModule.qPlaces.FieldByName('SUBDIVISION').AsString,vInfo_1);
UniMainModule.qPlaces.Next;
end;
UniMainModule.qPlaces.Close;
и фрагмент чтения из Combobox
if (cbSP.Items.Objects[cbSP.ItemIndex] as TSPInfoObj).sStructure.sStr = ''
then ...
и на этой строке исключение "invalid object typecast" - не могу понять причину. Заранее спасибо.