LE MOT LE PLUS LONG : ANAGRAMME

Commentaire de cirec le 22/04/2008 01:36:08 administrateur CS

Je suis déçu, je croyais voir une code de niveau expert
mais en y regardant de près c'est tout juste du débutant

Il y a 12 fichiers utiles sur 53 dans le Zip
ce qui fait donc 41 fichiers inutiles, je crois que tu bats tous les records.
regarde ce tutoriel:
http://www.delphifr.com/tutoriaux/FAIRE-ZIP_291.aspx
et ce code:
http://www.delphifr.com/codes/DELPHI-PROJECT-CLEANNER_38066.aspx

Nettoie ton zip c'est vraiment urgent!!!!!!

Pour un code expert:
  les composant ne sont pas nommés
  le code pas ou mal identé

le code parlons en, par exemple,
dans la procedure Buton1click de l'unité Vue.pas
on a : mot:=controleur.recup;
qui fait appel à la méthode recup de l'unité controleur
dans laquelle on y trouve
function recup ():string;
begin
   result:=dico.recup();
end;
qui fait appel à la méthode recup de l'unité dico
dans laquelle on y trouve
function recup():string;
begin
   result:=utable.recup(dicos);
end;
qui fait appel à la méthode recup de l'unité utable
dans laquelle on y trouve
function recup(t:table):string;
var x:integer;
begin
  //x:= form1.edit1.text;
  x:=randomRange(2,8);
   result:=uliste.recup(t[random(n)+1].tab[x]);
   if result='' then
   result:=recup(t);
end;
qui fait appel à la méthode recup de l'unité uliste
dans laquelle on y trouve
function recup (lh:liste):string;
var i,j:integer;
begin
if  lh<>nil then
   begin
    i:= nbelem  (lh);
     i:=random(i);
     for j:=1 to i do
     lh:=lh^.svt_horizon;
     result:=lh^.clef;
     end
    else
       result:='';
end;


ça se passe de tout commentaire et j'arrêterai là parce que
la liste trop longue.

Commentaire de cirec le 22/04/2008 11:44:40 administrateur CS

j'ai vidé complètement le Zip de ces fichiers inutiles
et j'ai ajouté une capture