Code: Select all
procedure TZGenericCachedResolver.DefineCalcColumns(Columns: TObjectList;
RowAccessor: TZRowAccessor);
var
I: Integer;
begin
for I := 1 to Metadata.GetColumnCount do
begin
if RowAccessor.IsNull(I) and (Metadata.GetTableName(I) <> '')
and (Metadata.GetDefaultValue(I) <> '') then
begin
Columns.Add(TZResolverParameter.Create(I,
Metadata.GetColumnName(I), Metadata.GetColumnType(I),
True, Metadata.GetDefaultValue(I)));
end;
end;
end;