fredcl
Messages postés
547
Date d'inscription
mercredi 8 janvier 2003
Statut
Membre
Dernière intervention
7 octobre 2007
-
11 août 2003 à 10:37
fredcl Messages postés 547 Date d'inscription mercredi 8 janvier 2003 Statut Membre Dernière intervention 7 octobre 2007 - 11 août 2003 à 14:55
fredcl Messages postés 547 Date d'inscription mercredi 8 janvier 2003 Statut Membre Dernière intervention 7 octobre 2007 - 11 août 2003 à 14:55
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/11230-...
https://codes-sources.commentcamarche.net/source/11230-...
11 août 2003 à 14:55
function lire:boolean;
var
etat:integer;
begin
etat:=0;
if sep(i)='(' then
begin
if mot(i)<>'' then
begin
if sep(i)=')' then
begin lire:=true;
end
else begin
lire:=false;dec(i); mess('< ) > manquant');
end;
end
else
begin lire:=false;mess('variable manquant');;
end
end
else begin lire:=false;dec(i); mess('< ( > manquant');end;
end;
C'est du Pascal, et ça n'a pas grand chose à faire ici!
Alors avant de poster regarde l'intérieur des fichiers, tu verras aussi que le code n'est absolument pas commenté. Certe les commentaire n'apporte rien à la compilation du logiciel, mais par contre aporte énormément à la compréhension du source et ça ne coute pas grand chose au développeur (pas besoin de mettre des commentaire à toute les lignes mais un minimum, d'expliquer ce que ça fait qu'en ça se complique). Surtout quand le source est fait pour diffusion ou lorsqu'il seras maintenue par des tiers.
11 août 2003 à 12:30
si c'est effectivement du pascal, en effet, a plutôt sur le site Delphi, c'est plus proche.
11 août 2003 à 10:37
je ne savais pas que TC++ compilait du Pascal.
Si je ne me trompe pas ce site est réservé à des sources en C et/ou C++ rien à voir avec du pascal.
De plus le code n'est absolument pas commenté, ce qui est fort regrètable.