Karten-Verteil-Algorithmus

[idefix2]

Bei so einem Code schaudert es mich:

Delphi-Quellcode:

if zufall = 1 then
          Karte:='K1'
        else if zufall = 2 then
          Karte:='E5'
        else if zufall = 3 then
          Karte:='H4'
        ....
        else if zufall = 19 then
          Karte:='H3'
        else if zufall = 20 then
          Karte:='K3';

Wie wäre es mit

Delphi-Quellcode:

const kartennamen: array[1..20] of string = ('K1','E5','H4',...,'H3','K3');
....

karte:=Kartennamen[zufall]