Полезные коды для PascalABC.NET

{$apptype windows}
{$reference 'System.Windows.Forms.dll'}
{$reference 'System.Drawing.dll'} 
uses
  System.Windows.forms, System.Drawing;
 
function GetSystemMenu(hwnd: System.IntPtr; Brevert: boolean): System.IntPtr; external 'user32.dll';
 
function EnableMenuItem(hMenu: System.intptr; uIDEnableItem, uEnable: uint64): boolean;external 'user32.dll';
 
const
  SC_CLOSE = 61536; MF_GRAYED = 1; MF_BYCOMMAND = 0;
 
type
  ///класс для управление крестиком(кнопкай закрыть);
  crossSetting = class
    private _en: boolean := true;_IgPress: boolean;Fhandle: System.IntPtr;
    hmenu: System.IntPtr;
    //function GetSystemMenu(hwnd: System.IntPtr; Brevert: boolean): System.IntPtr; external 'user32.dll';не хочет компилировать 
    function FunEnable: boolean;
    begin
      Result := _en;
      
    end;
    
    procedure ProcEnable(A: boolean);
    begin
      _en := a;
      case a of 
        false: begin hMenu := GetSystemMenu(Fhandle, false); EnableMenuItem(hMenu, SC_CLOSE, MF_BYCOMMAND or MF_GRAYED);      end;
        true: begin hMenu := GetSystemMenu(Fhandle, true);       end;
      end;
    end;
    
    procedure updateHandle(FormHandle: System.IntPtr);
    begin
      Fhandle := FormHandle;
      case _en of 
        false: begin hMenu := GetSystemMenu(Fhandle, false); EnableMenuItem(hMenu, SC_CLOSE, MF_BYCOMMAND or MF_GRAYED);      end;
        true: begin hMenu := GetSystemMenu(Fhandle, true);       end;
      end;
    end;
  
  public 
    constructor create(FormHandle: System.IntPtr);
    begin
      Fhandle := FormHandle;
    end;
    
    
    ///включена ли кнопка закрыть
    property Enable: boolean read FunEnable write procEnable;
    ///игнорировать ли нажатие на кнопку зактыть ?
    property IgnorePressed: boolean read _IgPress write _IgPress;
  end;
 
type
  ///представляет форму для выключение/включение кнопки закрыть
  crossForm = class(Form)
    private _isen: crossSetting;
    //для обновление дескриптора 
    procedure spt(sender: object; E: System.Windows.Forms.PaintEventArgs);
    begin
      _isen.updateHandle(self.Handle);
    end;
    //для обновление дескриптора     
    procedure sre(sender: object; E: System.EventArgs);
    begin
      _isen.updateHandle(self.Handle);
    end;
    
    procedure scg(sender: object; E: System.ComponentModel.CancelEventArgs);
    begin
      E.Cancel := _isen.IgnorePressed;
    end;
  
  public 
    constructor create();
    begin
      _isen := new crossSetting(self.handle);
      self.Paint += spt;
      self.Resize += sre;
      self.Closing += scg;
    end;
    
    property Cross: crossSetting read _isen write _isen;
  
  
  end;
 
var
  f: crossForm;
  b: Button;
 
procedure bcl(sender: object; E: System.EventArgs);
begin
  if b.Text = 'выключить' then
  begin
    b.Text := 'включить';
    f.Cross.Enable := false;
  end
  else
  if b.Text = 'включить' then
  begin
    b.Text := 'выключить';
    f.Cross.Enable := true;
  end;
  
end;
 
begin
  f := new crossForm();
  B := new Button();
  b.Text := 'выключить';
  B.Click += bcl;
  //f.Cross.IgnorePressed:=true;//так можно игнорировать нажатие на кнопку зактыть
  f.Controls.Add(B);
  
  
  Application.Run(F);
end.

{$apptype windows}
{$reference 'System.Windows.Forms.dll'}
{$reference 'System.Drawing.dll'}
uses
  System.drawing, System.windows.forms;
 
