Const con valores variables
 

Buenas tardes a tod@s


La cosa del día de hoy es la siguiente:

Quiero crear una unidad para guardar las constantes del proyecto, pero me surge la siguiente duda:

Puedo crear con mis constantes a partir de la informacion de un case es decir

Código Delphi [-]
case motor_base_datos of
  1: begin // Access
    const
      caracterContactenacion = '&'
  end;

  2: Begin // Ms SQLSever
    const
      caracterContactenacion = '+'
  end;
end;

Agradaezco de antemano su tiempo y comentarios

Hola GerTorresM.

Con una constante pura no, pero podes usar una constante de tipo.

Ejemplo:

Código Delphi [-]
...

{$J+} // {$WRITEABLECONST ON}
const
  ConcatChar: char = #0;  // constante de tipo
{$J-} // {$WRITEABLECONST OFF}

function SetConcatChar(const DBEngine: Integer): char;
begin
  case DBEngine of
    1: Result:= '&';
    2: Result:= '+';
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  ConcatChar:= SetConcatChar(Random(2)+1);
  Caption:= ConcatChar;
end;

Saludos :)

Muy interesante
 

Gracias por tiempo y respuesta voy a colocarla en práctica a ver como me va