Festes Array zur Laufzeit füllen

[TiGü]

Hallo und willkommen in der DP!

Es ist in unseren Forum üblich, den genauen Fehler zu benennen und nicht nur "es geht nicht".

Delphi-Quellcode:

const
  TestArray: array [1 .. 27, 1 .. 2] of String =
    (
    ('A', '6'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('B', '12'),
    ('C', '18')
    );