[Débutant] Erreurs de compil

[Olivier]

Bonjour,

Formￜ sur Pascal et Turbo-Pascal par le Cnam en 1990, je reviens en
formation avec Ada comme langage qui semble trï¿œs proche de Pascal.
J'utilise l'IDE AdaGide, n'ayant pas rￜussi ￜ installer correctement
GPS sous Vista.
Je ne comprends pas certaines erreurs donnï¿œes par le compilateur.
Je suis obligￜ de mettre 2 fois Enf if; ￜ la fin sinon le compilateur
dï¿œtecte une erreur (missing "END IF;" for "IF" at line 19)
[code]
FOR I IN sDate'RANGE LOOP
IF sDate(I) = " " THEN
nFormat := 1;
Else if sDate(I) = "/" then
nFormat := 2;
ELSE
nFormat := 0;
END IF;
end if;
END LOOP
[/code]
Et dans ce cas il me sort les erreurs suivantes :

invalid operand types for operator "="
left operand has type "Standard.Character"
right operand has a string type
invalid operand types for operator "="
left operand has type "Standard.Character"
right operand has a string type
invalid operand types for operator "&"

J'avoue ne plus comprendre ce qui se passe et si qqu'un pouvait
m'ï¿œclairer ï¿œa m'aiderait beaucoup.

Merci d'avance.

[J-P. Rosen]

Le 23/02/2013 19:00, Olivier a ï¿œcrit :

> Je ne comprends pas certaines erreurs donnï¿œes par le compilateur.
> Je suis obligￜ de mettre 2 fois Enf if; ￜ la fin sinon le compilateur
> dï¿œtecte une erreur (missing "END IF;" for "IF" at line 19)

En Ada, il faut ï¿œcrire elsif et non else if; sinon, il y a deux if
imbriquï¿œs, donc il faut deux end if

> [code]
> FOR I IN sDate'RANGE LOOP
> IF sDate(I) = " " THEN
> nFormat := 1;
> Else if sDate(I) = "/" then
> nFormat := 2;
> ELSE
> nFormat := 0;
> END IF;
> end if;
> END LOOP
> [/code]
> Et dans ce cas il me sort les erreurs suivantes :
>
> invalid operand types for operator "="
> left operand has type "Standard.Character"

En Ada (contrairement ￜ Pascal), on fait la diffￜrence entre une chaￜne
contenant un seul caractï¿œre et un caractï¿œre simple. Les caractï¿œres
s'ï¿œcrivent entre apostrophes simples, donc il faut ï¿œcrire '/' et non "/".

--
J-P. Rosen
Adalog
2 rue du Docteur Lombard, 92441 Issy-les-Moulineaux CEDEX
Tel: +33 1 45 29 21 52, Fax: +33 1 45 29 25 00
http://www.adalog.fr

[Ludovic Brenta]

Olivier writes on fr.comp.lang.ada:
> Form� sur Pascal et Turbo-Pascal par le Cnam en 1990, je reviens en
> formation avec Ada comme langage qui semble tr�s proche de Pascal.
> J'utilise l'IDE AdaGide, n'ayant pas r�ussi � installer correctement
> GPS sous Vista.
> Je ne comprends pas certaines erreurs donn�es par le compilateur.
> Je suis oblig� de mettre 2 fois Enf if; � la fin sinon le compilateur
> d�tecte une erreur (missing "END IF;" for "IF" at line 19)

> [code]
> FOR I IN sDate'RANGE LOOP
> IF sDate(I) = " " THEN
> nFormat := 1;
> Else if sDate(I) = "/" then

Essaie "elsif sDate(I) = "/" then"

> nFormat := 2;
> ELSE
> nFormat := 0;
> END IF;
> end if;
> END LOOP
> [/code]
> Et dans ce cas il me sort les erreurs suivantes :
>
> invalid operand types for operator "="
> left operand has type "Standard.Character"
> right operand has a string type
> invalid operand types for operator "="
> left operand has type "Standard.Character"
> right operand has a string type
> invalid operand types for operator "&"
>
> J'avoue ne plus comprendre ce qui se passe et si qqu'un pouvait

> m'�clairer �a m'aiderait beaucoup.

Tu as deux "if" imbriqu�s. Si tu remplaces "else if" par "elsif", tu
n'a plus qu'un seul "if".

--
Ludovic Brenta.

[Olivier]

Olivier a pensￜ trￜs fort :

Ok vu. Merci beaucoup.

Olivier