IdentifiantMot de passe
Mot de passe oublié ?Je m'inscris ! (gratuit)

Vous êtes nouveau sur Developpez.com ? Créez votre compte ou connectez-vous afin de pouvoir participer !

Vous devez avoir un compte Developpez.com et être connecté pour pouvoir participer aux discussions.

Vous n'avez pas encore de compte Developpez.com ? Créez-en un en quelques instants, c'est entièrement gratuit !

Si vous disposez déjà d'un compte et qu'il est bien activé, connectez-vous à l'aide du formulaire ci-dessous.

Identifiez-vous
Identifiant
Mot de passe
Mot de passe oublié ?
Créer un compte

L'inscription est gratuite et ne vous prendra que quelques instants !

Je m'inscris !

Le concours Parnassus Delphi
Récompense le meilleur... du mauvais code !

Le , par gvasseur58
6 commentaires

21PARTAGES

1  0 


En ce 1er avril et par des temps tumultueux, un peu d’humour ne peut faire de mal Par conséquent, vous apprécierez sans doute le « concours de mauvais code Delphi » proposé par le site Delphi Parnassus et dont les résultats viennent d’être révélés.

Du modèle de code censé améliorer une routine alors qu’il la ralentit ou l’estropie jusqu’au programme ambitieux illisible et/ou impossible à maintenir, il y en a pour tous les goûts.

Le grand prix de la compétition revient de juste droit à Alexander Benikowski qui a réussi à écrire une boucle for…to de 14 000 signes ! Mais quand on rêve de cloner Mario, on ne compte pas !

J’avoue cependant avoir une préférence pour les portions de code courtes mais très efficaces quand il s’agit de créer des bogues retors : celui qui a écrit une procédure Break qui cache la procédure originale ou encore celui qui a « optimisé » une routine de comparaison de chaînes à coups de hashcode mal maîtrisé sont mes programmeurs préférés.

Voici la procédure Break à la perversité garantie :

Code : Sélectionner tout 
1
2
3
4
procedure Break;
begin
  // Yeah, I'm pretty sure this will break something :)
end;

Source : https://parnassus.co/delphi-bad-code...sults-winners/

Avez-vous vous aussi du code bien mauvais à soumettre à la communauté ?

Une erreur dans cette actualité ? Signalez-nous-la !

6 commentaires
Commenter Signaler un problème
ShaiLeTroll
Avatar de ShaiLeTroll
Expert éminent sénior https://www.developpez.com
Le 11/04/2016 à 11:02
J'ai aussi survolé, le sujet, j'aurais juste aimé voir le code complet du Mario, c'est intriguant cette grande boucle !

Par contre, un concours du plus mauvais code : je ne sais pas si je dois en rire ou en pleurer !
En tant que professionnel, je suis confronté à du mauvais code tous les jours,
le dernier en date commité ce vendredi 8 Avril 2016 par un collègue m'hallucine par sa lourdeur :

le code d'origine
Code : Sélectionner tout 
1
2
3
4
5
...
  LModeleFile: string;
begin
  LModeleFile := ExtractFilePath(ParamStr(0))+ModeleFichier;
  ... DownloadFile(RemoteFileName, LModeleFile) ...
le code modifié par mon collègue
C'est pour privilégier un dossier local où l'utilisateur ou Excel peut lire et écrire
C'est depuis la migration d'application locale de plus en plus lancé via CITRIX
Donc ParamStr(0) retourne chez nous souvent \\server\dossier\module.exe, télécharger un fichier sur un dossier réseau c'est lourd

Code : Sélectionner tout 
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
...
  LModeleFile, LTest: string;
begin
  LTest := IncludeTrailingPathDelimiter(GetEnvironmentVariable('APPDATA'));
  LModeleFile := ExtractFilePath(ParamStr(0))+ModeleFichier;
  if not DirectoryExists(LTest) then
  begin
    ForceDirectories(LTest);
  end;
  if DirectoryExists(LTest) then
  begin
    LTest := LTest+'\Microsoft'; 
    if not DirectoryExists(LTest) then
    begin
      ForceDirectories(LTest);
    end;
    if DirectoryExists(LTest) then
    begin
      LTest := LTest+'\Templates';
      if not DirectoryExists(LTest) then
      begin
        ForceDirectories(LTest);
      end;
      if DirectoryExists(LTest) then
      begin
        LModeleFile := LTest+'\'+ModeleFichier;
      end;
    end;
  end;
  
  ... DownloadFile(RemoteFileName, LModeleFile) ...