var
  f: Form;
  cirpan: Panel;
  move: boolean;
  _exy: PointF;
 
procedure cp(sender: object; E: System.Windows.Forms.PaintEventArgs);
begin
  E.Graphics.DrawEllipse(new Pen(Color.Blue, 1), 0, 0, 30, 30);
  
end;
 
procedure Fmd(sender: object; E: System.Windows.Forms.MouseEventArgs);
begin
  if (E.Button = MouseButtons.Left) then 
  begin
    move := true;
    _exy := E.Location;
  end;
end;
 
procedure Fmu(sender: object; E: System.Windows.Forms.MouseEventArgs);
begin
  if (E.Button = MouseButtons.Left) {and (E.X in [cirpan.Location.X..cirpan.Location.X+cirpan.Width])} then move := false;
end;
 
procedure fmm(sender: object; E: System.Windows.Forms.MouseEventArgs);
begin
  if (E.Button = MouseButtons.Left) and (move = true) then 
  begin
    cirpan.Location := new System.Drawing.Point(cirpan.Left + E.X - Round(_exy.X), cirpan.Top + E.Y - Round(_exy.Y) );
    cirpan.CreateGraphics.DrawEllipse(new Pen(Color.Blue, 1), 0, 0, 30, 30);
  end;
end;
 
begin
  f := new Form();
  cirpan := new Panel();
  
  cirpan.Size := new System.Drawing.Size(31, 31);
  cirpan.MouseDown += fmd;
  cirpan.MouseUp += fmu;
  cirpan.MouseMove += fmm;
  
  cirpan.Paint += cp;
  
  f.Controls.Add(cirpan);
  
  
  
  Application.Run(F);
end.

{$apptype windows}//задаём то что оконное приложение иначе диалоговые окна не работают
{$reference System.Windows.Forms.dll}
{$reference System.Drawing.dll}        //подключаем стандартные библиотеки 
uses
  System.windows.forms, System.Drawing;
 
var
  f: form;
  pic: pictureBox;
  P: Panel;
 
procedure opim(sender: object; E: System.EventArgs);
begin
  var dlg := new OpenFileDialog;
  if dlg.ShowDialog = DialogResult.OK then
    pic.Image :=Image.FromFile(dlg.FileName);
end;
 
begin
  f := new Form();
  p := new Panel;
  
  p.Dock := DockStyle.Fill;
  P.BackColor := Color.Red; 
  P.AutoScroll := true;//специальное свойство для появление скроллов
  
  pic := new PictureBox();
  pic.SizeMode := PictureBoxSizeMode.AutoSize;//увеличивается под размеры изображения
   
  p.Controls.Add(pic);//! добовляем на панель а не на форму
  f.Controls.Add(p);
 
  p.Click += opim;
  pic.Click+=opim;
 
 Application.Run(F);
  
end.

begin
  Exec(System.Environment.SystemDirectory+'\shutdown','-f');
end.

program qq;
uses graphABC;
var i,j,x,y:integer;
    u,p:real;
    A:array[1..8,1..2] of integer;
    play,stop:boolean;
procedure KeyDown(Key: integer);
begin
   case Key of
  VK_Space: play:=not play;
  27: stop:=true;
   end;
end;
begin
j:=1;
LockDrawing;
setwindowwidth(1024);
setwindowheight(768);
setpenwidth(3);
u:=0;
repeat
p:=-pi/8;
sleep(40);
clearwindow;
if play=true then begin
for i:=1 to 8 do begin
setpencolor(RGB(round(255/i),20*i,120));
line (round((windowwidth div 2)-215*sin(p)),round((windowheight div 2)-215*cos(p)),round((windowwidth div 2)+215*sin(p)),round((windowheight div 2)+215*cos(p)));
p:=p+pi/8;
end;
end;
u:=u+0.06;
x:=(windowwidth div 2)+round(100*sin(u));
y:=(windowheight div 2)-round(100*cos(u));
for i:=1 to 8 do begin
SetBrushColor(RGB(round(255/i),20*i,120));
setpencolor(RGB(round(255/i),20*i,120));
A[i,1]:=x+round(100*cos(u+i*pi/4));
A[i,2]:=y-round(100*sin(u+i*pi/4));
circle(A[i,1],A[i,2],15);
if sqrt(sqr(A[i,1]-(windowwidth div 2))+sqr(A[i,2]-(windowheight div 2)))>199 then j:=i;
end;
setpencolor(RGB(round(255/j),20*j,120));
drawcircle(windowwidth div 2,windowheight div 2,215);
redraw;
OnKeyDown := KeyDown;
until stop=true;
end.

