Pas de commentaires, composants utilisés dans le code non renommés : même verdict que pour les autres codes de ce niveau !

Comme je suis aussi fainéant, je n'en dirai pas plus.

Excellent !
Voici un code et une documentation comme on aimerait bien en voir plus souvent.
Toutes mes félicitations.

Dès que tu auras publié ton nouveau code (en Delphi cette fois), on supprimera celui-ci.
Merci pour ta compréhension.

Je suis tout à fait d'accord avec Walkyries : GExpert est super pour cette tâche (et bien d'autres...). De plus, il facilite la réalisation d'archives en ne prenant en compte QUE les fichiers nécessaires au projet ou groupe de projets en cours.

La méthode du fichier batch possède plusieurs inconvénients  :
1- celui de devoir être copié dans chaque dossier de projet
2- de ne pas traiter les sous dossiers
3- ne peut pas pouvoir être publiée sur un site traitant de programmation Delphi !!!

Si on se met tous à publier de tels codes, où va-t-on ?
Désolé Hurrycane.

Xactise : c'est possible et c'est ici qu'on le trouve : http://tinyurl.com/s86hr
A+

Puisque ce code s'adresse aux débutants, il serait bien de préciser où l'on peut trouver ce fameux "composant HomeDB".

De plus, tu utilises aussi le composant TVolgaDbGrid qui n'est pas livré en standard avec Delphi.

Enfin, sans vouloir être mesquin, ton code source comporte trois lignes de code d'une simplicité enfantine que même un débutant trouverait en quelques minutes.

Mais c'est bien de se lancer et d'oser.

Mon cher Braweb, voici un extrait de l'aide en ligne fournie avec Delphi.

FindCmdLineSwitch :
Détermine si une chaîne de caractères a été transmise à l'application en tant qu'argument de la ligne de commande.

Description

FindCmdLineSwitch détermine si une chaîne représente un commutateur de la ligne de commande,en fonction du premier caractère de la chaîne.

Switch est un paramètre de ligne de commande, généralement fourni par la fonction ParamStr.

Chars est le jeu de caractères qui distingue les commutateurs des autres paramètres. Si SwitchChars est omis,sa valeur par défaut est '/'et '-'sous Windows,et '-'sous Linux.

IgnoreCase détermine si les différences majuscules/minuscules sont prises en compte.La valeur par défaut est true sous Windows, false sous Linux.

Enfin, cette fonction est définie dans l'unité SysUtils.

Pour les détails, se reporter à l'aide en ligne.

Mise à jour du code source avec ajout d'une seconde application pour l'envoi par mail et la prévisualisation (cette dernière fonctionnalité nécessite Acrobat Reader installé sur votre machine).

A toi de jouer Nou366 !

Je viens de mettre à jour le code ainsi que le pdf en espérant que cela sera moins "brumeux" pour certains :o)

C'est sûr que quand on parle architecture logicielle, mieux vaut avoir l'esprit clair et un minimum d'expérience dans ce domaine.

Pouicky, je ne t'oublie pas, mais...

L'urgent est déjà parti,
L'impossible est en train de se faire,
Pour les miracles, je demande un délai !

L'utilisation de structures Case...of aurait déjà grandement allégé le code.
Les redondances dans le code sont trop nombreuses et il eût été plus malin de déclarer un tableau avec les noms des couleurs.
Ainsi, au lieu des :
if (TD[i] = 1) then
begin
  write ('Noir    ');
end;
if (TD[i] = 2) then
begin
  write ('Blanc    ');
end;
Un simple :
Write(TableauCouleurs[i]);

TableauCouleurs serait déclaré ainsi :
TableauCouleurs : array [1..8] of string[8] = (
    'Noir', 'Blanc', 'Jaune', 'Rouge', 'Orange', 'Vert', 'Bleu', 'Marron');

aurait fait l'affaire et réduirait la taille du code de 30% environ.
Sache aussi que ce n'est pas une bonne habitude d'écrire une multitude de if come tu l'as fait. Si TD[i] vaut 1, il est inutile de tester s'il vaut 2 à la ligne suivante (et ainsi de suite...).

Et, au lieu des nombreux WriteLn, une ch'tite boucle serait plus lisible.
Pour le reste, je rejoint les avis des autres membres notamment celui de Foxi : c'est courageux d'avoir fait ce jeu en mode console et ça mérite des encouragements tout de même.