来自数据库sqlite的读取值的错误编码

Question

sqlite是一个数据库 - 一个描述符，包含表列表，域列表，字段列表，限制列表（主键和外键），索引列表。我在Delphi XE3的帮助下，在内置组件的帮助下连接到此基础。有一个单独的模块，其中描述了类TTableSpec，TFieldSpec，TConstraintSpec，TConstraintDetSpec。这些类对应于上述sqlite的基础记录。在TTableSpec类中有这样的FFields字段：TComponent，它成为像TFieldSpec这样的对象的所有者，它们也是从基础上卸载的。通过读取基础描述符创建对象后，我发现某些对象属性的值（例如，TFieldSpec）不在该编码中（行Edit2.Text：= TFieldSpec（TConstraintDetailSpec（TConstraintSpec）（TTableSpec（DBSchema.Tables.FindComponent（ InputTableName））of.Constraints.Components [i]）。DetailList）.FieldSpec）.FieldName;在下面提到的检查函数中，该表的字段主键是）。

function TfmSettings.IsPrimaryKey(InputTableName : string; InputFieldName: string):Boolean;
var
  i : integer;
  flag: boolean;
begin
  flag:=False;
  for i:=0 to TTableSpec(DBSchema.Tables.FindComponent(InputTableName)).Constraints.ComponentCount-1 do
    begin
      if ((TConstraintSpec(TTableSpec(DBSchema.Tables.FindComponent(InputTableName)).Constraints.Components[i]).ConstraintType='PRIMARY') and (TTableSpec(DBSchema.Tables.FindComponent(InputTableName)).Fields.FindComponent(InputFieldName).Name=TConstraintDetailSpec(TConstraintSpec(TTableSpec(DBSchema.Tables.FindComponent(InputTableName)).Constraints.Components[i]).DetailList).FieldName)) then
        flag:=True;
      Edit1.Text:=TConstraintSpec(TTableSpec(DBSchema.Tables.FindComponent(InputTableName)).Constraints.Components[i]).Name;
      Edit2.Text:=TFieldSpec(TConstraintDetailSpec(TConstraintSpec(TTableSpec(DBSchema.Tables.FindComponent(InputTableName)).Constraints.Components[i]).DetailList).FieldSpec).FieldName;
      Edit3.Text:=InputFieldName;
    end;
  Result:=flag;
end;

我还提供了创建对象的过程代码，并使用错误的编码连接：

procedure CreationListOfFields(SQLConn: TSQLConnection; DBSchema : TDBSchemaSpec);
var
  NameField : TField;
  PositionField : TField;
  DescriptionField : TField;
  CanInputField : TField;
  CanEditField : TField;
  ShowInGridField : TField;
  ShowInDetailsField : TField;
  IsMeanField : TField;
  AutocalculatedField : TField;
  RequiredField : TField;
  Name1 : TField;
  Name2 : TField;
begin
    SQLConn.Execute('select f.id, f.position, f.name, f.description, f.can_input, '
    +' f.can_edit, f.show_in_grid, f.show_in_details, f.is_mean, f.autocalculated, f.required, t.name, d.name '
    +' from fields f left join tables t on f.table_id=t.id '
    +' left join domains d on f.domain_id=d.id order by t.name, d.name ', nil, results);
    if not results.IsEmpty then
      begin
        results.First;
        Name1:=results.FieldByName('name_1');
        Name2:=results.FieldByName('name_2');
        lastTable:=Name1.AsString;
        TableSpec:=TTableSpec(DBSchema.Tables.FindComponent(lastTable));
        lastDomain:=Name2.AsString;
        DomainSpec:=TDomainSpec(DBSchema.Domains.FindComponent(lastDomain));
        NameField:=results.FieldByName('name');
        PositionField:=results.FieldByName('position');
        DescriptionField:=results.FieldByName('description');
        CanInputField:=results.FieldByName('can_input');
        CanEditField:=results.FieldByName('can_edit');
        ShowInGridField:=results.FieldByName('show_in_grid');
        ShowInDetailsField:=results.FieldByName('show_in_details');
        IsMeanField:=results.FieldByName('is_mean');
        AutocalculatedField:=results.FieldByName('autocalculated');
        RequiredField:=results.FieldByName('required');
        while not results.Eof do
          begin
            if (Name1.AsString<>lastTable) then
            begin
              lastTable:=Name1.AsString;
              TableSpec:=TTableSpec(DBSchema.Tables.FindComponent(lastTable));
            end;
            if (Name2.AsString<>lastDomain) then
            begin
              lastDomain:=Name2.AsString;
              DomainSpec:=TDomainSpec(DBSchema.Domains.FindComponent(lastDomain));
            end;
            FieldSpec:=TFieldSpec.Create(TableSpec.Fields);
            FieldSpec.Setup( DomainSpec, PositionField.AsInteger,
            NameField.AsString, DescriptionField.AsString,
            FieldToBoolean(CanInputField),FieldToBoolean(CanEditField),
            FieldToBoolean(ShowInGridField), FieldToBoolean(ShowInDetailsField),
            FieldToBoolean(IsMeanField),FieldToBoolean(AutocalculatedField),
            FieldToBoolean(RequiredField));
            TComponent(FieldSpec).Name:=NameField.AsString;
            TableSpec.Fields.InsertComponent(FieldSpec);
            results.Next;
          end;
      end;
