Const con valores variables

[GerTorresM]

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


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

[ecfisa]

Hola GerTorresM.

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

Ejemplo:

...

{$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 :)

[GerTorresM]

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