Referencia a una const

[sleep25000]

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 // formar la constante ct_SQL_Pedidos
  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.

[marcoszorrilla]

Puedes tomar como referencia este código que utilizo yo en casos similares:

Código Delphi [-]
procedure TfrConClientes.FormActivate(Sender: TObject);
var
cSql1,cSql2,cSql3:String;
begin
frConClientes.Caption:='Consulta de '+cListado;
DmClientes.IBDtsCli.Close;
DmClientes.IBDtsCli.SelectSQL.Clear;
cSql1:='Select * from Alumnos';
csql3:=' Order by Apellidos,Nombre';

  Case frDlgAlumnos.RdgAlumnos.ItemIndex of
  0:cSql2:=' Where Baja  = ''N''';
  1:cSql2:=' Where Grupo = '+DmClientes.IBDtsGruposCODIGO.Value;
  2:cSql2:=' Where RecibofPago = '+QuotedStr(frDlgalumnos.cbcPago.Text);
  3:cSql2:=' Where Sexo  = ''M''';
  4:cSql2:=' Where Sexo  = ''F''';
  5:cSql2:=' Where Baja  = ''S''';
  6:cSql2:=' Where CP    ='+QuotedStr(frDlgAlumnos.edCP.Text); 
  end;

DmClientes.IBDtsCli.SelectSQL.Add(cSql1+cSql2+cSql3);
DmClientes.IBDtsCli.Open;

end;

Un Saludo.

[sleep25000]

Gracias por la respuesta, aunque yo creia que habria alguna otra forma, pero de momento lo hare asi.

un saludo.

[Casimiro Notevi]

No entiendo bien la pregunta, creo que ¿te refieres a una constante "normal"?, ejemplo:

Código Delphi [-]
procedure TDatos.Abrir(DataSet: TDataSet);
const
  _sql_ = 'select * from ';
var   
  D: TClientDataSet; 
begin   
  D := DataSet as TClientDataSet;   
  if D.Name = 'Pedidos' then     
    D.CommandText := _sql_ + D.Name // formar la constante ct_SQL_Pedidos   
  else     
    D.CommandText := ct_SQL_Albaranes; 
end;

[sleep25000]

Casimiro, no quiero concatenar, sino llamar por nombre a la constante.

Tengo una unidad llamada uCt, con varias constantes, dos de ellas son:
ct_SQL_Pedidos = 'SELECT * FROM Pedidos';
ct_SQL_Albaranes = 'SELECT * FROM Albaranes';

if D.Name = 'Pedidos' then
D.CommandText := 'ct_SQL_' + D.Name // Es aqui, donde quiero formar la constante ct_SQL_Pedidos.

Según el nombre del ClientDataSet(Pedidos, Albaranes) seleccionar la constante que le corresponda, sin tener que ulizar condicionales o cualquier otra sentencia.

[[ElKurgan]]

¿Y esto no te serviría?

Código Delphi [-]
const
  Sentencia = 'SELECT * FROM %s';
begin
....
....
ClientDataset1.CommandText := Format(Sentencia, [VariableNombre]);
...
end;

Saludos

[sleep25000]

Gracias ElKurgan, de esa forma me sirve.

Un saludo