Hola,
Necesito crear o hacer referencia a una constante según la opción elegida.
Por ejemplo:
Tengo dos TClientDataSet(Pedidos y Albaranes) en la unidad de datos, los dos tiene en el evento "BeforeOpen" el siguiente procedimiento:
Código Delphi
[-]
procedure TDatos.Abrir(DataSet: TDataSet);
var
D: TClientDataSet;
begin
D := DataSet as TClientDataSet;
if D.Name = 'Pedidos' then
D.CommandText := 'ct_SQL_ ' + D.Name else
D.CommandText := ct_SQL_Albaranes;
end;
Mi pregunta es: ¿Como puedo construir la constante "ct_SQL_Pedidos"?
Ahora solo tengo dos TClientDataSet, pero en un futuro tendre muchos.