end;

procedure CreationListOfConstrAndConstrDet(SQLConn : TSQLConnection; DBSchema : TDBSchemaSpec);
var
IDField : TField;
NameField : TField;
ConstrTypeField : TField;
ReferenceField : TField;
UniqueKeyIdField : TField;
HasValueEditField : TField;
CascadingDeleteField: TField;
ExpressionField : TField;
NameField1 : TField;
Name1 : TField;
begin
    SQLConn.Execute('select c.id, c.name, constraint_type, reference, unique_key_id, has_value_edit, '
    + 'cascading_delete, expression, t.name from constraints c left join tables t on c.table_id=t.id order'
    +' by t.name ', nil, results);
    if not results.IsEmpty then
    begin
    results.First;
    IDField:=results.FieldByName('ID');
    NameField:=results.FieldByName('name');
    ConstrTypeField:=results.FieldByName('constraint_type');
    ReferenceField:=results.FieldByName('reference');
    UniqueKeyIdField:=results.FieldByName('unique_key_id');
    HasValueEditField:=results.FieldByName('has_value_edit');
    CascadingDeleteField:=results.FieldByName('cascading_delete');
    ExpressionField:=results.FieldByName('expression');
    Name1:=results.FieldByName('name_1');
    lastTable:=Name1.AsString;
    TableSpec:=TTableSpec(DBSchema.Tables.FindComponent(lastTable));
    while not results.Eof do
    begin
    if (Name1.AsString<>lastTable) then
    begin
      lastTable:=Name1.AsString;
      TableSpec:=TTableSpec(DBSchema.Tables.FindComponent(lastTable));
    end;
    ConstraintSpec:=TConstraintSpec.Create(TableSpec.Constraints);
    ConstraintSpec.Setup(IDField.AsInteger,NameField.AsString, ConstrTypeField.AsString,
    ReferenceField.AsString, ConvertToInt(UniqueKeyIdField.AsString), FieldToBoolean(HasValueEditField),
    FieldToBoolean(CascadingDeleteField), ExpressionField.AsString);
    TComponent(ConstraintSpec).Name:=results.FieldByName('name').AsString;
    TableSpec.Constraints.InsertComponent(ConstraintSpec);
    SQLConn.Execute('select cd.id, f.name from constraint_details cd left join'
    +' fields f on f.id=cd.field_id where cd.constraint_id = '+inttostr(ConstraintSpec.ID), nil, results1);
    if not results1.IsEmpty then
    begin
    results1.First;
    NameField1:=results1.FieldByName('name');
    while not results1.Eof do
    begin
     FieldSpec:=TFieldSpec(TableSpec.Fields.FindComponent(NameField1.AsString));
     ConstDetSpec:=TConstraintDetailSpec.Create(ConstraintSpec.DetailList);
     ConstDetSpec.Setup(NameField1.AsString, FieldSpec);
    ConstraintSpec.DetailList.InsertComponent(ConstDetSpec);
    results1.Next;
    end;
    end;
    results.Next;
    end;
    end;
end;

P.S。 SQL查询通常在sqlite中执行。在必要的编码中给出必要的线条（至少在视觉上结果包含可读的英文和俄文字符）。