Не обработанный вылет.
в функции
function TfrxDBDataset.GetValue(Index: String): Variant;
i := Fields.IndexOf(Index);
if i <> -1 then
I у меня равно 4
но
v := TField(Fields.Objects) в отладчике Nil
v := TField(Fields.Objects).Value и на этой строчке Exception
Вставьте проверку
if Fields.Objects<> Nil then
v := TField(Fields.Objects).Value
else v := Null;
function TfrxDBDataset.GetValue(Index: String): Variant;
i := Fields.IndexOf(Index);
if i <> -1 then
I у меня равно 4
но
v := TField(Fields.Objects) в отладчике Nil
v := TField(Fields.Objects).Value и на этой строчке Exception
Вставьте проверку
if Fields.Objects<> Nil then
v := TField(Fields.Objects).Value
else v := Null;
Комментарии