Custom Array type

Smart pascal source code


type
  TMyArray = array [0 .. 5] of String;

  { main.pas }

var
  v: TMyArray;
  i: Integer;

Begin
  v[0] := '123';

  for i := 1 to 5 do
    v[i] := Chr(i + Ord('A'));

  for i := Low(v) to High(v) do
    WriteLn(IntToStr(i) + ': ' + v[i]);

  { <<<<<<<<<<<< CONSOLE OUTPUTS >>>>>>>>>>>>>>>>>>>
    0: 123
    1: B
    2: C
    3: D
    4: E
    5: F
  }

function Chr(c) {
	if (c<=0xFFFF)
		return String.fromCharCode(c);
	c-=0x10000;
	return String.fromCharCode(0xD800+(c>>10))+String.fromCharCode(0xDC00+(c&0x3FF));
}

  var v = ["","","","","",""],
	 i = 0;
  v[0] = "123";
  for(i=1;i<=5;i++) {
	 v[i] = Chr(i+65);
  }
  for(i=0;i<=5;i++) {
	 WriteLn((i.toString()+": "+v[i]));
  }