Stealth Client Forum

Fenix wrote:

Code: Select all

  dirs : array of array of integer;
begin
  SetLength(dirs, 9);
  dirs[0] := [0,1,2]; 
  dirs[1] := [1,1,1]; 
  dirs[2] := [1,0,2]; 
  dirs[3] := [-1,1,1]; 
  dirs[4] := [0,0,2]; 
  dirs[5] := [1,-1,1]; 
  dirs[6] := [-1,0,2]; 
  dirs[7] := [-1,-1,1]; 
  dirs[8] := [1,-1,2];

-k- wrote:i try in pascal

VarName = array[1..3,1..3] of string;

doesn't work =[

thx