Il y a une erreur au LTest := LTest+'\Microsoft';
LTest contient déjà le \ ajouté par le IncludeTrailingPathDelimiter du coup cela fait « AppData\\Microsoft » au lieu de « AppData\Microsoft »
Mais Windows supporte le \\ comme \ dans un chemin

Mauvaise maitrise de ForceDirectories qui inclus l’appel à DirectoryExists

le code simplifié par mes soins

Code : Sélectionner tout 
1
2
3
4
5
6
7
8
9
10
…
  LModeleFile, LTest: string;
begin
  LTest := IncludeTrailingPathDelimiter(IncludeTrailingPathDelimiter(GetEnvironmentVariable('APPDATA')) + 'Microsoft') + 'Templates';
  if ForceDirectories(LTest) then
    LModeleFile := IncludeTrailingPathDelimiter(LTest) + ModeleFichier
 else
    LModeleFile := ExtractFilePath(ParamStr(0)) + ModeleFichier;
 
  ... DownloadFile(RemoteFileName, LModeleFile) ...
Donc un concours, sur le plus mauvais code est franchement déprimant !
3  0 
guillemouze
Avatar de guillemouze
Membre expérimenté https://www.developpez.com
Le 11/04/2016 à 18:18
@Shai : pour moins de lourdeur, j'aurai plutôt vu le PathDelim dans les cas ou son abscence est connue :
Code : Sélectionner tout 
1
2
3
4
5
6
7
8
9
10
…
  LModeleFile, LTest: string;
begin
  LTest := IncludeTrailingPathDelimiter(GetEnvironmentVariable('APPDATA')) + 'Microsoft' + PathDelim + 'Templates';
  if ForceDirectories(LTest) then
    LModeleFile := LTest + PathDelim + ModeleFichier
 else
    LModeleFile := ExtractFilePath(ParamStr(0)) + ModeleFichier;
 
  ... DownloadFile(RemoteFileName, LModeleFile) ...
3  0 
Andnotor
Avatar de Andnotor
Rédacteur/Modérateur https://www.developpez.com
Le 01/04/2016 à 12:41
Oui mais tout n'est pas correct dans ce qu'ils énoncent.

First, it’s incorrect: the hash is case-sensitive (though the original code was too.)
Faux ! StringCompareUnOpt n'est pas égale à StringCompareOpt.
La première fonction est sensible à la casse mais pas la deuxième. GetHashCode commence par appeler ToUpper. 70063 correspond à "FOO" et non à "Foo".
Ce qui explique en bonne partie la différence de vitesse.

EDIT:
Adrian Gallero avait relevé l'erreur.

Second, what if the string constants change – you need to regenerate the constants
Dans les deux cas, ça renverra Unknown. Cette remarque n'a pas beaucoup de sens.

Dommage qu'ils n'expliquent pas, selon eux, la bonne pratique. Ne serait-ce que si on veut appeler cette fonction un million de fois, passer le paramètre en const pour éviter la gestion du compteur de référence.
1  0 
ShaiLeTroll
Avatar de ShaiLeTroll
Expert éminent sénior https://www.developpez.com
Le 12/04/2016 à 11:39
PathDelim, oui effectivement dans ce cas, c'est tout à fait opportun
0  0 
anapurna
Avatar de anapurna
Expert confirmé https://www.developpez.com
Le 12/04/2016 à 12:03
Citation Envoyé par ShaiLeTroll Voir le message
J'ai aussi survolé, le sujet, j'aurais juste aimé voir le code complet du Mario, c'est intriguant cette grande boucle !

Par contre, un concours du plus mauvais code : je ne sais pas si je dois en rire ou en pleurer !
En tant que professionnel, je suis confronté à du mauvais code tous les jours,
le dernier en date commité ce vendredi 8 Avril 2016 par un collègue m'hallucine par sa lourdeur :

...
tu peut le récupérer sur sur ici
0  0 
ShaiLeTroll
Avatar de ShaiLeTroll
Expert éminent sénior https://www.developpez.com
Le 12/04/2016 à 18:19
En Release, ça mets une erreur sur XE2 que je n'ai encore jamais vu "[MSBuild Erreur] "0" is an invalid value for the "DebugInformation" parameter of the "DCC" task. The "DebugInformation" parameter is of type "System.Boolean"."
En Debug, je n'ai qu'un tas d'erreur de vérification d'étendu ou alors des Violations d'accès
Comme sous Seattle comme c'est indiqué dans le sujet

un petit try except en plus ça affiche difficilement le StartScreen.png

Sous XE7 que j'ai aussi, ça affiche la fin du niveau directement

Dommage, j'aurais aimé voir tourner cette petite folie
0  0 
Commenter Signaler un problème