10/09/2004

Como criar 2 campos no ClientDataSet em Run-Time???

Como criar 2 campos no ClientDataSet em Run-Time???

preciso criar por exemplo:

campo String(20)
campo Float

o componente já consegui criar somente faltam os campos!

:arrow: alguém sabe??

Muito obrigado. :wink:


Claudio Sam

Respostas

11/09/2004

Fclmrj

Olá,
Tente o código :

var
Campo : TField;
Coluna : TColumn;
begin
Campo := TField.Create( ClientDataSet );
Campo.SetFieldType( ftString );
Campo.Name := ´NovoCampo´;
ClientDataSet.Fields.Add( Campo );

DBGrid.Columns.Insert(0);
DBGrid.Columns.RebuildColumns;
DBGrid.Columns[DBGrid.Columns.Count -1 ].FieldName := ´NovoCampo´;
DBGrid.Columns[DBGrid.Columns.Count -1].Title.Caption := ´Descrição do novo campo´;
DBGrid.Columns[DBGrid.Columns.Count -1].Title.Font.color := clNavy;
DBGrid.Columns[DBGrid.Columns.Count -1].Title.Font.Style := [fsbold];

Caso queira criar o campo fisicamente, creio que seja necessário uma instrução SQL do tipo ´ALTER TABLE TABELA ADD ...´.


Responder Citar