bogstaver i array

Ord(\'A\') = 65, så vit jeg husker

Nej det jeg mener er hvordan opretter et array
som dette

X:Array[A..Å,D3..F8] of Integer;

Mvh. Simon

\"æder\" den det ikke sådan som du har gjort ??

Sådan: (man skal huske anførselstegnene)

var
  arr: array[\'A\'..\'Z\'] of Integer;

arr[\'A\'] := 23;
arr[\'Z\'] := 44;


Den sammensatte er lidt værre, da det skal være ordinale typer, men man kan da lave en lille funktion, f.eks:

Function TegnOgNr(s:string):Integer
{Omregner Bogstav og tal, f.eks A0 = 65 eller Z4=490}
Begin
  Result := 100*(s[2]-48)+ord(s[1]); {100*tallet+ascii-værdien af bogstavet}
end;

var
  arr: array[65..990] of integer;  {der er godt nok meget spild}

arr[TegnOgNr(\'B3\')] := 23  {arr[366]}
arr[TegnOgNr(\'Z9\')] := 44  {arr[990]}

//hreiff

Så hellere bruge constanter.

men jeg mener at der er en anden måde.

Mvh. Simon

PS.

Hvis det ikke er så mange du skal bruge, kan du definere en type:

type
  ArrType = (B3,D4,E5,F6,G7,H8)

var
  Arr: array[B3..H8] of integer;

//hreiff

var
  Arr: array[ArrType] of integer;

Tak for det

Mvh. Simon