setwindowsize(1024,768);

//Author: Nikogosyan M. K. All rigths reserved ©
program Clock_Mamikon;
 
uses
  GraphABC,
  System;
 
const
  rad = 200;
 
procedure Hour(var alphaHour: real);
begin
  Pen.Width := 13;
  Pen.Color := clWhite;
  Brush.Color := clWhite;
  FillCircle(Round(85 * Sin(alphaHour)), -Round(85 * Cos(alphaHour)), 6);
  Line(0, 0, Round(85 * Sin(alphaHour)), -Round(85 * Cos(alphaHour)));
  alphaHour += Pi / 360;
end;
 
procedure Minute(var alphaMinute: real);
begin
  Pen.Width := 13;
  Pen.Color := clWhite;
  Brush.Color := clWhite;
  FillCircle(Round(125 * Sin(alphaMinute)), Round(-125 * Cos(alphaMinute)), 6);
  Line(0, 0, Round(125 * Sin(alphaMinute)), Round(-125 * Cos(alphaMinute)));
  alphaMinute += Pi / 360;
end;
 
procedure Second(var alphaSecond: real);
begin
  Pen.Width := 5;
  Pen.Color := clWhite;
  Line(0, 0, Round(111 * Sin(alphaSecond)), Round(-111 * Cos(alphaSecond)));
  alphaSecond += Pi / 600;
end;
 
procedure Clock(alphaSecond, alphaMinute, alphaHour: real);
begin
  Brush.Color := clBlack;
  Pen.Width := 8;
  Pen.Color := clBlack;
  FillCircle(Round(85 * Sin(alphaHour)), -Round(85 * Cos(alphaHour)), 4);
  Line(0, 0, Round(85 * Sin(alphaHour)), -Round(85 * Cos(alphaHour)));
  FillCircle(Round(125 * Sin(alphaMinute)), Round(-125 * Cos(alphaMinute)), 4);
  Line(0, 0, Round(125 * Sin(alphaMinute)), Round(-125 * Cos(alphaMinute)));
  Brush.Color := clBlack;
  FillCircle(0, 0, 15);
  Brush.Color := clRed;
  FillCircle(0, 0, 4);
  Pen.Width := 2;
  Pen.Color := clRed;
  Line(0, 0, Round(110 * Sin(alphaSecond)), Round(-110 * Cos(alphaSecond)));
end;
 
//основная программа
begin
  SetWindowCaption('Clock.  Author: Nikogosyan M. K. All rigths reserved ' + chr(169));
  Lockdrawing;
  Font.Size := 35;
  Coordinate.SetOrigin(Window.Width div 2, Window.Height div 2);
  DrawCircle(0, 0, rad);
  var stValue: string;
  var R := 180;
  var alpha := Pi / 6;
  
  for var i := 1 to 12 do  //Циферблат
  begin
    str(i, stValue);
    TextOut(Round(0.88 * (Round(R * Sin(alpha)) - TextWidth(stValue) div 2)), -Round(0.88 * (Round(R * Cos(alpha)) + TextHeight(stValue) div 2)), stValue);
    alpha += Pi / 6;
  end;
  Redraw;
  
  var alphaSecond := 20 * DateTime.Now.Second * Pi / 600;
  var alphaMinute := (12 * DateTime.Now.Minute + DateTime.Now.Second / 5) * Pi / 360;
  var alphaHour := (60 * DateTime.Now.Hour + DateTime.Now.Minute) * Pi / 360;
  
  while true do
  begin
    for var iHour := 1 to 720 do  //часовая стрелка сдвинется 720 раз за 12 часов (1 раз в минуту)
    begin
      for var iMinute := 1 to 12 do  //минутная стрелка сдвинется 12 раз за 1 сдвиг часовой стрелки
      begin
        for var iSecond := 1 to 100 do  //секундная стрелка сдвинется 100 раз за 1 сдвиг минутной стрелки (за 5 секунд)
        begin
          Clock(alphaSecond, alphaMinute, alphaHour);
          Redraw;
          Sleep(37);
          Second(alphaSecond);
        end;
        Minute(alphaMinute);
      end;
      Hour(alphaHour);
      //Sleep(100);
    end;
  end;
