Estos son m\u00e9todos a los que puede llamar con una referencia de clase (TMyClass), no necesariamente una instancia de clase.<\/p>\n\n\n\n
type\n TEnemy = class\n procedure Kill;\n class procedure KillAll;\n end;\n\nvar\n E: TEnemy;\nbegin\n E := TEnemy.Create;\n try\n E.Kill;\n finally FreeAndNil(E) end;\n TEnemy.KillAll;\nend;<\/pre><\/div>\n\n\n\nTenga en cuenta que pueden ser virtuales\u2009\u2014\u2009tiene sentido, y a veces es muy \u00fatil, cuando se combinan con referencias de clase.<\/p>\n\n\n\n
Los m\u00e9todos de clase tambi\u00e9n pueden estar limitados por los especificadores de visibilidad, como privado o protegido. Al igual que los m\u00e9todos regulares.<\/p>\n\n\n\n
Tenga en cuenta que un constructor siempre act\u00faa como un m\u00e9todo de clase cuando se llama de forma normal (MyInstance := TMyClass.Create(\u2026\u200b);). Aunque tambi\u00e9n es posible llamar a un constructor desde dentro de la propia clase, como un m\u00e9todo normal, y luego act\u00faa como un m\u00e9todo normal. Esta es una caracter\u00edstica \u00fatil para \u00abencadenar\u00bb constructores, cuando un constructor (por ejemplo, sobrecargado para tomar un par\u00e1metro entero) hace alg\u00fan trabajo y luego llama a otro constructor (por ejemplo, sin par\u00e1metros).<\/p>\n\n\n\n
Referencias de clase<\/h2>\n\n\n\n
La referencia de clase le permite elegir la clase en tiempo de ejecuci\u00f3n, por ejemplo, para llamar a un m\u00e9todo de clase o constructor sin conocer la clase exacta en tiempo de compilaci\u00f3n. Es un tipo declarado como clase de TMyClass.<\/p>\n\n\n\n
type\n TMyClass = class(TComponent)\n end;\n\n TMyClass1 = class(TMyClass)\n end;\n\n TMyClass2 = class(TMyClass)\n end;\n\n TMyClassRef = class of TMyClass;\n\nvar\n C: TMyClass;\n ClassRef: TMyClassRef;\nbegin\n \/\/ Obviously you can do this:\n\n C := TMyClass.Create(nil); FreeAndNil(C);\n C := TMyClass1.Create(nil); FreeAndNil(C);\n C := TMyClass2.Create(nil); FreeAndNil(C);\n\n \/\/ In addition, using class references, you can also do this:\n\n ClassRef := TMyClass;\n C := ClassRef.Create(nil); FreeAndNil(C);\n\n ClassRef := TMyClass1;\n C := ClassRef.Create(nil); FreeAndNil(C);\n\n ClassRef := TMyClass2;\n C := ClassRef.Create(nil); FreeAndNil(C);\nend;<\/pre><\/div>\n\n\n\nLas referencias de clase se pueden combinar con m\u00e9todos de clase virtual. Esto da un efecto similar al uso de clases con m\u00e9todos virtuales\u2009\u2014\u2009el m\u00e9todo real que se ejecutar\u00e1 se determina en tiempo de ejecuci\u00f3n.<\/p>\n\n\n\n
type\n TMyClass = class(TComponent)\n class procedure DoSomething; virtual; abstract;\n end;\n\n TMyClass1 = class(TMyClass)\n class procedure DoSomething; override;\n end;\n\n TMyClass2 = class(TMyClass)\n class procedure DoSomething; override;\n end;\n\n TMyClassRef = class of TMyClass;\n\nvar\n C: TMyClass;\n ClassRef: TMyClassRef;\nbegin\n ClassRef := TMyClass1;\n ClassRef.DoSomething;\n\n ClassRef := TMyClass2;\n ClassRef.DoSomething;\n\n { And this will cause an exception at runtime,\n since DoSomething is abstract in TMyClass. }\n ClassRef := TMyClass;\n ClassRef.DoSomething;\nend;<\/pre><\/div>\n\n\n\nSi tiene una instancia y desea obtener una referencia a su clase (no la clase declarada, sino la clase descendiente final utilizada en su construcci\u00f3n), puede usar la propiedad ClassType. El tipo declarado de ClassType es TClass, que significa clase de TObject. A menudo, puede encasillarlo de manera segura en algo m\u00e1s espec\u00edfico, cuando sabe que la instancia es algo m\u00e1s espec\u00edfico que TObject.<\/p>\n\n\n\n
En particular, puede usar la referencia ClassType para llamar a m\u00e9todos virtuales, incluidos los constructores virtuales. Esto le permite crear un m\u00e9todo como Clone que construye una instancia de la clase de tiempo de ejecuci\u00f3n exacta del objeto actual. Puede combinarlo con Cloning: TPersistent.Assign para tener un m\u00e9todo que devuelva un clon reci\u00e9n construido de la instancia actual.<\/p>\n\n\n\n
Recuerda que solo funciona cuando el constructor de tu clase es virtual. Por ejemplo, se puede usar con los descendientes est\u00e1ndar de TComponent, ya que todos deben anular el constructor virtual TComponent.Create(AOwner: TComponent).<\/p>\n\n\n\n
type\n TMyClass = class(TComponent)\n procedure Assign(Source: TPersistent); override;\n function Clone(AOwner: TComponent): TMyClass;\n end;\n\n TMyClassRef = class of TMyClass;\n\nfunction TMyClass.Clone(AOwner: TComponent): TMyClass;\nbegin\n \/\/ This would always create an instance of exactly TMyClass:\n \/\/Result := TMyClass.Create(AOwner);\n \/\/ This can potentially create an instance of TMyClass descendant:\n Result := TMyClassRef(ClassType).Create(AOwner);\n Result.Assign(Self);\nend;<\/pre><\/div>\n\n\n\nM\u00e9todos de clase est\u00e1tica<\/h2>\n\n\n\n
Para comprender los m\u00e9todos de clase est\u00e1ticos, debe comprender c\u00f3mo funcionan los m\u00e9todos de clase normales (descritos en las secciones anteriores). Internamente, los m\u00e9todos de clase normales reciben una referencia de clase de su clase (se pasa a trav\u00e9s de un primer par\u00e1metro del m\u00e9todo oculto e impl\u00edcitamente agregado). Incluso se puede acceder a esta referencia de clase expl\u00edcitamente usando la palabra clave Self dentro del m\u00e9todo de clase. Por lo general, es algo bueno: esta referencia de clase le permite llamar a m\u00e9todos de clases virtuales (a trav\u00e9s de la tabla de m\u00e9todos virtuales de la clase).<\/p>\n\n\n\n
Si bien esto es bueno, hace que los m\u00e9todos de clase normales sean incompatibles cuando se asignan a un puntero de procedimiento global. Es decir, esto no compilar\u00e1:<\/p>\n\n\n\n
{$mode objfpc}{$H+}{$J-}\ntype\n TMyCallback = procedure (A: Integer);\n\n TMyClass = class\n class procedure Foo(A: Integer);\n end;\n\nclass procedure TMyClass.Foo(A: Integer);\nbegin\nend;\n\nvar\n Callback: TMyCallback;\nbegin\n \/\/ Error: TMyClass.Foo not compatible with TMyCallback\n Callback := @TMyClass(nil).Foo;\nend.<\/pre><\/div>\n\n\n\nNota: En el modo Delphi, podr\u00eda escribir TMyClass.Foo en lugar de un feo TMyClass(nil).Foo en el ejemplo anterior. Es cierto que TMyClass.Foo se ve mucho m\u00e1s elegante y el compilador tambi\u00e9n lo verifica mejor. Usar TMyClass(nil).Foo es un truco\u2026 desafortunadamente, necesario (por ahora) en el modo ObjFpc que se presenta a lo largo de este libro.<\/p>\n\n\n\n
En cualquier caso, la asignaci\u00f3n de TMyClass.Foo a la devoluci\u00f3n de llamada anterior a\u00fan fallar\u00eda en el modo Delphi, exactamente por las mismas razones.<\/p>\n\n\n\n
El ejemplo anterior no se compila porque Callback es incompatible con el m\u00e9todo de clase Foo. Y es incompatible porque internamente el m\u00e9todo de clase tiene ese par\u00e1metro impl\u00edcito oculto especial para pasar una referencia de clase.<\/p>\n\n\n\n
Una forma de corregir el ejemplo anterior es cambiar la definici\u00f3n de TMyCallback. Funcionar\u00e1 si se trata de una devoluci\u00f3n de llamada de m\u00e9todo, declarada como TMyCallback = procedimiento (A: Integer) of object;. Pero a veces, no es deseable.<\/p>\n\n\n\n
Aqu\u00ed viene el m\u00e9todo de clase est\u00e1tica. Es, en esencia, solo un procedimiento\/funci\u00f3n global, pero su espacio de nombres est\u00e1 limitado dentro de la clase. No tiene ninguna referencia de clase impl\u00edcita (y por lo tanto, no puede ser virtual y no puede llamar a m\u00e9todos de clase virtual). Por el lado positivo, es compatible con las devoluciones de llamadas normales (sin objetos). As\u00ed que esto funcionar\u00e1:<\/p>\n\n\n\n
{$mode objfpc}{$H+}{$J-}\ntype\n TMyCallback = procedure (A: Integer);\n\n TMyClass = class\n class procedure Foo(A: Integer); static;\n end;\n\nclass procedure TMyClass.Foo(A: Integer);\nbegin\nend;\n\nvar\n Callback: TMyCallback;\nbegin\n Callback := @TMyClass.Foo;\nend.<\/pre><\/div>\n\n\n\nPropiedades de clase y variables<\/h2>\n\n\n\n
Una propiedad de clase es una propiedad a la que se puede acceder a trav\u00e9s de una referencia de clase (no necesita una instancia de clase).<\/p>\n\n\n\n
Es una analog\u00eda bastante directa de una propiedad regular (ver Propiedades). Para una propiedad de clase, define un getter y\/o un setter. Pueden hacer referencia a una variable de clase o a un m\u00e9todo de clase est\u00e1tico.<\/p>\n\n\n\n
Una variable de clase es, lo adivin\u00f3, como un campo normal, pero no necesita una instancia de clase para acceder a ella. En efecto, es como una variable global, pero con el espacio de nombres limitado a la clase contenedora. Se puede declarar dentro de la secci\u00f3n class var de la clase. Alternativamente, se puede declarar siguiendo la definici\u00f3n de campo normal con la palabra clave static.<\/p>\n\n\n\n
Y un m\u00e9todo de clase est\u00e1tica es como un procedimiento\/funci\u00f3n global, pero con el espacio de nombres limitado a la clase contenedora. Para obtener m\u00e1s informaci\u00f3n sobre los m\u00e9todos de clase est\u00e1ticos en la secci\u00f3n anterior, consulte M\u00e9todos de clase est\u00e1ticos.<\/p>\n\n\n\n
{$mode objfpc}{$H+}{$J-}\ntype\n TMyClass = class\n strict private\n \/\/ Alternative:\n \/\/ FMyProperty: Integer; static;\n class var\n FMyProperty: Integer;\n class procedure SetMyProperty(const Value: Integer); static;\n public\n class property MyProperty: Integer\n read FMyProperty write SetMyProperty;\n end;\n\nclass procedure TMyClass.SetMyProperty(const Value: Integer);\nbegin\n Writeln('MyProperty changes!');\n FMyProperty := Value;\nend;\n\nbegin\n TMyClass.MyProperty := 123;\n Writeln('TMyClass.MyProperty is now ', TMyClass.MyProperty);\nend.<\/pre><\/div>\n\n\n\nAyudantes de clase (Helpers)<\/h2>\n\n\n\n
El m\u00e9todo es solo un procedimiento o funci\u00f3n dentro de una clase. Desde el exterior de la clase, la llama con una sintaxis especial MyInstance.MyMethod(\u2026\u200b). Despu\u00e9s de un tiempo te acostumbras a pensar que si quiero hacer una acci\u00f3n Acci\u00f3n en la instancia X, escribo X.Action(\u2026\u200b)<\/code>.<\/p>\n\n\n\nPero a veces, necesita implementar algo que conceptualmente es una acci\u00f3n en la clase TMyClass sin modificar el c\u00f3digo fuente de TMyClass. A veces es porque no es su c\u00f3digo fuente y no quiere cambiarlo. A veces se debe a las dependencias\u2009\u2014\u2009agregar un m\u00e9todo como Render a una clase como TMy3DObject parece una idea sencilla, pero tal vez la implementaci\u00f3n base de la clase TMy3DObject deber\u00eda mantenerse independiente del c\u00f3digo de renderizado. Ser\u00eda mejor \u00abmejorar\u00bb una clase existente, agregarle funcionalidad sin cambiar su c\u00f3digo fuente.<\/p>\n\n\n\n
Una forma sencilla de hacerlo es crear un procedimiento global que tome una instancia de TMy3DObject como su primer par\u00e1metro.<\/p>\n\n\n\n