4 respuestas en este tema

[egostar]

Constantes en Clases

delphi

 { Las Clases pueden ahora tener constantes---
    Un valor constante asociado con la clase misma y no con la instancia de la clase}
 
  TClassWithConstant = class
    public
      const SomeConst = 'This is a class constant';
  end;
 
  ::::::::::
 
  procedure TForm1.Button1Click(Sender: TObject); 
  begin
    ShowMessage(TClassWithConstant.SomeConst);
  end;

Registros con Métodos

delphi

 { Adicionalmente a los campos, los registros ahora pueden tener propiedades y métodos
    (incluyendo constructores, propiedades, métodos, campos y tipos anidados)}
  TMyRecord = record
    type
      TInnerColorType = Integer;
    var
      Red: Integer;
    class var
      Blue: Integer;
    procedure printRed();
    constructor Create(val: Integer);
    property RedProperty: TInnerColorType read Red write Red;
    class property BlueProp: TInnerColorType read Blue write Blue;
  end;
 
  ::::::::::::
 
  constructor TMyRecord.Create(val: Integer);
  begin
    Red := val;
  end;
 
  procedure TMyRecord.printRed;
  begin
    writeln('Red: ', Red);
  end;

Tipos en Clases

delphi

 {  Una clase ahora contiene un tipo de declaraciones que es usada solo dentro de esa clase }
  TClassWithClassType = class
    private
      type
        TRecordWithinAClass = record
           SomeField: string;
        end;
      public
        class var
           RecordWithinAClass: TRecordWithinAClass;
  end;
 
  ::::::::::::
 
  procedure TForm1.Button2Click(Sender: TObject);
  begin
    TClassWithClassType.RecordWithinAClass.SomeField := 'This is a field of a class type declaration';
    ShowMessage(TClassWithClassType.RecordWithinAClass.SomeField);
  end;

Enlace

Salud OS

[Caral]

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

[egostar]

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

[enecumene]

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

Saludos.