TIBquery y campos persistentes en tiempo de ejecucion

[ecfisa]

Hola.

Te pongo un ejemplo con tres tipos de campos que tal vez te sirva de guía:

Código Delphi [-]
...
var
  Query: TIBquery;
  QueryID: TIntegerField;
  QueryTipo: TIBStringField;
  QueryMonto: TFloatField;

procedure TForm1.btnCrearPersistentesClick(Sender: TObject);
begin
  Query:= TIBQuery.Create(Self);
  Query.Database:= IBDatabase1;
  Query.Transaction:= IBTransaction1;
  Query.SQL.Text:= 'SELECT * FROM TABLA';
  
  QueryID:= TIntegerField.Create(Query);
  with QueryID do
  begin
    FieldName:= 'ID';
    Name:= 'QueryID';
    FieldKind:= fkData;
    DisplayLabel:= 'ID';
    DataSet:= Query
  end;

  QueryTipo:= TIBStringField.Create(Query);
  with QueryTipo do
  begin
    FieldName:= 'TIPO';
    Name:= 'QueryTipo';
    FieldKind:= fkData;
    DisplayLabel:= 'TIPO';
    Size:= 1;
    DataSet:= Query
  end;

  QueryMonto:= TFloatField.Create(Query);
  with QueryMonto do
  begin
    FieldName:= 'MONTO';
    Name:= 'QueryMonto';
    FieldKind:= fkData;
    DisplayLabel:= 'MONTO';
    DisplayWidth:= 10;
    DisplayFormat:= '0.00';
    DataSet:= Query;
  end;
  Query.Open;
  ShowMessage(QueryID.AsString+' - '+QueryTipo.AsString+' - '+QueryMonto.AsString);
end;

Saludos.