Como Criar um Field no CDS, em runtime

Delphi

17/08/2005

Olá, como posso criar em run time, um field, do tipo Real (Decimal), e colocar se nome, bem como o nome q aparecerá no grid..



desde ja agradeco


Titanius

Titanius

Curtidas 0

Respostas

Tuiobecker

Tuiobecker

17/08/2005

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


GOSTEI 0
POSTAR