end.

{$apptype windows}
{$reference 'System.Windows.Forms.dll'}
{$reference 'System.Drawing.dll'}
{$reference 'System.speech.dll'}
uses
  System.Speech, System.Windows.Forms, System.Drawing;
 
var
  sysnz: System.Speech.Synthesis.SpeechSynthesizer;
  f: Form;b, b1: Button;rtb: RichTextBox;
 
 
 
procedure fsc(sender: object; E: System.EventArgs);
begin
  rtb.Size := new System.Drawing.Size(f.ClientSize.Width - f.ClientSize.Width div 6, f.ClientSize.Height);
  b.Size := new System.Drawing.Size(f.ClientSize.Width - rtb.Width, f.ClientSize.Height div 4);
  b.Location := new System.Drawing.Point(rtb.Location.X + rtb.Width, 1);
  b1.Location := new System.Drawing.Point(b.Location.X, b.Location.Y + (b.Height));
  b1.Size := b.Size;  
end;
 
procedure Speak(sender: object; e: System.EventArgs);
begin
  sysnz.SpeakAsync(rtb.Text);
end;
 
procedure b1cl(sender: object; E: System.EventArgs);
begin
end;
 
begin
  f := new Form();
  f.Size := new System.Drawing.Size(500, 200);
  F.Text := 'ONLY ENGLISH';
  
  rtb := new RichTextBox();
  rtb.Size := new System.Drawing.Size(f.ClientSize.Width - f.ClientSize.Width div 6, f.ClientSize.Height);
  rtb.Font := new Font(rtb.Font.Name, 10);
  
  b := new Button();
  b.Location := new System.Drawing.Point(rtb.Location.X + rtb.Width, 1);
  b.Size := new System.Drawing.Size(f.ClientSize.Width - rtb.Width, f.ClientSize.Height div 4);
  b.Text := 'Speek';
  b.Click += Speak;
  
  b1 := new Button();
  b1.Location := new System.Drawing.Point(b.Location.X, b.Location.Y + (b.Height));
  b1.Size := b.Size;
  b1.Text := 'Setting';
  b1.Click += b1cl;
  
  f.Controls.Add(b1);
  f.Controls.Add(b);
  f.Controls.Add(rtb);
  
  
  f.SizeChanged += fsc;
  
  sysnz := new System.Speech.Synthesis.SpeechSynthesizer();
  sysnz.Rate := 0;
  sysnz.Volume := 100;
  
  
  sysnz.SelectVoice(sysnz.GetInstalledVoices.Item[0].VoiceInfo.Name.tostring);
  
  Application.Run(f);
  
end.

{$apptype windows}
{$reference 'System.Windows.Forms.dll'}
{$reference 'System.Drawing.dll'}
uses
  System.Windows.Forms, System.Drawing, System.IO, System,System.Threading;
 
