Problème avec Helper : erreur "Illegal qualifier"

Version imprimable

12/03/2020, 09h45
jenramac

Problème avec Helper : erreur "Illegal qualifier"
Bonjour,

Je suis en train de me remettre au pascal avec Lazarus et le livre Object Pascal Handbook, j'en suis au code qui utilise les helpers et j'essaie donc le code suivant :
Code:

1 2 3 4 5 6 7 8 9 10 11 Program Project1; {$modeswitch typehelpers} var N:Integer; Begin N:=10; WriteLn(N.ToString); readln; End.
Et j'obtiens le message d'erreur suivant à la compilation:

Citation:

Compilation du projet - Cible : C:\Users\JENRAM~1\AppData\Local\Temp\project1.exe : Code de sortie 1 - Erreurs : 1
project1.lpr(9,13) Error: Illegal qualifier

J'ai été lire le post suivant :

unite-va-simplifier-vie-typeshelpers

Que voyez-vous d'incorrect? Je me doutais au départ qu'il y aurait un problème vu que lorsque je tapais le point l'éditeur ne me proposait aucune complétion.

Merci d'avance.
12/03/2020, 09h53
jenramac

Rebonjour,

J'ai vu mon erreur : j'ai oublié d'utilisé sysUtils!

:fessee:
12/03/2020, 10h11
ChPr

Citation:

Envoyé par jenramac

...

Code:

WriteLn(N.ToString);

...

Je ne vois absolument pas l'avantage d'utiliser les "helpers" dans ce cas car, dans l'unité "SysUtils" la fonction "ToString" fait appel à la fonction "IntToStr".

L'exécution sera plus rapide en écrivant directement :

Code:

Writeln(IntToStr(N));

Ce qui qui évite un appel supplémentaire de fonction.

Cordialement.

Pierre
12/03/2020, 10h32
jenramac

Citation:

Envoyé par ChPr

Je ne vois absolument pas l'avantage d'utiliser les "helpers" dans ce cas car, dans l'unité "SysUtils" la fonction "ToString" fait appel à la fonction "IntToStr".

L'exécution sera plus rapide en écrivant directement :

Code:

Writeln(IntToStr(N));

Ce qui qui évite un appel supplémentaire de fonction.

Cordialement.

Pierre

Bonjour,

Ce n'est pas pour utilisation mais simplement pour ajouter à ma besace et effectivement cela est moins efficace pour ce cas.

Bonne journée.
12/03/2020, 11h09
ChPr

Citation:

Envoyé par jenramac

Bonjour,

Ce n'est pas pour utilisation mais simplement pour ajouter à ma besace et effectivement cela est moins efficace pour ce cas.

Bonne journée.

C'est une bonne pratique. Pour autant, il serait intéressant d'analyser l'utilité d'un "helper" à chaque fois qu'on veut l'utiliser. Je suis surpris de voir intégré à une unité de Lazarus des "helpers" dont le seul but est de renommer une fonction, mais pour cela devoir passer par une fonction supplémentaire !!!

Cordialement.

Pierre
12/03/2020, 11h50
tourlourou

Concernant cet intérêt, un argument qui m'avait été exposé dans la discussion citée résidait dans l'aide apportée par la complétion de code et l'inutilité de retenir un nom de fonction pas toujours évident (compliqué à retenir, ou dont on ne souvient jamais du sens, style ReplaceString, ReplaceStr, StrReplace ou StringReplace, etc.).
12/03/2020, 12h52
Andnotor

Citation:

Envoyé par ChPr

Ce qui qui évite un appel supplémentaire de fonction.

A contrôler sous Lazarus mais sous Delphi ces méthodes sont INLINE, il n'y a pas d'appel supplémentaire.

Citation:

Envoyé par Andnotor

A contrôler sous Lazarus mais sous Delphi ces méthodes sont INLINE, il n'y a pas d'appel supplémentaire.

Bonjour,

Oui, elle est mise inline :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
TIntegerHelper = Type Helper for Integer { for LongInt Type too }
  public
    const
      MaxValue = 2147483647;
      MinValue = -2147483648;
  Public
    Class Function Size: Integer; inline; static;
    Class Function ToString(const AValue: Integer): string; overload; inline; static;
    Class Function Parse(const AString: string): Integer; inline; static;
    Class Function TryParse(const AString: string; out AValue: Integer): Boolean; inline; static;
  Public
    Function ToBoolean: Boolean; inline;
    Function ToDouble: Double; inline;
    Function ToExtended: Extended; inline;
    Function ToHexString(const AMinDigits: Integer): string; overload; inline;
    Function ToHexString: string; overload; inline;
    Function ToSingle: Single; inline;
    Function ToString: string; overload; inline;
  end;

Comme les autres d'ailleurs.

12/03/2020, 15h25
ChPr

Citation:

Envoyé par Andnotor

A contrôler sous Lazarus mais sous Delphi ces méthodes sont INLINE, il n'y a pas d'appel supplémentaire.

C'est effectivement le cas avec Lazarus. Donc, pas d'influence sur le temps d'exécution.

Voir quand même cet article.

Cordialement.

Pierre
12/03/2020, 15h52
BeanzMaster

Citation:

Envoyé par ChPr

C'est une bonne pratique. Pour autant, il serait intéressant d'analyser l'utilité d'un "helper" à chaque fois qu'on veut l'utiliser. Je suis surpris de voir intégré à une unité de Lazarus des "helpers" dont le seul but est de renommer une fonction, mais pour cela devoir passer par une fonction supplémentaire !!!

Cordialement.

Pierre

Salut pour ma par maintenant j'ai du mal à me séparer de mon unité donnée en lien (que j'ai fait évoluer depuis). Je gagne un temps fou lors du codage (au lieu de me taper des inttostr et autre strto...) tu tapes le point et To et hop plus qu'a appuyer sur entrée. :P
En plus l'avantage c'est la complétion du code, si tu ne te souvient plus du nom d'une fonction et dans quelle unité. Et comme le dis AndNotOr avec la déclaration INLINE c'est du tout cuit. Et même si si c'est un sous appel, la perte de performance sur ce genre de manipulation est minime voir nulle, le compilo fait plutôt bien son travail. :P

A+

Jérôme