Discussion :

[Roland Chastain]

Bonjour !

Voici une suite de petits exemples dans lesquels j'ai essayé de faire le tour des types de données et des fonctions de FlashPascal (sans l'unité Flash8).

Array1.fpr
Binaire1.fpr
Booleen1.fpr
Char1.fpr
Class1.fpr
Class2.fpr
Nombres1.fpr
Record1.fpr
Set1.fpr
Set2.fpr
Set3.fpr
Set4.fpr
Set5.fpr
SortieTexte.fpr
String1.fpr
TableauChaines1.fpr

Soit dit en passant, ce serait bien d'avoir un manuel, même qui tienne sur une page comme celui de Flash 0.8, avec la liste des types, des opérateurs, des fonctions...

[Archimède]

Merci pour ton travail, je n'ai pas encore regardé mais c'est toujours utile

anthony

[Paul TOTH]

oui c'est bien sympathique tout ça et ça permet de tester rapidement le code.

je remarque aussi qu'il manque la possibilité de déclarer un array[TJour] of string...va falloir que je prévoie ça

[Roland Chastain]

Merci pour vos encouragements.

je remarque aussi qu'il manque la possibilité de déclarer un array[TJour] of string...va falloir que je prévoie ça

C'est vrai que ce serait joli. Une autre chose à laquelle j'ai pensé, c'est la possibilité de déclarer des constantes dans des procédures.

En attendant, voici un nouvel exercice sur le type chaîne (mais avec Flash8 cette fois).

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
 
program Accents;
 
uses Flash8;
 
{$FRAME_WIDTH 320}
{$FRAME_HEIGHT 200}
{$BACKGROUND 0}
 
////////////////////////////////////////////////////////////////////////////////
const
  LARGEUR = 320;
  HAUTEUR = 200;
  VER = 'Compilateur FlashPascal 2 v13.04.29'#13;
 
var
  t: TextField;
  f: TextFormat;
  s: String;
////////////////////////////////////////////////////////////////////////////////
 
const
  AvecAccents = "ÀÁÂÃÄÅàáâãäåÒÓÔÕÖØòóôõöøÈÉÊËèéêëÇçÌÍÎÏìíîïÙÚÛÜùúûüÿÑñ";
  SansAccents = 'AAAAAAaaaaaaOOOOOOooooooEEEEeeeeCcIIIIiiiiUUUUuuuuyNn';
 
function EnleveAccents(aChaine: string): string;
var
  i, j: Integer;
begin
  Result := '';
  for i := 1 to Length(aChaine) do
  begin
    j := Pos(aChaine[i], AvecAccents);
    if j > 0 then
      Result := Result + SansAccents[j]
    else
      Result := Result + aChaine[i];
  end;
end;
 
begin
////////////////////////////////////////////////////////////////////////////////
  f := TextFormat.Create('Tahoma', 16);
  f.color := clWhite;
  f.leftMargin := 5;
  t := TextField.Create(_root, 't', 0, 0, 0, LARGEUR, HAUTEUR);
  t.SetNewTextFormat(f);
////////////////////////////////////////////////////////////////////////////////
 
  s := EnleveAccents("aàeéè");
 
////////////////////////////////////////////////////////////////////////////////
  t.text := VER + s;
  f.size := 12;
  f.color := clLime;
  t.SetTextFormat(0, Length(VER)-1, f);
////////////////////////////////////////////////////////////////////////////////
end.

De ne pas pouvoir écrire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

chaine[i] = 'a';

ça manque un peu (même si ça n'empêche pas de faire ce qu'on veut d'une autre façon).

[Paul TOTH]

c'est pas faux, par contre ça va être une méchante rustine car les chaines de ActionScript ne sont pas modifiables...donc s[i] := 'a' sera compilé comme s := copy(s, 1, i - 1) + 'a' + copy(s, i + 1 , Length(s) - i) tout un programme

[Roland Chastain]

ça va être une méchante rustine car les chaines de ActionScript ne sont pas modifiables...

D'accord, je vois maintenant.

On peut toujours utiliser des tableaux de caractères, non ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
program ArrayOfChar1;
 
uses Flash8;
 
{$FRAME_WIDTH 320}
{$FRAME_HEIGHT 200}
{$BACKGROUND 0}
 
////////////////////////////////////////////////////////////////////////////////
const
  LARGEUR = 320;
  HAUTEUR = 200;
  VER = 'Compilateur FlashPascal 2 v13.04.29'#13;
 
var
  t: TextField;
  f: TextFormat;
  s: string;
////////////////////////////////////////////////////////////////////////////////
 
type
  shortString = array[0..255]of char;
 
function StrToShort(aString: string): shortString;
var
  i, l: integer;
begin
  l := Length(aString) mod 256;
  Result[0] := Chr(l);
  for i := 1 to l do
    Result[i] := aString[i];
end;
 
function ShortToStr(aShort: shortString): string;
var i: integer;
begin
  Result := '';
  for i := 1 to Ord(aShort[0]) do
    Result := result + aShort[i];
end;
 
begin
////////////////////////////////////////////////////////////////////////////////
  f := TextFormat.Create('Tahoma', 16);
  f.color := clWhite;
  f.leftMargin := 5;
  t := TextField.Create(_root, 't', 0, 0, 0, LARGEUR, HAUTEUR);
  t.SetNewTextFormat(f);
////////////////////////////////////////////////////////////////////////////////
 
  s := ShortToStr( StrToShort( 'ABCD' ) );
 
////////////////////////////////////////////////////////////////////////////////
  t.text := VER + s;
  f.size := 12;
  f.color := clLime;
  t.SetTextFormat(0, Length(VER)-1, f);
////////////////////////////////////////////////////////////////////////////////
end.