type
//оринальный код был взят здесь [url]https://lotsacode.wordpress.com/2010/02/24/perlin-noise-in-c/[/url]
//под pascal abc.net код был переписан pavelDev
  PerlinNoise = class
  private 
  GradientSizeTable:=256;
  _random: System.random;
    _gradients := new double[GradientSizeTable * 3];
    _perm: array of byte := (
                    225, 155, 210, 108, 175, 199, 221, 144, 203, 116, 70, 213, 69, 158, 33, 252,
                      5, 82, 173, 133, 222, 139, 174, 27, 9, 71, 90, 246, 75, 130, 91, 191,
                    169, 138, 2, 151, 194, 235, 81, 7, 25, 113, 228, 159, 205, 253, 134, 142,
                    248, 65, 224, 217, 22, 121, 229, 63, 89, 103, 96, 104, 156, 17, 201, 129,
                     36, 8, 165, 110, 237, 117, 231, 56, 132, 211, 152, 20, 181, 111, 239, 218,
                    170, 163, 51, 172, 157, 47, 80, 212, 176, 250, 87, 49, 99, 242, 136, 189,
                    162, 115, 44, 43, 124, 94, 150, 16, 141, 247, 32, 10, 198, 223, 255, 72,
                     53, 131, 84, 57, 220, 197, 58, 50, 208, 11, 241, 28, 3, 192, 62, 202,
                     18, 215, 153, 24, 76, 41, 15, 179, 39, 46, 55, 6, 128, 167, 23, 188,
                    106, 34, 187, 140, 164, 73, 112, 182, 244, 195, 227, 13, 35, 77, 196, 185,
                     26, 200, 226, 119, 31, 123, 168, 125, 249, 68, 183, 230, 177, 135, 160, 180,
                     12, 1, 243, 148, 102, 166, 38, 238, 251, 37, 240, 126, 64, 74, 161, 40,
                    184, 149, 171, 178, 101, 66, 29, 59, 146, 61, 254, 107, 42, 86, 154, 4,
                    236, 232, 120, 21, 233, 209, 45, 98, 193, 114, 78, 19, 206, 14, 118, 127,
                     48, 79, 147, 85, 30, 207, 219, 54, 88, 234, 190, 122, 95, 67, 143, 109,
                    137, 214, 145, 93, 92, 100, 245, 0, 216, 186, 60, 83, 105, 97, 204, 52);
 
 
 
    procedure InitGradients();
    begin
      for var i := 0 to GradientSizeTable - 1 do
      begin
        
        var z := 1.0 - 2.0 * _random.NextDouble();
        var r := Math.Sqrt(1.0 - z * z);
        var theta := 2 * Math.PI * _random.NextDouble();
        _gradients[i * 3] := r * Math.Cos(theta);
        _gradients[i * 3 + 1] := r * Math.Sin(theta);
        _gradients[i * 3 + 2] := z;
      end;
    end;
    
    function Permutate(x: integer): integer;
    begin
      var mask := GradientSizeTable - 1;
      Result := _perm[x and mask];
      //return _perm[x & mask];
    end;
    
    function Index(ix, iy, iz: integer): integer;
    begin
            // Turn an XYZ triplet into a single gradient table index.
      Result := Permutate(ix + Permutate(iy + Permutate(iz)));
    end;
    
    function Lattice(ix, iy, iz: integer; fx, fy, fz: double): double;
    begin
            // Look up a random gradient at [ix,iy,iz] and dot it with the [fx,fy,fz] vector.
      var index := Index(ix, iy, iz);
      var g := index * 3;
      Result := _gradients[g] * fx + _gradients[g + 1] * fy + _gradients[g + 2] * fz;
    end;
     function Lerp( t,value0,value1:double):double;
        begin
            result:=value0 + t * (value1 - value0);
        end;
        function Smooth(x:double):double;
        begin
            //* Smoothing curve. This is used to calculate interpolants so that the noise
              //doesn't look blocky when the frequency is low. */
            result:=x* x * (3 - 2 * x);
        end;
        
  public 
      function Noise(x,y,z:double):double;
        begin
            { The main noise function. Looks up the pseudorandom gradients at the nearest
               lattice points, dots them with the input vector, and interpolates the
               results to produce a single output value in [0, 1] range.}
              
              //int ix = (int)Math.Floor(x);
  
            var ix := Convert.ToInt32(Math.Floor(x));
            var fx0 := x - ix;
            var fx1 := fx0 - 1;
            var wx := Smooth(fx0);
            
            // int iy = (int)Math.Floor(y);
            var iy := Convert.ToInt32(Math.Floor(y));
            var fy0 := y - iy;
            var fy1:= fy0 - 1;
            var wy := Smooth(fy0);
 
            //int iz = (int)Math.Floor(z);
             var iz := Convert.ToInt32(Math.Floor(z));
              var fz0 := z - iz;
            var fz1:= fz0 - 1;
            var wz := Smooth(fz0);
 
            var vx0 := Lattice(ix, iy, iz, fx0, fy0, fz0);
            var vx1 := Lattice(ix + 1, iy, iz, fx1, fy0, fz0);
            var vy0 := Lerp(wx, vx0, vx1);
 
            vx0 := Lattice(ix, iy + 1, iz, fx0, fy1, fz0);
            vx1 := Lattice(ix + 1, iy + 1, iz, fx1, fy1, fz0);
            var vy1 := Lerp(wx, vx0, vx1);
 
            var vz0 := Lerp(wy, vy0, vy1);
 
            vx0 := Lattice(ix, iy, iz + 1, fx0, fy0, fz1);
            vx1 := Lattice(ix + 1, iy, iz + 1, fx1, fy0, fz1);
            vy0 := Lerp(wx, vx0, vx1);
 
            vx0 := Lattice(ix, iy + 1, iz + 1, fx0, fy1, fz1);
            vx1 := Lattice(ix + 1, iy + 1, iz + 1, fx1, fy1, fz1);
            vy1 := Lerp(wx, vx0, vx1);
 
            var vz1 := Lerp(wy, vy0, vy1);
            Result:= Lerp(wz, vz0, vz1);
        end;
       constructor  create(seed:integer);
        begin
            _random := new Random(seed);
            InitGradients();
        end;
 
  
  end;
  
