Discussion :

[Mejdi_tn]

quel est le role de la fonction ord()

[ShaiLeTroll]

Ord c'est dans un cas particulier l'inverse de Chr ...

[cyreb]

Si tu lis l'aide en ligne de Delphi ...

Renvoie la valeur ordinale d'une expression de type ordinal.

Autrement dit, cela reverra la position dans une liste ordonnée.
Bon, c'est pas plus clair. Un exemple peut être?

Exemple 1
un type énuméré:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
TMonType = (mtInfo1, mtInfo2, mtInfo3);
 
var 
  UnType : TMonType;
begin
 ...
  UnType := mtInfo2;
 
  ...
 
  ShowMessage(IntToStr(Ord(UnType)));

Affichera 1, car Ord(UnType) retourne l'index de la valeur du type (mtInfo2 = 1)

Exemple 2

Peut être plus utile....
Le type 'char' est aussi un type ordinal. Donc Ord('a') te retournera son ordonnancement dans la table ASCII. Son code ASCII quoi.

C'est inverse de 'chr' cité plus haut. Chr(97) retournera 'a'.

Si tu veux afficher un a, tu pourrais écrire : ShowMessage(Chr(Ord('a')));

-

Cyril HEBUTERNE

[guillemouze]

Ord retourne aussi l'entier correspondant a un element d'un enum. Par exemple

Code :

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

Ord(psSolid)

[ShaiLeTroll]

Effectivement, Ord sert surtout pour les Enumérations, je l'utilise pour convertir une valeur Enuméré en chaine

Code :

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

ShowMessage(GetEnumName(TypeInfo(TAnchorKind), Ord(akLeft)));

Il est vrai que l'aide n'est pas clair, mais l'exemple fourni l'est ! on oubli souvent les exemples de l'aide ...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
uses Dialogs;
type
   Colors = (ROUGE,BLEU,VERT);
var
 
  S: string;
 begin
   S := 'BLEU a une valeur ordinale ' + IntToStr(Ord(BLUE)) + #10#10;
   S := S + 'Le code ASCII de "c" est ' + IntToStr(Ord('c')) +  ' décimal';
   MessageDlg(S, mtInformation, [mbOk], 0, mbOK);
 end;