n-dimens/pascalabcnet: The new generation Pascal programming language for .NET

TestSamples/CompilationSamples/netenumtest.pas

17 строк367 B

Бондарев Иван

initial commit

14 май 2015, 22:35

14 май 2015, 22:35e6e67c1

var i:integer;
    e:System.TypeCode;
begin
  e:=System.TypeCode.Int64;
  i:=integer(System.TypeCode.Int64);
  writeln(i);
  writeln(integer(System.TypeCode.Int64));
  writeln(integer(e));
  e:=System.TypeCode(i);
  writeln(e);
  writeln(System.TypeCode(11));
  writeln(System.TypeCode(i));
  //case integer(e) of
  //  System.TypeCode.Int64:;
  //end;
  readln;
end.