Sortie de la version 13.03.16 du compilateur FlashPascal 2

Qui voit apparaître les Variant et les objets dynamiques

Le 18 mars 2013, par Paul TOTH, Expert éminent sénior

Sortie de la version 13.03.16 de FlashPascal 2
Avec, comme nouveautés, l'apparition des Variant et des objets dynamiques

http://flashpascal.execute.re/

Au menu, une correction de bogue :
- la fonction Pos() retourne une position basée sur 1 et non 0.

Deux nouveautés :
- les Variant, qui permettent de jouer plus facilement avec les propriétés des objets ;

- les objets dynamiques, qui permettent de déclarer un objet de façon très compacte ; la déclaration pouvant être utilisée directement en paramètre de fonction au besoin (Matrice, etc).

Ces fonctions ont été peu testées, n'hésitez pas à me remonter des bogues.

Vous avez aimé cette actualité ? Alors partagez-la avec vos amis en cliquant sur les boutons ci-dessous :

program Chaine;

uses
  Flash8;

{$FRAME_WIDTH 420}
{$FRAME_HEIGHT 594}
{$BACKGROUND $F5F5DC}
{Beige}

const
  ch = 'abcdefg';

var
  t: TextField;
  f: TextFormat;
  s: string;  
  
begin
  t := TextField.Create(nil, 't', 0, 10, 10, 400, 574);
  f := TextFormat.Create('Courier', 24);
  t.SetNewTextFormat(f);

  s := ch                     + #13 // abcdefg
     + IntToStr(Length(ch))   + #13 // 7
     + Copy(ch, 1, 3)         + #13 // abc
     + IntToStr(Pos('a', ch)) + #13 // 1 (v13.03.16)
     + 'fin';
     
  t.text := s;
  
  f.color := clBlue;
  t.SetTextFormat(Pos('7', s), Pos('1', s), f); // le 7 reste en noir
end.

program variant1;

{$FRAME_WIDTH 420}
{$FRAME_HEIGHT 594}
{$BACKGROUND $F5F5DC}

uses
  Flash8;

type
  rec = record
          s: string;
          i: integer;
        end;
        
var
  r: rec;
  v: variant;
  t: textField;
  f: textFormat;
  
begin
  t := TextField.Create(nil, 't', 0, 20, 20, 380, 554);
  f := TextFormat.Create('Courier', 24);
  t.SetNewTextFormat(f);
  
  v := [s: 'samedi'; i: 16];
  
  //r := v;
  
  r.s := v.s;
  //r.i := v.i;
  
  t.text := r.s + ' ' + IntToStr(r.i);
end.

type
  obj = class
    x : Integer;
  end;
var
  o: obj;
  i: Integer;
begin
  o := [x : 5]; // initialisation de l'objet
  o.y := 2; // ne compile pas
  o['y'] := 2; // fonctionne !
  i := Integer(o['y']); // NB o['y'] est un Variant

 o := [z : 8]; // fonctionne également...mais o.x est indéfini et o['z'] retourne le variant 8
end;

program matrice02;

{$FRAME_WIDTH 400}
{$FRAME_HEIGHT 400}

uses
  Flash8;

type
  tImage = class(movieClip)
    constructor Create(name: string; x, y: integer);
    procedure Carre(taille: integer);
    procedure Remplissage(couleur: integer);
  end;
{
  tMatrice = class
    matrixType: string;
    x,y,w,h   : double;
    r         : double;
    constructor Create;
  end;
}
constructor tImage.Create(name: string; x, y: integer);
begin
  inherited Create(nil, name, _root.GetNextHighestDepth());
  _x := x;
  _y := y;
end;

procedure tImage.Carre(taille: integer);
begin
  taille := taille div 2;
  MoveTo(-taille, +taille);
  LineTo(-taille, -taille);
  LineTo(+taille, -taille);
  LineTo(+taille, +taille);
  LineTo(-taille, +taille);
end;

var
 {matrice: tMatrice;}
  matrice: variant;
  
procedure tImage.Remplissage(couleur: integer);
begin
  Clear;
  LineStyle(0, couleur);
  BeginGradientFill('radial', [$ffffff,couleur], [100,100], [0,255], matrice);
  Carre(300);
  EndFill;
end;
{
constructor tMatrice.Create;
begin
  matrixType := 'box';
  x := -75;
  y := -75;
  w := 150;
  h := 150;
  r := 0;
end;
}
var
  i: tImage;

begin
 {matrice := tMatrice.Create;}
  matrix := [matrixType: 'box'; x:-75; y:-75; w:150; h:150; r:0];
  i := tImage.Create('', 200, 200);
  i.Remplissage($6600FF); { PersianBlue }
end.

Sortie de la version 13.03.16 du compilateur FlashPascal 2 Qui voit apparaître les Variant et les objets dynamiques

Sortie de la version 13.03.16 du compilateur FlashPascal 2

Qui voit apparaître les Variant et les objets dynamiques