Arreglos dinámicos en Delphi

Duraciones de pistas en un array of Integer que se dimensiona, se llena y luego crece.

program DynamicArrays;
var
  Seconds: array of Integer;
  Track, I: Integer;
begin
  SetLength(Seconds, 3);        // SetLength allocates; slots start at zero
  for I := 0 to Length(Seconds) - 1 do
    Seconds[I] := 180 + I * 15;
  SetLength(Seconds, 4);        // growing keeps the values already stored
  Seconds[3] := 244;
  WriteLn('tracks on the tape: ', Length(Seconds));
  for Track in Seconds do       // for-in walks every element in order
    Write(Track, ' ');
  WriteLn;
end.

Cómo funciona

1. SetLength(Seconds, 3) reserva tres espacios, y Length(Seconds) acota el bucle de llenado.
2. Un segundo SetLength(Seconds, 4) conserva los valores y libera Seconds[3] para escribir.
3. for Track in Seconds do visita cada elemento sin índice.

Palabras clave y builtins usados aquí

• Integer
• Length
• SetLength
• Write
• WriteLn
• array
• begin
• do
• end
• for
• in
• of
• program
• to
• var

El intento, en números

Líneas

15

Caracteres a escribir

461

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 2 de 3 en Arreglos y registros; paso 14 de 27 en Fundamentos del lenguaje.

← Anterior Siguiente →