Clases en Delphi

Una clase contador de pasos: un campo, un método y una instancia que creas y liberas.

program ClassBasics;
uses SysUtils;
// A class bundles fields with the methods that act on them.
type
  TStepCounter = class
    Steps: Integer;
    procedure Add(N: Integer);
  end;
procedure TStepCounter.Add(N: Integer);
begin
  Steps := Steps + N;  // a method reaches its own fields by name
end;
var Walk: TStepCounter;
begin
  Walk := TStepCounter.Create;  // Create allocates and zeroes the fields
  Walk.Add(1200);
  Walk.Add(850);
  WriteLn(Format('steps today: %d', [Walk.Steps]));
  Walk.Free;                    // one Free for every Create
end.

Cómo funciona

1. TStepCounter = class declara el tipo, y Steps: Integer es el campo que lleva cada instancia.
2. procedure TStepCounter.Add se implementa bajo la declaración y asigna Steps := Steps + N.
3. TStepCounter.Create reserva la instancia y Walk.Free la libera al final.

Palabras clave y builtins usados aquí

• Format
• Integer
• WriteLn
• begin
• class
• end
• procedure
• program
• type
• uses
• var

El intento, en números

Líneas

20

Caracteres a escribir

532

Tokens

95

Ritmo de tres estrellas

70 tpm

Al ritmo de tres estrellas de 70 tokens por minuto, este intento toma unos 81 segundos.

Escribe este fragmento

Paso 1 de 3 en Clases; paso 19 de 27 en Fundamentos del lenguaje.

← Anterior Siguiente →