Registros en Delphi

Un registro TShelter une un nombre con un conteo de camas y viaja entero hacia una función.

program RecordsBasics;
type
  TShelter = record        // a record groups named fields into one value
    Name: string;
    Beds: Integer;
  end;

function Roomy(const S: TShelter): Boolean;
begin
  Result := S.Beds >= 12;  // fields are reached through the dot
end;

var
  Corrour: TShelter;
begin
  Corrour.Name := 'Corrour Bothy';
  Corrour.Beds := 14;
  WriteLn(Corrour.Name, ' roomy: ', Roomy(Corrour));
end.

Cómo funciona

1. TShelter = record declara los campos Name: string; y Beds: Integer;.
2. Corrour.Name y Corrour.Beds se asignan a través del punto.
3. Roomy(const S: TShelter) recibe el registro completo y evalúa S.Beds >= 12.

Palabras clave y builtins usados aquí

• Boolean
• Integer
• Result
• WriteLn
• begin
• const
• end
• function
• program
• record
• string
• type
• var

El intento, en números

Líneas

19

Caracteres a escribir

391

Tokens

82

Ritmo de tres estrellas

75 tpm

Al ritmo de tres estrellas de 75 tokens por minuto, este intento toma unos 66 segundos.

Escribe este fragmento

Paso 3 de 3 en Arreglos y registros; paso 15 de 27 en Fundamentos del lenguaje.

← Anterior Siguiente →