Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 08-12-2004
Avatar de mlara
[mlara] mlara is offline
Miembro Premium
 
Registrado: jun 2003
Ubicación: Colombia
Posts: 667
Poder: 21
mlara Va por buen camino
Una variable que apunta a dos objetos

Veámoslo así:

Tengo dos formas: fUno y fDos en dos unidades Uno.pas y Dos.pas.

En otra unidad tengo algo como esto:

Código:
case TalCosa of
  0:
    with fUno do begin
      .
      .
      .
      // esto son como 100 líneas de código
      .
      .
      .
    end;
  1:
    with fDos do begin
      .
      .
      .
      // estas líneas de código son idénticas a las de arriba.
      .
      .
      .
    end;
end;
Esto lo hago porque quice evitarme hacer modificaciones a todos los componentes de una forma para cambiarle el estilo. Obviamente no es nada elegante repetir todo un fragmento de código. Intenté crear una variable y hacer algo como esto:

Código:
case TalCosa of
  0:
    Variable := fUno;
  1:
    Variable := fDos;
end;
with Variable do begin
  .
  .
  .
  // las líneas de código
  .
  .
  .
end;
, pero no me funciona. Alguien quizás haya trabajado algo parecido? Gracias.
__________________
...y mañana caminaré por las calles pasando inadvertido, como siempre.
Responder Con Cita
 



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro


La franja horaria es GMT +2. Ahora son las 11:57:01.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi