Error Too Many Local Constants

[[Chris]]

Estimado defcon, siento discrepar contigo. Pero creo que más bien el problema se soluciona -en primera instancia- utilizando constante. En segunda instancia (que es lo mejor), sería reestructurar el código. Si este error te está apareciendo es porque estás aplicando malas técnicas de programación. Estás escribiendo procedimientos extremadamente largos y utilizando en ellos constantes líneales (o en línea). Por ejemplo:

Código Delphi [-]
procedure un_procedimiento_muy_largo;
begin
    if (VariableX = 'CONTABILIDAD') then
        ShowMessage('Hola contador!') // estás son constantes líneales (están combinadas con el código)

    { siguen decenas de líneas de código que siguen utilizando constantes lineales }

Como primera instancia, para solventar el problema, hay que apartar esas constantes del código de lógica. Por ejemplo:

Código Delphi [-]
procedure un_procedimiento_muy_largo;
const  // o mejor aún "resourcestring"
    CONTABILIDAD = 'CONTABILIDAD';
    HOLA_CONTADOR = 'Hola contador!';
begin
    if (VariableX = CONTABILIDAD) then
        ShowMessage(HOLA_CONTADOR ) // estás son constantes pre declaradas

    { siguen decenas de líneas de código que siguen constantes pre declaradas }

A cómo dije eso sería en primera instancia. Luego, habrá que refactorizar el código y dividir ese procedimiento en varios.

Saludos,
Chris