Feld Nummer Koordinaten zuweisen

[Waldteufel]

Hi Igel.

So müsste es gehen:

Delphi-Quellcode:

var
  meinFeld : array[1..9, 1..9] of WasWeissIch;

function FeldNummer(i : integer) : WasWeissIch;
begin
  result := meinFeld[(i - 1) mod 9 + 1, (i - 1) div 9 + 1];
end;