Vraag & Antwoord

Programmeren

[Delphi] Array of record constante

Anoniem
None
2 antwoorden
  • Ik wil graag een constante maken van het type array.

    Eerst heb ik twee types gemaakt (TGeslacht en TPersoon):

    [code:1:1f6d94ed4f]
    type
    TGeslacht = (gsMan, gsVrouw);

    TPersoon = record
    Naam: String;
    Geslacht: TGeslacht;
    end;
    [/code:1:1f6d94ed4f]

    Niets mis mee toch? Nu komt de fout:

    [code:1:1f6d94ed4f]
    const
    TPersonen: Array[1..2] of TPersoon = (
    ('Johan', gsMan)
    ('Regina', gsVrouw) // Regina is m'n vriendin…
    );
    [/code:1:1f6d94ed4f]

    Maar wat is hier fout aan??
  • Ik heb het al…

    Voor de liefhebbers die willen weten hoe het moet (dit is een Array of record constante):

    [code:1:e07ada821c]
    unit AORC;

    interface

    type
    TGeslacht = (gsMan, gsVrouw);

    TPersoon = record
    Naam: String;
    Geslacht: TGeslacht;
    end;

    const
    Personen: Array[1..3] of TPersoon = (
    (Naam: 'Jantje'; Geslacht: gsMan),
    (Naam: 'Pietje'; Geslacht: gsMan),
    (Naam: 'Klaartje'; Geslacht: gsVrouw)
    );

    implementation

    end.
    [/code:1:e07ada821c]

    De naam van de variabele moet er dus bij, gescheiden door een ";" (puntkomma). Het is niet verplicht elke variabele te declareren. I.p.v. "const" kan je ook "var" neerzetten, dan kan je de data later nog wijzigen (dus alleen standaardwaarden toekennen).

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.