Buscar por:

Criando e apagando tfields em run-time

Código

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;