EST-CE UN PALINDROME ? (C++ BUILDER 6)

/---------------------------------------------------------------------------

#include <vcl.h>
#pragma hdrstop

#include "Palindrome.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::cmd_TESTERClick(TObject *Sender)
{
// DEBUT
// SI lorsque le bouton est pressé la chaine txt_MOT est vide
// ALORS on affiche un message d'erreur
// SINON on effectue le test

if (txt_MOT->Text == "")
{
    Application->MessageBoxA("Veuillez Saisir un mot...","Erreur");

}
else
{
        // Declaration et Affectation de la variable NbCar servant à contenir
        // le nombre de caractères de la chaine txt_MOT

        int NbCar = 0;
        NbCar = txt_MOT->Text.Length();

        // Boucle TANT QUE
        // TANT QUE le nombre de caractère est supérieur à -1
        // FAIRE : On prend le caractère de txt_MOT ayant la position donnée
        //         par NbCar
        //         On le concatène à la chaine txt_MOTINVERSE
        //         On retire 1 à NbCar
        //
        // cela va permettre de d'obtenir le contenu de la chaine txt_MOT
        // en sens inverse
        // Ex : CHAT. NbCar = 4.
        //      Entrée dans le TANT QUE : NbCar = 4 donc txt_MOTINVERSE = T
        //      puis NbCar -1 = 3
        //      puis : txt_MOTINVERSE = A  NbCar = 2..... ect..
        //      Sortie du TANT QUE (Quand NbCar < 0): txt_MOTINVERSE = TAHC

        while (NbCar > 0)
        {
                txt_MOTINVERSE->Text = txt_MOTINVERSE->Text +
                txt_MOT->Text.SubString(NbCar,1);
                NbCar = NbCar -1;
        }

        // On compare ensuite les 2 chaines txt_MOT et txt_MOTINVERSE
        // SI elles sont identiques ALORS c'est un palindrome
        // SINON ce n'est pas un palindrome


        if (txt_MOTINVERSE->Text == txt_MOT->Text)
        {
                txt_CONCLUSION->Text = "Le mot saisi est un palindrome";
        }
        else
        {
                txt_CONCLUSION->Text = "Le mot saisi n'est pas un palindrome";
        }

        // On desactive le bouton tester
        // (Cela oblige l'utilisateur d'utiliser le bouton effacer)

        cmd_TESTER->Enabled = false;
 }
 // fin si du début
// FIN

}
//---------------------------------------------------------------------------
void __fastcall TForm1::cmd_REFRESHClick(TObject *Sender)
{
//DEBUT
        // On efface toutes les zones de textes
                txt_MOT->Text ="";
                txt_MOTINVERSE->Text ="";
                txt_CONCLUSION->Text ="";

        // On réactive le bouton tester
                cmd_TESTER->Enabled = true;
//FIN
}
//---------------------------------------------------------------------------

Télécharger le zip