';'attendu(e) mais '.' trouvé(e). (débutant)

Version imprimable

Bonjour à tous.

Je suis en train de suive un tutoriel sur delphi et voilà les erreurs que je me prends lorsque j'essaie de compiler:

';'attendu(e) mais '.' trouvé(e). *
Identificateur non déclaré: 'SaisieCylindree'. **
')' attendu(e) mais identificateur 'Text' trouvé(e). ***

voilà maintenant tout le code que j'ai tapé: (je mes les * pour indiquer les lignes où se trouvent les erreurs)
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 procedure TTaxe_auto.Calcul_TaxeAutoClick(Sender: TObject); * 42 var Fisc, Cyl : Integer; begin Cyl := StrToInt(SaisieCylindree.Text) div 100; ** *** 47 Fisc := 0; If (BoutonEssence.Checked) and (Cat.Checked) then Fisc := (454 * Cyl) div 10 Else if (BoutonEssence.Checked) and not (Cat.Checked) then Fisc := (639 *Cyl) div 10 Else if (BoutonDiesel.Checked) then Fisc := (1261 * Cyl) div 10; ShowMessage ('Le montant arrondi de la taxe est ' + IntToStr(Fisc) + ' francs par an;'); end; end.
Honte à moi ça n'est qu'un tutoriel mais si quelqu'un peut m'aiguiller et me débloquer ça m'arrangerait bien.

Merci d'avance.

ps: d'autres erreurs que je n'ai pas affichées:

Operateur ou point virgule manquant 47

Identificateur non déclaré: 'BoutonEssence'. 49

'}' attendu(e) mais identificateur 'checked'trouvé(e) 53/51/49

identificateur non déclaré: 'boutonDiesel'. 53

Chaine non terminée 56 /57

Instruction attendu(e) mais fin de fichier trouvé(e) 63

déclaration forward ou external non satisfaite: 'TForm1.Calcul_TaxeAutoClick
27
Ne peut compiler l'unité utilisée 'test2.pas' 9

15/09/2008, 16h40
nostroyo

Pour ta première étoile, il nous faut le reste du code.

De plus je ne suis pas sûr mes les 2 autres erreurs doivent découler de la première.
15/09/2008, 16h42
Aka Guymelef
Bonjour et bienvenue sur les forums de Développez.com :D

A vue de nez comme ça, je dirais l'erreur est que ta procédure n'est pas déclaré au niveau de la classe TTaxe_auto (qui doit être ta fiche j'imagine). Cherche si cette ligne de code existe :
Code:

1 2 3 4 5 6 7 8 interface type TTaxe_auto = class(TForm) //... procedure Calcul_TaxeAutoClick(Sender: TObject); //... end;
Si elle n'y ait pas alors tu dois la rajouter.

à mon avis le reste du code n'en n'est pas la cause. Ca a commencé à bugguer à partir du moment où j'ai ajouté ce qui était après le

Code:

procedure TTaxe_auto.Calcul_TaxeAutoClick(Sender: TObject);

voilà le reste du code:

Code:

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
28
29
30
31
32
33
34
35
36
37
38
39
40
 
unit test2;
 
interface
 
uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;
 
type
  TForm1 = class(TForm)
    TitreAffichage: TLabel;
    Voiture: TLabel;
    Cylindree: TLabel;
    Puissance: TLabel;
    cm3: TLabel;
    SaisieVoiture: TEdit;
    SaisieCylindree: TEdit;
    SaisiePuissance: TEdit;
    Bouton_Cv: TRadioButton;
    Bouton_Kw: TRadioButton;
    TypeMoteur: TPanel;
    LabTypeMoteur: TPanel;
    BoutonEssence: TRadioButton;
    BoutonDiesel: TRadioButton;
    Cat: TCheckBox;
    Calcul_TaxeAuto: TButton;
    procedure Calcul_TaxeAutoClick(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.DFM}

par ailleur je n'ai pas listé toutes les erreurs, j'édite mon 1er message.

15/09/2008, 16h58
Aka Guymelef

L'erreur est que ta fiche a pour nom de classe TForm1 alors que dans l'implémentation de sa méthode Calcul_TaxeAutoClick tu indiques qu'elle appartient à la classe TTaxe_auto.

Donc soit tu changes l'appartenance de ta méthode pour TForm1, soit tu renommes ta fiche en TTaxe_auto.
15/09/2008, 17h12
Pov type

Bon en fait le pb que j'ai le voilà:

Je compile, ça ne me passe pas sous la commande projet.

Je recommence tout depuis le début, j'enregistre sur le projet.

Après plus possible de comiler ou d'enregistrer sur le projet, ces 2 options sont grisées, tout ce que je peux faire c'est ouvrir le projet directement que dès que je lance, ça me marque ces message d'erreur.

Je recommence tout et je vous tiens au courant.

PS: merci pour vos réponses rapides.
15/09/2008, 17h24
Pov type

Bon ben j'ai tout recommencé du début et voilà ce qui se passe dès que je mes le code évènement que j'ai montré dans mon 1er post:

http://img146.imageshack.us/img146/1531/compqp1.png
http://img146.imageshack.us/img146/c...png/1/w800.png

Impossible de compiler ni d'enregistrer le projet. Je n'ai pas vraiment pas l'habitude de bosser sur des langages qui compilent.
15/09/2008, 17h32
Pov type

bon en fait le pb ne vient pas du moment où j'entre le code en question mais juste que je ne parviens à compiler et à enregistrer le projet qu'une seule fois après, il se passe ce que je montre dans ma capture d'écran.
15/09/2008, 17h34
Yurck

Tu as un begin de trop
15/09/2008, 17h41
Pov type

possible, mais ça ne vient pas delà, je sis revenu en arrière avant de rajouter le begin en question et ça me fait le même pb: impossible d'enregistrer sur le projet et impossible de compiler.
15/09/2008, 17h48
Pov type

bon j'ai viré le begin en trop mais dès que j'ouvre le projet lui même et que je compile ça me surligne cette ligne:

Cyl := StrToInt(SaisieCylindree.Text) div 100;
15/09/2008, 17h53
Pov type

j'oubliais de préciser, lorsque je compile à partir du projet je reçois un message d'erreur:

erreur de la définition du hook d'exception du débogage.

Si quelqu'un peut m'expliquer ce que c'est...
15/09/2008, 17h57
Pov type

bon finalement c'est résolu.

Juste que ça mettait 3 plombs à compiler on a relancer à nouveau la compilation et ça fonctionne cette fois.

Merci pour votre aide.