sábado, 6 de junho de 2009

Criando e apagando tfields em run-time

Procedure TForm1.btnCriaFieldClick(Sender: TObject);
var T: TStringField;
begin
if qryCliente.Active then qryCliente.Close;
T := TStringField.Create(Self);
T.fieldName := 'cli_Nome';
T.FieldKind := fkData;
T.DisplayLabel := 'Nome do Cliente';
T.Visible := True;
T.Name := qryCliente.Name + T.FieldName;
T.Index := qryCliente.FieldCount;
T.DataSet := qryCliente;
qryCliente.FieldDefs.UpDate;
qryCliente.Open;
end;

procedure TForm1.btnApagaFieldClick(Sender: TObject);
var TC: TComponent;
begin
TC := FindComponent('qryClientecli_Nome');
if not (TC = nil) then
begin
qryCliente.Close;
TC.Free;
qryCliente.Open;
end;
end;

Nenhum comentário:

Postar um comentário