Ver Mensaje Individual
  #5  
Antiguo 01-09-2011
Avatar de Chris
[Chris] Chris is offline
Miembro Premium
 
Registrado: abr 2007
Ubicación: Jinotepe, Nicaragua
Posts: 1.678
Reputación: 19
Chris Va por buen camino
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
__________________
Perfil Github - @chrramirez - Delphi Blog - Blog Web
Responder Con Cita