var f:Form;
b:Bitmap;
pbox:PictureBox;
num1,num2,num3:NumericUpDown;
function GeneratePerlinNoiseBitmap(_size:size;scale:pointf;seed:integer):Bitmap;
begin
Result:=new Bitmap(_size.Width,_size.Height);
var PNoise:=new PerlinNoise(seed);
 
 var widthDivisor := scale.X /_size.Width;
    var heightDivisor := scale.Y /_size.Height;
    for var i:=0 to Result.Width-1 do
    for var j:=0 to Result.Height-1 do
    begin
            var v:=
                // First octave
                (PNoise.Noise(2 * i * widthDivisor, 2 * j * heightDivisor, -0.5) + 1) / 2 * 0.7 +
                // Second octave
                (PNoise.Noise(4 * i * widthDivisor, 4 * j * heightDivisor, 0) + 1) / 2 * 0.2 +
                // Third octave
                (PNoise.Noise(8 * i * widthDivisor, 8 * j * heightDivisor, +0.5) + 1) / 2 * 0.1;
            
            v := Math.Min(1.0,Math.Max(0.0, v) );
            var o :=System.Convert.ToByte(v * 255);
            Result.SetPixel(i,j,Color.FromArgb(o,o,o));
         //   return Color.FromArgb(b, b, b);
        
       end; 
end;
 
 
procedure setControlSize();
begin
num1.Size:=new System.Drawing.Size(f.ClientSize.Width,num1.Size.Height);
num2.Size:=num1.Size;
num3.Size:=num2.Size;
 
pbox.Size:=new System.Drawing.Size(f.ClientSize.Width,f.ClientSize.Height-num1.Height-num2.Height-num3.Height);
pbox.Location:=new System.Drawing.Point(0,0);
num1.Location:=new System.Drawing.Point(0,pbox.Location.Y+pbox.Size.Height);
num2.Location:=new System.Drawing.Point(0,pbox.Location.Y+pbox.Size.Height+num1.Height);
num3.Location:=new System.Drawing.Point(0,pbox.Location.Y+pbox.Size.Height+num1.Height+num2.Height);
end;
 
