logotipo

img_google
3. Objetos, Formas, Unidades y Two-Way Tools
 

Este capitulo nos ayudara a entender como funciona la POO (programación orientada a objetos), como funcionan las formas y unidades en Delphi, y como maneja delphi la sincronía entre código y diseño.

Objetos

La programación orientada a objetos ya no es una "moda". Ahora la programación por objetos esta cambiando la forma en que vemos los problemas. Este no es el momento ni el lugar para hablar de la teoría de los objetos (un buen libro de tecnología de objetos de Grady Booch dará una mucha mejor explicación que este curso acerca de lo que es un objeto en programación). Pero es importante saber las bases de lo que es un objeto para saber como se aplica a Delphi.

Un objeto es un tipo de datos que incorpora datos y código (comportamiento) en un solo "paquete". Antes de la era de la orientación a objetos, el código y los datos eran dos cosas separadas. La orientación por objetos nos permite representar de un modo mucho más conveniente al mundo real.

¿Cómo podemos modelar un objeto del mundo real con objetos "de computadora"? Veamos un ejemplo:

Ejemplo de un Objeto en Object Pascal

Supongamos que estamos haciendo un juego acerca de un Acuario. Para este juego queremos diseñar un Bonito Delfín que va a brincar con el aro y jugar con la pelota, pero queremos en el futuro extender el juego para cualquier tipo de animal marino porque va a ser una simulación. Tal como en el mundo real, necesitamos comenzar con un objeto llamado "pescado" (Para los amantes de la biología: Ya sé que el delfín es un mamífero y no un pescado, pero este es un ejemplo). El objeto pescado tiene sus datos, como son alto, largo, peso y color. Pero el pescado también puede hacer otras cosas, como por ejemplo nadar y sumergirse. Entonces primero hacemos nuestro objeto pescado, que tiene la siguiente forma:

  TPescado = class(TObject)
    
Largo : Float;   // El largo del pescado, en centimetros
    
Alto  : Float;   // La altura del pescado, en centimetros
    
Ancho : Float;   // El ancho del pescado, en centimetros
    
Peso  : Float;   // Cuanto pesa el pescado, en gramos
  public
    procedure 
Nadar(AdondeXY, AdondeXZ, AdondeYZ : TPoint);
    procedure 
Sumergirse(Profundidad : Float);
  end
;

 

Diccionario
Trucos
Buscadores
Javascript
  • Manual
  • Php
    Delphi
  • Manual
  • Trucos
  • Lista de puertos
    Los Calaveras
    Los Calaveras   Vetea   Alta de url   Foros   Contactos reales  
    Otros temas
    Musica
    Conoce gente