Discussion :

[Gargoyle]

Bonjour tout le monde !!!

Je suis en train de reprendre un programme en Pascal, et n'ayant jamais utilisé ce langage, je suis tombé sur une erreur de compilation et je ne sais pas comment la resoudre.

voilà le code qui me cause du soucis :

Code :

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

1
2
3
4
5
6
7
8
 
unit BaseEvent;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, IniFiles, StrUtils, StdCtrls, ExtCtrls, Math, jvSimpleXML;

et la reponse du compilateur :


Can't find unit MESSAGES

Qelqu'un peut-il m'aider ???

Merci à tous

[Ultima]

Bonjour,
Il est vivement conseillé aux nouveaux de d’abord passer par la page des règles du forum.
Si tu l’avais fais, tu saurais qu’il est préférable, voir obligatoire de mettre une balise code pour les codes sources.

Ton problème est dû au fait que l’unité MESSAGES n’existe pas ou est introuvable.

Si tu es débutant en pascal, je te conseil d’apprendre en n’utilisant aucune unité.
Ou sinon tu te limite seulement à l’unité CRT.

Bonne journée.

[Gargoyle]

Bonjour Ultima,

Merci de m'avoir indiqué les balises, j'essaierai à l'avenir de lire les regles du forum en effet....
Sinon, en ce qui concerne mon probleme, c'est que je n'ai pas le choix. c'est un code source que j'ai recuperé et j'aimerai le compilé pour pouvoir le debugger ensuite...je suis programmeur C++ depuis plus de 6 ans, mais depuis 30 min en ce qui concerne le Pascal

Où puis-je trouver ce "package" ?

[Ultima]

Bonjour,
En pascal les programmes peuvent commencer par, PROGRAM, ou par UNIT,

Les codes qui commencent par PROGRAM sont les Programmes principaux,
ces programmes peuvent faire appel à des unités.

Exemple :

Je craie une unité :

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
Unit MonUnit;
 
Interface (* Déclaration des éléments qui seront utilisable grace à l'appel de l'unité (Publique) *)
  function  maFunc1 : STRING;      // Déclaration d'une fonction
  procedure maProc1; // Déclaration d'une procedure
  function  mafunc2( paramx : CHAR) : BYTE; 
 
  Type Montype = 1..5;              // Déclaration d'un type
 
 
Implementation (* Implémentation des fonction et éléments propre à l'unité (Privé) *)
  function  maFunc1 : STRING;
  begin
    maFunc1:= 'Ceci est le resultat de mafunc1';
  end;  // Fin de maFunc1
 
  procedure maProc1;
  begin
    writeln('maProc1 est lancée');
  end; // Fin de maProc1
 
  function  mafunc2( paramx : CHAR) : BYTE;
  begin
    mafunc2:= ord(paramx);
  end;  // Fin de mafunc2
 
End. //Fin de l'unité

J’utilise mon unité dans un programme :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Program monProg;
 
uses  MonUnit;
 
var a : Montype; // Dans l'unité MonUnit
    c : Char;
 
begin
  write( maFunc1 );
  writeln;
  maProc1;
end.

Visiblement tu essaies de compiler l’unité BaseEvent, Mais tu n’y arrive pas car pour compiler cette unité, il y a besoins de l’unité Messages, et c’est cette unité Messages que tu n’as pas.

bonne journée.

[Juju_41]

Bonjour,

Le programme que vous voulez compiler est écrit pour Delphi.

Quel compilateur utilisez-vous ?

[Ultima]

Bonjour,

Je ne l’ai pas remarqué tout de suite car je ne fait pas du Delphi, mais JuJu a raison, ce programme est fait pour Delphi, je pense donc que vous vous êtes trompé de forum.
Il y a un forum spécial Delphi.

Si vous voulez faire du pascal, vérifier bien les codes que vous télécharger.
En général, Delphi est plus orienté objet que pascal, mais dans le font, on trouve énormément de similitudes.
Salut.