Ir al contenido


Foto

Algunas nuevas facilidades en Delphi después de Delphi7.


  • Por favor identifícate para responder
4 respuestas en este tema

#1 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.187 mensajes
  • LocationMéxico

Escrito 19 diciembre 2008 - 08:01

Constantes en Clases



delphi
  1.  { Las Clases pueden ahora tener constantes---
  2.     Un valor constante asociado con la clase misma y no con la instancia de la clase}
  3.  
  4.  TClassWithConstant = class
  5.    public
  6.      const SomeConst = 'This is a class constant';
  7.  end;
  8.  
  9.  ::::::::::
  10.  
  11.  procedure TForm1.Button1Click(Sender: TObject);
  12.  begin
  13.    ShowMessage(TClassWithConstant.SomeConst);
  14.  end;




Registros con Métodos



delphi
  1.  { Adicionalmente a los campos, los registros ahora pueden tener propiedades y métodos
  2.     (incluyendo constructores, propiedades, métodos, campos y tipos anidados)}
  3.  TMyRecord = record
  4.    type
  5.      TInnerColorType = Integer;
  6.    var
  7.      Red: Integer;
  8.    class var
  9.      Blue: Integer;
  10.    procedure printRed();
  11.    constructor Create(val: Integer);
  12.    property RedProperty: TInnerColorType read Red write Red;
  13.    class property BlueProp: TInnerColorType read Blue write Blue;
  14.  end;
  15.  
  16.  ::::::::::::
  17.  
  18.  constructor TMyRecord.Create(val: Integer);
  19.  begin
  20.    Red := val;
  21.  end;
  22.  
  23.  procedure TMyRecord.printRed;
  24.  begin
  25.    writeln('Red: ', Red);
  26.  end;



Tipos en Clases



delphi
  1.  {  Una clase ahora contiene un tipo de declaraciones que es usada solo dentro de esa clase }
  2.  TClassWithClassType = class
  3.    private
  4.      type
  5.        TRecordWithinAClass = record
  6.           SomeField: string;
  7.        end;
  8.      public
  9.        class var
  10.           RecordWithinAClass: TRecordWithinAClass;
  11.  end;
  12.  
  13.  ::::::::::::
  14.  
  15.  procedure TForm1.Button2Click(Sender: TObject);
  16.  begin
  17.    TClassWithClassType.RecordWithinAClass.SomeField := 'This is a field of a class type declaration';
  18.    ShowMessage(TClassWithClassType.RecordWithinAClass.SomeField);
  19.  end;



Enlace

Salud OS

  • 0

#2 Caral

Caral

    Advanced Member

  • Administrador
  • 4.261 mensajes
  • LocationCosta Rica

Escrito 19 diciembre 2008 - 08:11

Hola
Interesante.
Cuando dices, Despues de delphi7, que significa?.
Incluye delphi7 o es estrictamente despues...
Mi pobre delphi 6 no va?.
Saludos
  • 0

#3 egostar

egostar

    missing my father, I love my mother.

  • Administrador
  • 14.187 mensajes
  • LocationMéxico

Escrito 19 diciembre 2008 - 08:15

Pues el documento original dice Since Delphi7 así que Delphi6 no lo tiene amigo, seria cuestion que alguien con Delphi7 nos diga si funciona.

Salud OS
  • 0

#4 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.409 mensajes
  • LocationRepública Dominicana

Escrito 20 diciembre 2008 - 06:57

Pues a mí no me está funcionando a menos que esté haciendo algo mal, tengo Delphi 7.

Saludos.
  • 0

#5 Guest_Jose Fco_*

Guest_Jose Fco_*
  • Visitante

Escrito 20 diciembre 2008 - 07:43

Pues a mí no me está funcionando a menos que esté haciendo algo mal, tengo Delphi 7.

Saludos.


Hola amigos, yo mas tarde intentare y les dejo saber.Tengo Delphi 7.


Un Saludo.