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 :

Signaler un problème sur cette actualité

 
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