Discussion :

[Algoplus]

Bonjour,

Je galère depuis un moment sur un problème de syntaxe avec ce code. Il fonctionnait bien jusqu'à ce que je rajoute un if then else à l'intérieur d'un autre et là je me fais jeter par le compilateur au niveau du dernier Else parce qu'il faudrait ";" ou pas (suivant les essais multiples d'écriture).

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
begin //début de la procédure
  if (TE1='') xor (TE2='') then
    begin
      If TE1='' Then
        begin
          TB2:=strtofloat(te2);
          Edit1.text := FormatFloat('0.000', TB2 / TCoeff[Indice]);
        end
      Else
        begin
          if (Edit3.text<>'') and (Edit4.text<>'') then
            TB1:= strtofloat(TE1) * strtoint(Edit3.Text)/strtoint(Edit4.Text)
          else
            TB1:=strtofloat(TE1) ;
 
          Edit2.text := FormatFloat('0.000', TB1 * TCoeff[Indice]) ;
        end
  Else
    showmessage ('les 2 fenêtres ne peuvent être vides ou pleines ensembles');
 
end; //fin de la procédure

Je n'ai pas réussi à trouver ni la solution ni de un tuto expliquant la règle d'utilisation des ";" et ou des "End" dans cette situation.

Si vous connaissez un site, je vous remercie d'avance

[Jipété]

Il manque un end avant le dernier else.

[Algoplus]

ah oui, ça compile maintenant.


ce qui me déroute, c'est l'absence de End (if) en clôture du If ( enfin... pas que ça ....)

merci beaucoup

[Jipété]

ce qui me déroute, c'est l'absence de End (if) en clôture du If ( enfin... pas que ça ....)

C'est du Pascal, pas du C.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
if condition then instruction1 else instruction2;
//
if condition then
begin
  instruction1;
  instruction2;
end else
begin
  instruction3;
  instruction4;
end;

T'oublieras pas de cliquer sur en bas de page, si tu repasses par ici.

[Algoplus]

Oui, oui j'avais bien compris que ce n'était pas du C, mais ça reste un langage à apprivoiser.

Ce que je retiens:

Une instruction If then else ne se termine jamais par un end propre.
s'il y a plusieurs instructions dans If ou else : => encadrement de ces instruction par begin / end sans ";"
la marque de fin de if le plus externe est simplement le ";" final de l'instruction unique ou après le End du bloc d'instructions.

Code :

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

1
2
3
4
5
6
7
8
if condition then
begin
  instruction1;
  instruction2;
end else
  instruction3;

  instruction4;

On exécute les instruction du if ou l'instruction du else; et dans tous les cas l'instruction4.

Merci encore

[pprem]

bonjour

petite astuce pour ne pas te prendre le choux : mets des begin end avant d'écrire le code à l'intérieur, comme ça t'es certain de ne rien oublier

si tu es sur une version récente il est même probable que l'EDI t'ajoute le END tout seul

et pareil, sur les versions récentes tu peux utiliser Ctrl+D qui réinvente le source sur lequel tu travailles, ça permet de visualiser ce genre d'oublis (mais pas de Ctrl+Z possible, donc faut s'adapter).

[Algoplus]

Bonjour et merci pour ces astuces.

Malheureusement Delphi 7 édition personnelle ne propose pas ces facilités ( ou bien je n'ai pas su ...)

[ALWEBER]

...
petite astuce pour ne pas te prendre le choux : mets des begin end avant d'écrire le code à l'intérieur, comme ça t'es certain de ne rien oublier
..

Le plus peut être l'ennemi du bien. Pas tout à fait d'accord avec cette façon de faire qui démontrait souvent l'inexpérience du programmeur ou la confusion sur la manière de programmer (paradigme) avec d'autres langages ou bien l'utilisation d'automates de conversion.

[Charly910]

Bonjour,

Tu peux télécharger la dernière version de Delphi ici, gratuite sous certaines conditions :

D10.3 Community Edition

L'IDE s'est améliorée, d'autres plateformes que Win32 sont prises en charge. Seul point noir par rapport à D7, l'aide sur F1 est beaucoup moins efficace (ou bien je n'ai pas trouvé encore comment m'en servir ).

A+
Charly

[Algoplus]

Bonjour

l'intérêt de changer de version aurait été, pour moi, de bénéficier de l'aide par F1.

windows 10 à supprimer la gestion des fichiers d'aide HLP. J'ai dû récupérer "winhlp32.exe" de Win XP pour faire "tourner" l'aide .
Pas trouver de solution pour faire fonctionner F1.

[Charly910]

Bonjour,

pour faire fonctionner l'aide Hlp avec F1 sous D7 et W10 regarde ici

La manip est à refaire à chaque grosse mise à jour de Windows.

Sinon F1 fonctionne sur D10.3 Community, mais moins bien je trouve (parfois il n'aboutit pas alors que sous D7 on a toujours la bonne info avec propriétés, méthodes et exemples) .

c'est quand même dommage de ne pas tester cette nouvelle version (l'amateur que je suis pratique les 2)

A+
Charly

[Algoplus]

merci pour le lien

je vais tenter.

Pour le moment une seule version me suffit largement. Je verrai quand je maitriserai (c'est pas pour la semaine prochaine !)

A+

[blonde]

bonjour

petite astuce pour ne pas te prendre le choux : mets des begin end avant d'écrire le code à l'intérieur, comme ça t'es certain de ne rien oublier

si tu es sur une version récente il est même probable que l'EDI t'ajoute le END tout seul

et pareil, sur les versions récentes tu peux utiliser Ctrl+D qui réinvente le source sur lequel tu travailles, ça permet de visualiser ce genre d'oublis (mais pas de Ctrl+Z possible, donc faut s'adapter).

Tout pareil, je rajouterais que je fais la même chose avec les parenthèses, les quotes …