Rotulos de columnas usando variables

[ContraVeneno]

Código Delphi [-]
with TuDataset do begin
 if active then close;
 sql.clear;
 sql.add('select T.UnCampo as '+VariableTexto);
 sql.add('from unatabla T');
 Open;
 showmessage(Fields[0].FieldName+': '+Fields[0].AsString); 
end; //with