Fórum Como Criar um Field no CDS, em runtime #292044

Olá

Acho q isso t ajuda.

with DMGeral.cdsPesquisas.FieldDefs do
begin
DMGeral.cdsPesquisas.Close;
Add(´CODIGO´, ftInteger, 0, False);
DMGeral.cdsPesquisas.FieldDefs[0].CreateField(DMGeral.cdsPesquisas);
Add(´FUNCIONARIO´, ftString, 0, False);
DMGeral.cdsPesquisas.FieldDefs[1].CreateField(DMGeral.cdsPesquisas);
Add(´CREDITOS´, ftFloat, 0, False);
DMGeral.cdsPesquisas.FieldDefs[2].CreateField(DMGeral.cdsPesquisas);
Add(´DEBITOS´, ftFloat, 0, False);
DMGeral.cdsPesquisas.FieldDefs[3].CreateField(DMGeral.cdsPesquisas);
Add(´TOTAL´, ftFloat, 0, False);
DMGeral.cdsPesquisas.FieldDefs[4].CreateField(DMGeral.cdsPesquisas);
TFloatField(DMGeral.cdsPesquisas.Fields[0]).DisplayLabel := ´Código´;
TFloatField(DMGeral.cdsPesquisas.Fields[1]).DisplayLabel := ´Funcionário´;
TFloatField(DMGeral.cdsPesquisas.Fields[2]).DisplayLabel := ´Créditos´;
TFloatField(DMGeral.cdsPesquisas.Fields[3]).DisplayLabel := ´Débitos´;
TFloatField(DMGeral.cdsPesquisas.Fields[4]).DisplayLabel := ´Total´;
TFloatField(DMGeral.cdsPesquisas.Fields[1]).Size := 50;
TFloatField(DMGeral.cdsPesquisas.Fields[2]).DisplayFormat := ´#,0.00´;
TFloatField(DMGeral.cdsPesquisas.Fields[3]).DisplayFormat := ´,0.00´;
TFloatField(DMGeral.cdsPesquisas.Fields[4]).DisplayFormat := ´,0.00´;
end;
end;

flw