Discussion :

[Booster2ooo]

Bonjour,
j'aimerais isoler EPrivilege de la SysUtils dans un soucis de réduction de la taille de mon executable. J'ai essayé de mettre ceci dans mes "type":

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
  { Exceptions }
  Exception = class(TObject)
  private
    FMessage: string;
    FHelpContext: Integer;
  public
    constructor Create(const Msg: string); //LIGNE 25
    constructor CreateFmt(const Msg: string; const Args: array of const);
    constructor CreateRes(Ident: Integer); overload;
    constructor CreateRes(ResStringRec: PResStringRec); overload;
    constructor CreateResFmt(Ident: Integer; const Args: array of const); overload;
    constructor CreateResFmt(ResStringRec: PResStringRec; const Args: array of const); overload;
    constructor CreateHelp(const Msg: string; AHelpContext: Integer);
    constructor CreateFmtHelp(const Msg: string; const Args: array of const;
      AHelpContext: Integer);
    constructor CreateResHelp(Ident: Integer; AHelpContext: Integer); overload;
    constructor CreateResHelp(ResStringRec: PResStringRec; AHelpContext: Integer); overload;
    constructor CreateResFmtHelp(ResStringRec: PResStringRec; const Args: array of const;
      AHelpContext: Integer); overload;
    constructor CreateResFmtHelp(Ident: Integer; const Args: array of const;
      AHelpContext: Integer); overload;
    property HelpContext: Integer read FHelpContext write FHelpContext;
    property Message: string read FMessage write FMessage;
  end;
  EExternal = class of Exception;
  EPrivilege = class(EExternal); //LIGNE 44

Mais j'ai ces erreurs:

[Error] test.dpr(44): Class type required
[Error] test.dpr(25): Unsatisfied forward or external declaration: 'Exception.Create'
[Error] test.dpr(26): Unsatisfied forward or external declaration: 'Exception.CreateFmt'
[Error] test.dpr(27): Unsatisfied forward or external declaration: 'Exception.CreateRes'
etc.

Quelqu'un pourait-il m'éclairer? J'ai repris la mm structure que dans SysUtils, me disant que ca ferait l'affaire mais on dirait que je me suis trompé.

[sjrd]

Attends, t'es pas en train de me dire que tu veux recopier des parties de SysUtils dans ton programme, en espérant pouvoir réduire la taille de ton exe ?

Si c'est ça, abandonne ta tentative, tu ne peux pas te passer de SysUtils. Tu n'as même pas idée de tous les mécanismes que met en place SysUtils pour te permettre de détecter les erreurs système au moyen d'exceptions !

En plus, toutes les unités, ou presque, de Delphi utilisent SysUtils. Tu ne pourras pas t'en débarrasser.

[Booster2ooo]

Dans mon programme, j'ai deux unités, windows et sysutils. Et sysutils, j'en ai besoin que pour ce EPrivilege, je me disais donc qu'il était p-e possible de l'isoler :p

[sjrd]

De deux choses l'une, soit tu es vraiment bon, et tu sais précisément comment fonctionnent les exceptions. Dans ce cas, consulte le code source de SysUtils, notamment InitExceptions et ErrorHandler.
Tu dois reproduire les parties de ce code qui concernent l'erreur rePrivInstruction.

Soit tu ne sais pas de quoi tu parles - et étant donné qu'on est dans "Débutant", je pencherais pour ceci -, et alors il faut vraiment que tu abandonnes ton idée, parce que ce n'est pas quelque chose à faire à la légère.

[Booster2ooo]

Ok, c'est domage

Merci quand mm