[PASCAL]

Résolu
Bonjour,

ma question est simple..: comment créer ses propres librairies en pascal??

merci
Configuration: Windows XP
Firefox 2.0.0.1

8 réponses

  1. Merci, mais il faut dire que tout le monde n'a pas toujours le réflexe de faire la recherche en anglais, même si ça paraît logique ^^

    PS : désolé pour la réponse tardive
    0
    1. je vais essayer ce qu'à dit Char Snipeur.
      Le compilateur est Dev-Pascal...
      0
      1. Salut

        Faudrait que tu précises ton compilateur. Avec Delphi, c'est simplement un projet donc extension dpr. Rien à rajouter, ça compile direct.
        0
        1. Contributeur
          Salut.
          so tu parles des uses qu'on met en début de programme, il faut mettre le mot clé 'unit ' à la place de program.
          L'extension il me semble que c'est tpu.
          Ensuite, il y avait d'autres histoire de declaration et d'implementation, mais je ne me rappel plus exactement.
          regarde comment est fait les autre uses (crt, dos...)
          0
          1. merci...mais le fichier(librairie) doit avoir quelle extension?
            le compilateur n'a pas l'air de détecter quelque chose..
            "6 / 6 test.pas
            Error: Identifier not found TRUC

            6 / 11 test.pas
            Error: Illegal expression

            10 test.pas
            Fatal: There were 2 errors compiling module, stopping
            "

            0
            1. Extrait de la doc Delphi : L'exemple suivant propose une bibliothèque qui exporte deux fonctions, Min et Max.

              library MinMax;
              
              function Min(X, Y: Integer): Integer; stdcall;
              begin
                if X < Y then Min := X else Min := Y;
              end;
              
              function Max(X, Y: Integer): Integer; stdcall;
              begin
                if X > Y then Max := X else Max := Y;
              end;
              
              exports
                Min,
                Max;
              
              begin
              end.
              
              0