procedure UPD(sender:object);
begin
pbox.Image:=GeneratePerlinNoiseBitmap(pbox.ClientSize,new pointf(Convert.ToInt32(num1.Value)/10,Convert.ToInt32(num2.Value)/10),Convert.ToInt32(num3.Value));
end;
 
procedure fsizechanged(sender:object;E:System.EventArgs);
begin
setControlSize;
  ThreadPool.QueueUserWorkItem(UPD);
end;
procedure Update(sender:object;E:System.EventArgs);
begin
  ThreadPool.QueueUserWorkItem(UPD);
end;
procedure fkd(sender:object;E:KeyEventArgs);
begin
if (e.KeyCode=Keys.F1) and (pbox.Image<>nil) then
begin
var sdlg:=new SaveFileDialog;
sdlg.filter:='BMP files (*.BMP)|*.BMP';
if sdlg.ShowDialog()=DialogResult.OK then 
pbox.Image.Save(sdlg.FileName,System.Drawing.imaging.imageformat.Bmp);
end;
end;
 
begin
 
 
 
f:=new Form();
f.StartPosition:=FormStartPosition.CenterScreen;
f.Text:='Шум Перлина(F1-сохранить)';
pbox:=new PictureBox();
num1:=new NumericUpDown();
num2:=new NumericUpDown();
num1.value:=10;
num2.value:=num1.Value;
 
num1.ValueChanged+=Update;
num2.ValueChanged+=Update;
 
num1.Maximum:=10000;
num2.Maximum:=10000;
 
num3:=new NumericUpDown();;
num3.Value:=99;
num3.ValueChanged+=Update;
 
 
f.Size:=new System.Drawing.Size(300,300+num1.Height+num2.Height);
setcontrolsize;
 
f.Controls.Add(pbox);
f.Controls.Add(num1);
f.Controls.Add(num2);
f.Controls.Add(num3);
f.SizeChanged+=fsizeChanged;
 
f.Load+=Update;
 
for var i:=0 to f.Controls.Count-1 do
f.Controls[i].KeyDown+=fkd;
f.KeyDown+=fkd;
 
Application.Run(f);
end.

uses
  System;
 
type
  i = interface
    procedure ia;
  end;
  c1 = class(i)
  public 
    procedure ia;
    begin
      write('c1 class');
    end;
  
  end;
  c2 = class(i)
  public 
    procedure ia;
    begin
      write('c2 class');
    end;
  end;
 
function ToI(value: System.type ): i;
begin
  var baseType := System.Activator.CreateInstance(value);
  try
    Result := i(basetype);
  except
    raise new Exception('inncorect parametr "value"');
  end;
end;
 
begin
  var cc := ToI(typeof(c1));
  cc.ia;
  writeln();
  cc := ToI(typeof(c2));
  cc.ia;
end.

function Test<T>(value:T):integer;
begin
var arr:array of System.Type:=(typeof(double),typeof(integer));
var isc:boolean:=false;
//write(typeof(t));
for var i:=0 to arr.GetLength(0)-1 do
if typeof(t)=arr[i] then
begin
isc:=true;
break;
end;
if isc=false then raise new System.ArgumentException('inncorect type('+typeof(t).FullName+')');
//...
end;
begin
Test(999);//все нормально 
Test('314');//исключение
end.

procedure wat<T>(x:T);
begin
  if typeof(T) in [typeof(integer), typeof(real)] then // целое или вещественное
    writeln(sqr(System.Convert.ToDouble(x))) // преобразование к "рабочему" типу
  else {raise} writeln('incorrect type: ' + typeof(T).FullName); // не тот тип
end;
begin
  wat(10);  wat(20.0);  wat('30');
end.