Interface pour le rpg vampire la mascarade

Soyez le premier à donner votre avis sur cette source.

Snippet vu 7 376 fois - Téléchargée 31 fois

Contenu du snippet

J'ai réalisé pôur mon projet TUT une interface pour le jeu de rôle Vampire.

Source / Exemple :


//---------------------------------------------------------------------------
#include <vcl.h>

#pragma hdrstop

#include "Source.h"
#include "Source2.h"
#include "Source3.h"
#include "Source4.h"
#include "Source5.h"
/* Déclaration des variables */

//char tab_recept[15];     // Permet de récuper les valeurs dans les Edits
int DE[100000];          // Contient les valeurs aléatoires du tirages
int tab_tirage[11];      // Contient le nbr de fois les valeurs ont été obtenus
char caract;             // Permet d'obtenir un char
int transfert;           // Permet la conversion char en int ou l'inverse
int tab_player[107];     // Contient les données du joueur
int total_tirage;        // Comptabilise de le nbr de DE a lancer
int niv_tirage;          // Donne le nbr de réussite
//char tab_echange[999000];// Tableau d'échange pour tous les personnages
char admin[15];          // Sert à vérifier la validiter du password
int administrateur=0;    // Cpt pour le changement du mot de passe
int admin0=0;            // Confirme le passage en administrateur
int admin1=0;            // permet au bouton CheckAll
int archive=0;           // Pas encore utilisé
char tab9[20];           // Sert au adresse d'ouverture et d'enregistrement
int config=0;            // Sert pour l'oublie de l'enregidtrement de la config
char tab_adresse[200];   // Sert pour l'adresse des config
char tab_recept2[50];

randomize();            // initialisation des valeurs aléatoires

/* Fin de la déclaration des variables */

//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
    : TForm(Owner)
{
}

//---------------------------------------------------------------------------
void __fastcall TForm1::ExitClick(TObject *Sender)
{
Close();
}
//---------------------------------------------------------------------------

void __fastcall TForm1::FormCreate(TObject *Sender)
{
// Demarrage de l'application
if ((FileExists("Configuration\\Img.bmp"))==true)
{
Image1->Picture->LoadFromFile("Configuration\\Img.bmp");
}
if ((FileExists("Configuration\\Img.color"))==true)
{
Memo1->Lines->LoadFromFile("Configuration\\Img.color");
Memo1->GetTextBuf(tab_recept,Memo1->GetTextLen()+1);
transfert=atoi(tab_recept);
Form1->Font->Color=transfert;
Memo1->Text="";
Color->Text=transfert;
}
if ((FileExists("Configuration\\txt.color"))==true)
{
Memo1->Lines->LoadFromFile("Configuration\\txt.color");
Memo1->GetTextBuf(tab_recept,Memo1->GetTextLen()+1);
transfert=atoi(tab_recept);
Label6->Font->Color=transfert;
Label17->Font->Color=transfert;
Label21->Font->Color=transfert;
Label95->Font->Color=transfert;
Memo1->Text="";
Edit112->Text=transfert;
}
Form1->WindowState=wsMaximized;
Image1->Align=alTop;
Image1->Top=0;
Image1->Left=0;
Image1->AutoSize=true;
Image1->Center=true;
/*
Form1->Top=0;
Form1->Left=0;
Form1->ClientHeight=768;
Form1->ClientWidth=1024;

Image1->Top=0;
Image1->Left=0;
Image1->Height=760;
Image1->Width=1024;

  • /
Image1->Center=true; Motdepasse1->Enabled=false; Quitterlemodeadministrateur1->Enabled=false; init(); eff(); Adresse->Text=""; /* les afficheurs du jeu de DE */ Edit113->ReadOnly=true; Edit114->ReadOnly=true; Edit115->ReadOnly=true; Edit116->ReadOnly=true; Edit117->ReadOnly=true; Edit118->ReadOnly=true; Edit119->ReadOnly=true; Edit120->ReadOnly=true; Edit121->ReadOnly=true; Edit122->ReadOnly=true; Edit123->ReadOnly=true; /* les disciplines */ Label96->Caption="vide"; Label97->Caption="vide"; Label98->Caption="vide"; Label99->Caption="vide"; Label100->Caption="vide"; Label101->Caption="vide"; Label102->Caption="vide"; Label103->Caption="vide"; Label104->Caption="vide"; Label105->Caption="vide"; Label106->Caption="vide"; Label107->Caption="vide"; Label108->Caption="vide"; Label109->Caption="vide"; Label110->Caption="vide"; Label111->Caption="vide"; Label112->Caption="vide"; Label113->Caption="vide"; Label114->Caption="vide"; Label115->Caption="vide"; } //--------------------------------------------------------------------------- void __fastcall TForm1::Button3Click(TObject *Sender) { /* Sous-programme du lancement des DE */ // Création des nbr aléatoires (Début) int w=0; for (w=0;w<total_tirage;w++) DE[w]=rand()%10; DE[w]='\0'; // Donne un arret au tableau DE // Compte le nbr de fois que les valeurs ont été obtenus for (int j=0;j<10;j++) { for (int i=0;i<total_tirage;i++) { if (DE[i]==j) tab_tirage[j]++; } //Fin du For (int i=0;i<total_tirage;i++) } // Fin du for (int j=0;j<10;j++) // Affichage des résultats Edit113->Text=tab_tirage[1]; Edit114->Text=tab_tirage[2]; Edit115->Text=tab_tirage[3]; Edit116->Text=tab_tirage[4]; Edit117->Text=tab_tirage[5]; Edit118->Text=tab_tirage[6]; Edit119->Text=tab_tirage[7]; Edit120->Text=tab_tirage[8]; Edit121->Text=tab_tirage[9]; Edit122->Text=tab_tirage[0]; transfert=0; Edit124->Text=ComboBox3->Text; Edit124->GetTextBuf(tab_recept,Edit124->GetTextLen()+1); niv_tirage=atoi(tab_recept); for (int i=10;i>=niv_tirage;i--) transfert=transfert+tab_tirage[i]; transfert=transfert+tab_tirage[0]; if (niv_tirage==0) transfert=tab_tirage[0]; transfert=transfert-tab_tirage[1]; Edit123->Text=transfert; for (int i=0;i<11;i++) tab_tirage[i]=0; // efface la tables des tirages. /* Fin du Sous-programme du lancement des DE */ } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox1Click(TObject *Sender) { Edit7->GetTextBuf(tab_recept,Edit7->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox1->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox1->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox2Click(TObject *Sender) { Edit8->GetTextBuf(tab_recept,Edit8->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox2->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox2->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox3Click(TObject *Sender) { Edit9->GetTextBuf(tab_recept,Edit9->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox3->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox3->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox4Click(TObject *Sender) { Edit10->GetTextBuf(tab_recept,Edit10->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox4->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox4->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox5Click(TObject *Sender) { Edit11->GetTextBuf(tab_recept,Edit11->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox5->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox5->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox6Click(TObject *Sender) { Edit12->GetTextBuf(tab_recept,Edit12->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox6->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox6->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox7Click(TObject *Sender) { Edit13->GetTextBuf(tab_recept,Edit13->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox7->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox7->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox8Click(TObject *Sender) { Edit14->GetTextBuf(tab_recept,Edit14->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox8->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox8->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox9Click(TObject *Sender) { Edit15->GetTextBuf(tab_recept,Edit15->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox9->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox9->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox10Click(TObject *Sender) { Edit16->GetTextBuf(tab_recept,Edit16->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox10->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox10->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox11Click(TObject *Sender) { Edit17->GetTextBuf(tab_recept,Edit17->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox11->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox11->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox12Click(TObject *Sender) { Edit18->GetTextBuf(tab_recept,Edit18->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox12->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox12->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox13Click(TObject *Sender) { Edit19->GetTextBuf(tab_recept,Edit19->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox13->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox13->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox14Click(TObject *Sender) { Edit20->GetTextBuf(tab_recept,Edit20->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox14->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox14->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox15Click(TObject *Sender) { Edit21->GetTextBuf(tab_recept,Edit21->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox15->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox15->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox16Click(TObject *Sender) { Edit22->GetTextBuf(tab_recept,Edit22->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox16->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox16->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox17Click(TObject *Sender) { Edit23->GetTextBuf(tab_recept,Edit23->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox17->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox17->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox18Click(TObject *Sender) { Edit24->GetTextBuf(tab_recept,Edit24->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox18->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox18->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox19Click(TObject *Sender) { Edit25->GetTextBuf(tab_recept,Edit25->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox19->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox19->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox20Click(TObject *Sender) { Edit26->GetTextBuf(tab_recept,Edit26->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox20->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox20->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox21Click(TObject *Sender) { Edit27->GetTextBuf(tab_recept,Edit27->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox21->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox21->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox22Click(TObject *Sender) { Edit28->GetTextBuf(tab_recept,Edit28->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox22->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox22->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox23Click(TObject *Sender) { Edit29->GetTextBuf(tab_recept,Edit29->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox23->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox23->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox24Click(TObject *Sender) { Edit30->GetTextBuf(tab_recept,Edit30->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox24->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox24->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox25Click(TObject *Sender) { Edit31->GetTextBuf(tab_recept,Edit31->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox25->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox25->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox26Click(TObject *Sender) { Edit32->GetTextBuf(tab_recept,Edit32->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox26->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox26->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox27Click(TObject *Sender) { Edit33->GetTextBuf(tab_recept,Edit33->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox27->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox27->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox28Click(TObject *Sender) { Edit34->GetTextBuf(tab_recept,Edit34->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox28->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox28->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox29Click(TObject *Sender) { Edit35->GetTextBuf(tab_recept,Edit35->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox29->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox29->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox30Click(TObject *Sender) { Edit36->GetTextBuf(tab_recept,Edit36->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox30->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox30->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox31Click(TObject *Sender) { Edit37->GetTextBuf(tab_recept,Edit37->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox31->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox31->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox32Click(TObject *Sender) { Edit38->GetTextBuf(tab_recept,Edit38->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox32->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox32->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox33Click(TObject *Sender) { Edit39->GetTextBuf(tab_recept,Edit39->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox33->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox33->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox34Click(TObject *Sender) { Edit40->GetTextBuf(tab_recept,Edit40->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox34->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox34->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox35Click(TObject *Sender) { Edit41->GetTextBuf(tab_recept,Edit41->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox35->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox35->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox36Click(TObject *Sender) { Edit42->GetTextBuf(tab_recept,Edit42->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox36->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox36->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox37Click(TObject *Sender) { Edit43->GetTextBuf(tab_recept,Edit43->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox37->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox37->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox38Click(TObject *Sender) { Edit44->GetTextBuf(tab_recept,Edit44->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox38->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox38->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox39Click(TObject *Sender) { Edit45->GetTextBuf(tab_recept,Edit45->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox39->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox39->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox40Click(TObject *Sender) { Edit46->GetTextBuf(tab_recept,Edit46->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox40->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox40->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox41Click(TObject *Sender) { Edit47->GetTextBuf(tab_recept,Edit47->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox41->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox41->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox42Click(TObject *Sender) { Edit48->GetTextBuf(tab_recept,Edit48->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox42->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox42->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox43Click(TObject *Sender) { Edit49->GetTextBuf(tab_recept,Edit49->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox43->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox43->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox44Click(TObject *Sender) { Edit50->GetTextBuf(tab_recept,Edit50->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox44->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox44->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox45Click(TObject *Sender) { Edit51->GetTextBuf(tab_recept,Edit51->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox45->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox45->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox46Click(TObject *Sender) { Edit52->GetTextBuf(tab_recept,Edit52->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox46->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox46->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox47Click(TObject *Sender) { Edit53->GetTextBuf(tab_recept,Edit53->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox47->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox47->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox48Click(TObject *Sender) { Edit54->GetTextBuf(tab_recept,Edit54->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox48->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox48->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox49Click(TObject *Sender) { Edit55->GetTextBuf(tab_recept,Edit55->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox49->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox49->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox50Click(TObject *Sender) { Edit56->GetTextBuf(tab_recept,Edit56->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox50->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox50->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox51Click(TObject *Sender) { Edit57->GetTextBuf(tab_recept,Edit57->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox51->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox51->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox52Click(TObject *Sender) { Edit58->GetTextBuf(tab_recept,Edit58->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox52->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox52->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox53Click(TObject *Sender) { Edit59->GetTextBuf(tab_recept,Edit59->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox53->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox53->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox54Click(TObject *Sender) { Edit60->GetTextBuf(tab_recept,Edit60->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox54->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox54->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox55Click(TObject *Sender) { Edit61->GetTextBuf(tab_recept,Edit61->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox55->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox55->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox56Click(TObject *Sender) { Edit62->GetTextBuf(tab_recept,Edit62->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox56->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox56->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox57Click(TObject *Sender) { Edit63->GetTextBuf(tab_recept,Edit63->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox57->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox57->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox58Click(TObject *Sender) { Edit64->GetTextBuf(tab_recept,Edit64->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox58->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox58->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox59Click(TObject *Sender) { Edit65->GetTextBuf(tab_recept,Edit65->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox59->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox59->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox60Click(TObject *Sender) { Edit66->GetTextBuf(tab_recept,Edit66->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox60->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox60->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox61Click(TObject *Sender) { Edit67->GetTextBuf(tab_recept,Edit67->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox61->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox61->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox62Click(TObject *Sender) { Edit68->GetTextBuf(tab_recept,Edit68->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox62->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox62->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox63Click(TObject *Sender) { Edit69->GetTextBuf(tab_recept,Edit69->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox63->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox63->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox64Click(TObject *Sender) { Edit70->GetTextBuf(tab_recept,Edit70->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox64->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox64->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox65Click(TObject *Sender) { Edit71->GetTextBuf(tab_recept,Edit71->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox65->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox65->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox66Click(TObject *Sender) { Edit72->GetTextBuf(tab_recept,Edit72->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox66->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox66->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox67Click(TObject *Sender) { Edit73->GetTextBuf(tab_recept,Edit73->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox67->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox67->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox68Click(TObject *Sender) { Edit74->GetTextBuf(tab_recept,Edit74->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox68->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox68->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox69Click(TObject *Sender) { Edit75->GetTextBuf(tab_recept,Edit75->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox69->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox69->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox70Click(TObject *Sender) { Edit76->GetTextBuf(tab_recept,Edit76->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox70->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox70->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox71Click(TObject *Sender) { Edit77->GetTextBuf(tab_recept,Edit77->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox71->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox71->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox72Click(TObject *Sender) { Edit78->GetTextBuf(tab_recept,Edit78->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox72->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox72->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox73Click(TObject *Sender) { Edit79->GetTextBuf(tab_recept,Edit79->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox73->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox73->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox74Click(TObject *Sender) { Edit80->GetTextBuf(tab_recept,Edit80->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox74->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox74->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox75Click(TObject *Sender) { Edit81->GetTextBuf(tab_recept,Edit81->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox75->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox75->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox76Click(TObject *Sender) { Edit82->GetTextBuf(tab_recept,Edit82->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox76->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox76->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox77Click(TObject *Sender) { Edit83->GetTextBuf(tab_recept,Edit83->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox77->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox77->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox78Click(TObject *Sender) { Edit84->GetTextBuf(tab_recept,Edit84->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox78->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox78->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox79Click(TObject *Sender) { Edit85->GetTextBuf(tab_recept,Edit85->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox79->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox79->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox80Click(TObject *Sender) { Edit86->GetTextBuf(tab_recept,Edit86->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox80->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox80->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox81Click(TObject *Sender) { Edit87->GetTextBuf(tab_recept,Edit87->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox81->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox81->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox82Click(TObject *Sender) { Edit88->GetTextBuf(tab_recept,Edit88->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox82->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox82->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox83Click(TObject *Sender) { Edit89->GetTextBuf(tab_recept,Edit89->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox83->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox83->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox84Click(TObject *Sender) { Edit90->GetTextBuf(tab_recept,Edit90->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox84->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox84->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox85Click(TObject *Sender) { Edit91->GetTextBuf(tab_recept,Edit91->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox85->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox85->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox86Click(TObject *Sender) { Edit92->GetTextBuf(tab_recept,Edit92->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox86->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox86->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox87Click(TObject *Sender) { Edit93->GetTextBuf(tab_recept,Edit93->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox87->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox87->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox88Click(TObject *Sender) { Edit94->GetTextBuf(tab_recept,Edit94->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox88->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox88->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox89Click(TObject *Sender) { Edit95->GetTextBuf(tab_recept,Edit95->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox89->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox89->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox90Click(TObject *Sender) { Edit96->GetTextBuf(tab_recept,Edit96->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox90->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox90->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox91Click(TObject *Sender) { Edit97->GetTextBuf(tab_recept,Edit97->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox91->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox91->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox92Click(TObject *Sender) { Edit98->GetTextBuf(tab_recept,Edit98->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox92->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox92->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox93Click(TObject *Sender) { Edit99->GetTextBuf(tab_recept,Edit99->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox93->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox93->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox94Click(TObject *Sender) { Edit100->GetTextBuf(tab_recept,Edit100->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox94->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox94->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox95Click(TObject *Sender) { Edit101->GetTextBuf(tab_recept,Edit101->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox95->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox95->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox96Click(TObject *Sender) { Edit102->GetTextBuf(tab_recept,Edit102->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox96->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox96->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox97Click(TObject *Sender) { Edit103->GetTextBuf(tab_recept,Edit103->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox97->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox97->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox98Click(TObject *Sender) { Edit104->GetTextBuf(tab_recept,Edit104->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox98->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox98->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox99Click(TObject *Sender) { Edit105->GetTextBuf(tab_recept,Edit105->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox99->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox99->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox100Click(TObject *Sender) { Edit106->GetTextBuf(tab_recept,Edit106->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox100->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox100->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox101Click(TObject *Sender) { Edit107->GetTextBuf(tab_recept,Edit107->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox101->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox101->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox102Click(TObject *Sender) { Edit108->GetTextBuf(tab_recept,Edit108->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox102->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox102->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox103Click(TObject *Sender) { Edit109->GetTextBuf(tab_recept,Edit109->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox103->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox103->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox104Click(TObject *Sender) { Edit110->GetTextBuf(tab_recept,Edit110->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox104->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox104->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CheckBox105Click(TObject *Sender) { Edit111->GetTextBuf(tab_recept,Edit111->GetTextLen()+1); if (tab_recept[0]!='\0') { transfert=atoi(tab_recept); if (CheckBox105->Checked==true) total_tirage=total_tirage+transfert; else total_tirage=total_tirage-transfert; } else { CheckBox105->Checked=false; } } //--------------------------------------------------------------------------- void __fastcall TForm1::Button9Click(TObject *Sender) { // Attribution des points d'expérience int memo; int xp; int err=0; Edit125->GetTextBuf(tab_recept,Edit125->GetTextLen()+1); memo=atoi(tab_recept); Edit6->GetTextBuf(tab_recept,Edit6->GetTextLen()+1); xp=atoi(tab_recept); if (admin0==1) { xp=xp+memo; if (xp>9999) xp=9999; Edit6->Text=xp; } else { while ((memo>0) & (err==0)) { if (CheckBox1->Checked==true) { Edit7->GetTextBuf(tab_recept,Edit7->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*5; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/5; transfert++; Edit7->Text=transfert; } }// Fin du if (CheckBox1->Checked==true) if (CheckBox2->Checked==true) { Edit8->GetTextBuf(tab_recept,Edit8->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*5; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/5; transfert++; Edit8->Text=transfert; } }// Fin du if (CheckBox2->Checked==true) if (CheckBox3->Checked==true) { Edit9->GetTextBuf(tab_recept,Edit9->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*5; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/5; transfert++; Edit9->Text=transfert; } }// Fin du if (CheckBox3->Checked==true) if (CheckBox4->Checked==true) { Edit10->GetTextBuf(tab_recept,Edit10->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*5; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/5; transfert++; Edit10->Text=transfert; } }// Fin du if (CheckBox4->Checked==true) if (CheckBox5->Checked==true) { Edit11->GetTextBuf(tab_recept,Edit11->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*5; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/5; transfert++; Edit11->Text=transfert; } }// Fin du if (CheckBox5->Checked==true) if (CheckBox6->Checked==true) { Edit12->GetTextBuf(tab_recept,Edit12->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*5; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/5; transfert++; Edit12->Text=transfert; } }// Fin du if (CheckBox6->Checked==true) if (CheckBox7->Checked==true) { Edit13->GetTextBuf(tab_recept,Edit13->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*5; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/5; transfert++; Edit13->Text=transfert; } }// Fin du if (CheckBox7->Checked==true) if (CheckBox8->Checked==true) { Edit14->GetTextBuf(tab_recept,Edit14->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*5; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/5; transfert++; Edit14->Text=transfert; } }// Fin du if (CheckBox8->Checked==true) if (CheckBox9->Checked==true) { Edit15->GetTextBuf(tab_recept,Edit15->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*5; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/5; transfert++; Edit15->Text=transfert; } }// Fin du if (CheckBox9->Checked==true) if (CheckBox10->Checked==true) { Edit16->GetTextBuf(tab_recept,Edit16->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*8; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/8; transfert++; Edit16->Text=transfert; } }// Fin du if (CheckBox10->Checked==true) if (CheckBox11->Checked==true) { Edit17->GetTextBuf(tab_recept,Edit17->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*8; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/8; transfert++; Edit17->Text=transfert; } }// Fin du if (CheckBox11->Checked==true) if (CheckBox12->Checked==true) { Edit18->GetTextBuf(tab_recept,Edit18->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*8; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/8; transfert++; Edit18->Text=transfert; } }// Fin du if (CheckBox12->Checked==true) if (CheckBox13->Checked==true) { Edit19->GetTextBuf(tab_recept,Edit19->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit19->Text=transfert; } }// Fin du if (CheckBox13->Checked==true) if (CheckBox14->Checked==true) { Edit20->GetTextBuf(tab_recept,Edit20->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit20->Text=transfert; } }// Fin du if (CheckBox14->Checked==true) if (CheckBox15->Checked==true) { Edit21->GetTextBuf(tab_recept,Edit21->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit21->Text=transfert; } }// Fin du if (CheckBox15->Checked==true) if (CheckBox16->Checked==true) { Edit22->GetTextBuf(tab_recept,Edit22->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit22->Text=transfert; } }// Fin du if (CheckBox16->Checked==true) if (CheckBox17->Checked==true) { Edit23->GetTextBuf(tab_recept,Edit23->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit23->Text=transfert; } }// Fin du if (CheckBox17->Checked==true) if (CheckBox18->Checked==true) { Edit24->GetTextBuf(tab_recept,Edit24->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit24->Text=transfert; } }// Fin du if (CheckBox18->Checked==true) if (CheckBox19->Checked==true) { Edit25->GetTextBuf(tab_recept,Edit25->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit25->Text=transfert; } }// Fin du if (CheckBox19->Checked==true) if (CheckBox20->Checked==true) { Edit26->GetTextBuf(tab_recept,Edit26->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit26->Text=transfert; } }// Fin du if (CheckBox20->Checked==true) if (CheckBox21->Checked==true) { Edit27->GetTextBuf(tab_recept,Edit27->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit27->Text=transfert; } }// Fin du if (CheckBox21->Checked==true) if (CheckBox22->Checked==true) { Edit28->GetTextBuf(tab_recept,Edit28->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit28->Text=transfert; } }// Fin du if (CheckBox22->Checked==true) if (CheckBox23->Checked==true) { Edit29->GetTextBuf(tab_recept,Edit29->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit29->Text=transfert; } }// Fin du if (CheckBox23->Checked==true) if (CheckBox24->Checked==true) { Edit30->GetTextBuf(tab_recept,Edit30->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit30->Text=transfert; } }// Fin du if (CheckBox25->Checked==true) if (CheckBox24->Checked==true) { Edit31->GetTextBuf(tab_recept,Edit31->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit31->Text=transfert; } }// Fin du if (CheckBox25->Checked==true) if (CheckBox26->Checked==true) { Edit32->GetTextBuf(tab_recept,Edit32->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit32->Text=transfert; } }// Fin du if (CheckBox26->Checked==true) if (CheckBox27->Checked==true) { Edit33->GetTextBuf(tab_recept,Edit33->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit33->Text=transfert; } }// Fin du if (CheckBox27->Checked==true) if (CheckBox28->Checked==true) { Edit34->GetTextBuf(tab_recept,Edit34->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit34->Text=transfert; } }// Fin du if (CheckBox28->Checked==true) if (CheckBox29->Checked==true) { Edit35->GetTextBuf(tab_recept,Edit35->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit35->Text=transfert; } }// Fin du if (CheckBox29->Checked==true) if (CheckBox30->Checked==true) { Edit36->GetTextBuf(tab_recept,Edit36->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit36->Text=transfert; } }// Fin du if (CheckBox30->Checked==true) if (CheckBox31->Checked==true) { Edit37->GetTextBuf(tab_recept,Edit37->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit37->Text=transfert; } }// Fin du if (CheckBox31->Checked==true) if (CheckBox32->Checked==true) { Edit38->GetTextBuf(tab_recept,Edit38->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit38->Text=transfert; } }// Fin du if (CheckBox32->Checked==true) if (CheckBox33->Checked==true) { Edit39->GetTextBuf(tab_recept,Edit39->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit39->Text=transfert; } }// Fin du if (CheckBox33->Checked==true) if (CheckBox34->Checked==true) { Edit40->GetTextBuf(tab_recept,Edit40->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit40->Text=transfert; } }// Fin du if (CheckBox34->Checked==true) if (CheckBox35->Checked==true) { Edit41->GetTextBuf(tab_recept,Edit41->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit41->Text=transfert; } }// Fin du if (CheckBox35->Checked==true) if (CheckBox36->Checked==true) { Edit42->GetTextBuf(tab_recept,Edit42->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit42->Text=transfert; } }// Fin du if (CheckBox36->Checked==true) if (CheckBox37->Checked==true) { Edit43->GetTextBuf(tab_recept,Edit43->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit43->Text=transfert; } }// Fin du if (CheckBox37->Checked==true) if (CheckBox38->Checked==true) { Edit44->GetTextBuf(tab_recept,Edit44->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit44->Text=transfert; } }// Fin du if (CheckBox38->Checked==true) if (CheckBox39->Checked==true) { Edit45->GetTextBuf(tab_recept,Edit45->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit45->Text=transfert; } }// Fin du if (CheckBox39->Checked==true) if (CheckBox40->Checked==true) { Edit46->GetTextBuf(tab_recept,Edit46->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit46->Text=transfert; } }// Fin du if (CheckBox40->Checked==true) if (CheckBox41->Checked==true) { Edit47->GetTextBuf(tab_recept,Edit47->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit47->Text=transfert; } }// Fin du if (CheckBox41->Checked==true) if (CheckBox42->Checked==true) { Edit48->GetTextBuf(tab_recept,Edit48->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit48->Text=transfert; } }// Fin du if (CheckBox42->Checked==true) if (CheckBox43->Checked==true) { Edit49->GetTextBuf(tab_recept,Edit49->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit49->Text=transfert; } }// Fin du if (CheckBox43->Checked==true) if (CheckBox44->Checked==true) { Edit50->GetTextBuf(tab_recept,Edit50->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit50->Text=transfert; } }// Fin du if (CheckBox44->Checked==true) if (CheckBox45->Checked==true) { Edit51->GetTextBuf(tab_recept,Edit51->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit51->Text=transfert; } }// Fin du if (CheckBox45->Checked==true) if (CheckBox46->Checked==true) { Edit52->GetTextBuf(tab_recept,Edit52->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit52->Text=transfert; } }// Fin du if (CheckBox46->Checked==true) if (CheckBox47->Checked==true) { Edit53->GetTextBuf(tab_recept,Edit53->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit53->Text=transfert; } }// Fin du if (CheckBox47->Checked==true) if (CheckBox48->Checked==true) { Edit54->GetTextBuf(tab_recept,Edit54->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit54->Text=transfert; } }// Fin du if (CheckBox48->Checked==true) if (CheckBox49->Checked==true) { Edit55->GetTextBuf(tab_recept,Edit55->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit55->Text=transfert; } }// Fin du if (CheckBox49->Checked==true) if (CheckBox50->Checked==true) { Edit56->GetTextBuf(tab_recept,Edit56->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit56->Text=transfert; } }// Fin du if (CheckBox50->Checked==true) if (CheckBox51->Checked==true) { Edit57->GetTextBuf(tab_recept,Edit57->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit57->Text=transfert; } }// Fin du if (CheckBox51->Checked==true) if (CheckBox52->Checked==true) { Edit58->GetTextBuf(tab_recept,Edit58->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit58->Text=transfert; } }// Fin du if (CheckBox52->Checked==true) if (CheckBox53->Checked==true) { Edit59->GetTextBuf(tab_recept,Edit59->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit59->Text=transfert; } }// Fin du if (CheckBox53->Checked==true) if (CheckBox54->Checked==true) { Edit60->GetTextBuf(tab_recept,Edit60->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit60->Text=transfert; } }// Fin du if (CheckBox54->Checked==true) if (CheckBox55->Checked==true) { Edit61->GetTextBuf(tab_recept,Edit61->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit61->Text=transfert; } }// Fin du if (CheckBox55->Checked==true) if (CheckBox56->Checked==true) { Edit62->GetTextBuf(tab_recept,Edit62->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit62->Text=transfert; } }// Fin du if (CheckBox56->Checked==true) if (CheckBox57->Checked==true) { Edit63->GetTextBuf(tab_recept,Edit63->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit63->Text=transfert; } }// Fin du if (CheckBox57->Checked==true) if (CheckBox58->Checked==true) { Edit64->GetTextBuf(tab_recept,Edit64->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit64->Text=transfert; } }// Fin du if (CheckBox58->Checked==true) if (CheckBox59->Checked==true) { Edit65->GetTextBuf(tab_recept,Edit65->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit65->Text=transfert; } }// Fin du if (CheckBox59->Checked==true) if (CheckBox60->Checked==true) { Edit66->GetTextBuf(tab_recept,Edit66->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit66->Text=transfert; } }// Fin du if (CheckBox60->Checked==true) if (CheckBox61->Checked==true) { Edit67->GetTextBuf(tab_recept,Edit67->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit67->Text=transfert; } }// Fin du if (CheckBox61->Checked==true) if (CheckBox62->Checked==true) { Edit68->GetTextBuf(tab_recept,Edit68->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit68->Text=transfert; } }// Fin du if (CheckBox62->Checked==true) if (CheckBox63->Checked==true) { Edit69->GetTextBuf(tab_recept,Edit69->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit69->Text=transfert; } }// Fin du if (CheckBox63->Checked==true) if (CheckBox64->Checked==true) { Edit70->GetTextBuf(tab_recept,Edit70->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit70->Text=transfert; } }// Fin du if (CheckBox64->Checked==true) if (CheckBox65->Checked==true) { Edit71->GetTextBuf(tab_recept,Edit71->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit71->Text=transfert; } }// Fin du if (CheckBox65->Checked==true) if (CheckBox66->Checked==true) { Edit72->GetTextBuf(tab_recept,Edit72->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit72->Text=transfert; } }// Fin du if (CheckBox66->Checked==true) if (CheckBox67->Checked==true) { Edit73->GetTextBuf(tab_recept,Edit73->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit73->Text=transfert; } }// Fin du if (CheckBox67->Checked==true) if (CheckBox68->Checked==true) { Edit74->GetTextBuf(tab_recept,Edit74->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit74->Text=transfert; } }// Fin du if (CheckBox68->Checked==true) if (CheckBox69->Checked==true) { Edit75->GetTextBuf(tab_recept,Edit75->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit75->Text=transfert; } }// Fin du if (CheckBox69->Checked==true) if (CheckBox70->Checked==true) { Edit76->GetTextBuf(tab_recept,Edit76->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit76->Text=transfert; } }// Fin du if (CheckBox70->Checked==true) if (CheckBox71->Checked==true) { Edit77->GetTextBuf(tab_recept,Edit77->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit77->Text=transfert; } }// Fin du if (CheckBox71->Checked==true) if (CheckBox72->Checked==true) { Edit78->GetTextBuf(tab_recept,Edit78->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit78->Text=transfert; } }// Fin du if (CheckBox72->Checked==true) if (CheckBox73->Checked==true) { Edit79->GetTextBuf(tab_recept,Edit79->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit79->Text=transfert; } }// Fin du if (CheckBox73->Checked==true) if (CheckBox74->Checked==true) { Edit80->GetTextBuf(tab_recept,Edit80->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit80->Text=transfert; } }// Fin du if (CheckBox74->Checked==true) if (CheckBox75->Checked==true) { Edit81->GetTextBuf(tab_recept,Edit81->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit81->Text=transfert; } }// Fin du if (CheckBox75->Checked==true) if (CheckBox76->Checked==true) { Edit82->GetTextBuf(tab_recept,Edit82->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit82->Text=transfert; } }// Fin du if (CheckBox76->Checked==true) if (CheckBox77->Checked==true) { Edit83->GetTextBuf(tab_recept,Edit83->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit83->Text=transfert; } }// Fin du if (CheckBox77->Checked==true) if (CheckBox78->Checked==true) { Edit84->GetTextBuf(tab_recept,Edit84->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit84->Text=transfert; } }// Fin du if (CheckBox78->Checked==true) if (CheckBox79->Checked==true) { Edit85->GetTextBuf(tab_recept,Edit85->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit85->Text=transfert; } }// Fin du if (CheckBox79->Checked==true) if (CheckBox80->Checked==true) { Edit86->GetTextBuf(tab_recept,Edit86->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit86->Text=transfert; } }// Fin du if (CheckBox80->Checked==true) if (CheckBox81->Checked==true) { Edit87->GetTextBuf(tab_recept,Edit87->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit87->Text=transfert; } }// Fin du if (CheckBox81->Checked==true) if (CheckBox82->Checked==true) { Edit88->GetTextBuf(tab_recept,Edit88->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit88->Text=transfert; } }// Fin du if (CheckBox82->Checked==true) if (CheckBox83->Checked==true) { Edit89->GetTextBuf(tab_recept,Edit89->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit89->Text=transfert; } }// Fin du if (CheckBox83->Checked==true) if (CheckBox84->Checked==true) { Edit90->GetTextBuf(tab_recept,Edit90->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit90->Text=transfert; } }// Fin du if (CheckBox84->Checked==true) if (CheckBox85->Checked==true) { Edit91->GetTextBuf(tab_recept,Edit91->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit91->Text=transfert; } }// Fin du if (CheckBox85->Checked==true) if (CheckBox86->Checked==true) { Edit92->GetTextBuf(tab_recept,Edit92->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit92->Text=transfert; } }// Fin du if (CheckBox86->Checked==true) if (CheckBox87->Checked==true) { Edit93->GetTextBuf(tab_recept,Edit93->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit93->Text=transfert; } }// Fin du if (CheckBox87->Checked==true) if (CheckBox88->Checked==true) { Edit94->GetTextBuf(tab_recept,Edit94->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit94->Text=transfert; } }// Fin du if (CheckBox88->Checked==true) if (CheckBox89->Checked==true) { Edit95->GetTextBuf(tab_recept,Edit95->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit95->Text=transfert; } }// Fin du if (CheckBox89->Checked==true) if (CheckBox90->Checked==true) { Edit96->GetTextBuf(tab_recept,Edit96->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit96->Text=transfert; } }// Fin du if (CheckBox90->Checked==true) if (CheckBox91->Checked==true) { Edit97->GetTextBuf(tab_recept,Edit97->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit97->Text=transfert; } }// Fin du if (CheckBox91->Checked==true) if (CheckBox92->Checked==true) { Edit98->GetTextBuf(tab_recept,Edit98->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit98->Text=transfert; } }// Fin du if (CheckBox92->Checked==true) if (CheckBox93->Checked==true) { Edit99->GetTextBuf(tab_recept,Edit99->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit99->Text=transfert; } }// Fin du if (CheckBox93->Checked==true) if (CheckBox94->Checked==true) { Edit100->GetTextBuf(tab_recept,Edit100->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit100->Text=transfert; } }// Fin du if (CheckBox94->Checked==true) if (CheckBox95->Checked==true) { Edit101->GetTextBuf(tab_recept,Edit101->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit101->Text=transfert; } }// Fin du if (CheckBox95->Checked==true) if (CheckBox96->Checked==true) { Edit102->GetTextBuf(tab_recept,Edit102->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit102->Text=transfert; } }// Fin du if (CheckBox96->Checked==true) if (CheckBox97->Checked==true) { Edit103->GetTextBuf(tab_recept,Edit103->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit103->Text=transfert; } }// Fin du if (CheckBox97->Checked==true) if (CheckBox98->Checked==true) { Edit104->GetTextBuf(tab_recept,Edit104->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit104->Text=transfert; } }// Fin du if (CheckBox98->Checked==true) if (CheckBox99->Checked==true) { Edit105->GetTextBuf(tab_recept,Edit105->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit105->Text=transfert; } }// Fin du if (CheckBox99->Checked==true) if (CheckBox100->Checked==true) { Edit106->GetTextBuf(tab_recept,Edit106->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit106->Text=transfert; } }// Fin du if (CheckBox100->Checked==true) if (CheckBox101->Checked==true) { Edit107->GetTextBuf(tab_recept,Edit107->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit107->Text=transfert; } }// Fin du if (CheckBox101->Checked==true) if (CheckBox102->Checked==true) { Edit108->GetTextBuf(tab_recept,Edit108->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit108->Text=transfert; } }// Fin du if (CheckBox102->Checked==true) if (CheckBox103->Checked==true) { Edit109->GetTextBuf(tab_recept,Edit109->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit109->Text=transfert; } }// Fin du if (CheckBox103->Checked==true) if (CheckBox104->Checked==true) { Edit110->GetTextBuf(tab_recept,Edit110->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit110->Text=transfert; } }// Fin du if (CheckBox104->Checked==true) if (CheckBox105->Checked==true) { Edit111->GetTextBuf(tab_recept,Edit111->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==9999) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit111->Text=transfert; } }// Fin du if (CheckBox105->Checked==true) memo--; Edit6->Text=xp; } // Fin du while } // Fin du else (if (admin0==1) Edit125->Text=""; if (err==1) Application->MessageBox("Vous n'avez pas assez de point d' XP.", "ATTENTION", MB_OK); if (err==2) Application->MessageBox("Vous avez atteint le maximun.", "ATTENTION", MB_OK); CheckBox1->Checked=false; CheckBox2->Checked=false; CheckBox3->Checked=false; CheckBox4->Checked=false; CheckBox5->Checked=false; CheckBox6->Checked=false; CheckBox7->Checked=false; CheckBox8->Checked=false; CheckBox9->Checked=false; CheckBox10->Checked=false; CheckBox11->Checked=false; CheckBox12->Checked=false; CheckBox13->Checked=false; CheckBox14->Checked=false; CheckBox15->Checked=false; CheckBox16->Checked=false; CheckBox17->Checked=false; CheckBox18->Checked=false; CheckBox19->Checked=false; CheckBox20->Checked=false; CheckBox21->Checked=false; CheckBox22->Checked=false; CheckBox23->Checked=false; CheckBox24->Checked=false; CheckBox25->Checked=false; CheckBox26->Checked=false; CheckBox27->Checked=false; CheckBox28->Checked=false; CheckBox29->Checked=false; CheckBox30->Checked=false; CheckBox31->Checked=false; CheckBox32->Checked=false; CheckBox33->Checked=false; CheckBox34->Checked=false; CheckBox35->Checked=false; CheckBox36->Checked=false; CheckBox37->Checked=false; CheckBox38->Checked=false; CheckBox39->Checked=false; CheckBox40->Checked=false; CheckBox41->Checked=false; CheckBox42->Checked=false; CheckBox43->Checked=false; CheckBox44->Checked=false; CheckBox45->Checked=false; CheckBox46->Checked=false; CheckBox47->Checked=false; CheckBox48->Checked=false; CheckBox49->Checked=false; CheckBox50->Checked=false; CheckBox51->Checked=false; CheckBox52->Checked=false; CheckBox53->Checked=false; CheckBox54->Checked=false; CheckBox55->Checked=false; CheckBox56->Checked=false; CheckBox57->Checked=false; CheckBox58->Checked=false; CheckBox59->Checked=false; CheckBox60->Checked=false; CheckBox61->Checked=false; CheckBox62->Checked=false; CheckBox63->Checked=false; CheckBox64->Checked=false; CheckBox65->Checked=false; CheckBox66->Checked=false; CheckBox67->Checked=false; CheckBox68->Checked=false; CheckBox69->Checked=false; CheckBox70->Checked=false; CheckBox71->Checked=false; CheckBox72->Checked=false; CheckBox73->Checked=false; CheckBox74->Checked=false; CheckBox75->Checked=false; CheckBox76->Checked=false; CheckBox77->Checked=false; CheckBox78->Checked=false; CheckBox79->Checked=false; CheckBox80->Checked=false; CheckBox81->Checked=false; CheckBox82->Checked=false; CheckBox83->Checked=false; CheckBox84->Checked=false; CheckBox85->Checked=false; CheckBox86->Checked=false; CheckBox87->Checked=false; CheckBox88->Checked=false; CheckBox89->Checked=false; CheckBox90->Checked=false; CheckBox91->Checked=false; CheckBox92->Checked=false; CheckBox93->Checked=false; CheckBox94->Checked=false; CheckBox95->Checked=false; CheckBox96->Checked=false; CheckBox97->Checked=false; CheckBox98->Checked=false; CheckBox99->Checked=false; CheckBox100->Checked=false; CheckBox101->Checked=false; CheckBox102->Checked=false; CheckBox103->Checked=false; CheckBox104->Checked=false; CheckBox105->Checked=false; total_tirage=0; } // Fin du boutton Attribution //--------------------------------------------------------------------------- void __fastcall TForm1::Button11Click(TObject *Sender) { // Gestion des discplines int dis=-1; int xp=0,rtt=0; Edit126->Text=ComboBox1->Text; Edit6->GetTextBuf(tab_recept,Edit6->GetTextLen()+1); xp=atoi(tab_recept); Edit126->GetTextBuf(tab_recept,Edit126->GetTextLen()+1); if (strcmp("animalisme",tab_recept)==0) dis=1; if (strcmp("auspex",tab_recept)==0) dis=2; if (strcmp("vissicitude",tab_recept)==0) dis=3; if (strcmp("metamorphose",tab_recept)==0) dis=4; if (strcmp("domination",tab_recept)==0) dis=5; if (strcmp("dissimulation",tab_recept)==0) dis=6; if (strcmp("obtenebration",tab_recept)==0) dis=7; if (strcmp("puissance",tab_recept)==0) dis=8; if (strcmp("habilite",tab_recept)==0) dis=9; if (strcmp("endurance",tab_recept)==0) dis=10; if (strcmp("daimonone 1",tab_recept)==0) dis=11; if (strcmp("daimonone 2",tab_recept)==0) dis=12; if (strcmp("daimonone 3",tab_recept)==0) dis=13; if (strcmp("daimonone 4",tab_recept)==0) dis=14; if (strcmp("humanisation",tab_recept)==0) dis=15; if (strcmp("saint",tab_recept)==0) dis=16; if (strcmp("telekinesie",tab_recept)==0) dis=17; if (strcmp("telephatie",tab_recept)==0) dis=18; if (strcmp("quietus",tab_recept)==0) dis=19; if (strcmp("meteorologie",tab_recept)==0) dis=20; if (strcmp("anti 1",tab_recept)==0) dis=21; if (strcmp("necromantie",tab_recept)==0) dis=22; if (strcmp("serpentis",tab_recept)==0) dis=23; if (strcmp("cbt en aveugle",tab_recept)==0) dis=24; if (strcmp("du 1 contre",tab_recept)==0) dis=25; if (strcmp("celerite",tab_recept)==0) dis=26; if (strcmp("ceremonie",tab_recept)==0) dis=27; if (strcmp("alenation",tab_recept)==0) dis=28; if (strcmp("invocation",tab_recept)==0) dis=29; if (strcmp("multiplication",tab_recept)==0) dis=30; if (strcmp("creation",tab_recept)==0) dis=31; if (strcmp("barriere",tab_recept)==0) dis=32; if (strcmp("clonage",tab_recept)==0) dis=33; if (strcmp("sharingan",tab_recept)==0) dis=34; if (strcmp("anti jutsu",tab_recept)==0) dis=35; if (strcmp("marche sur eau",tab_recept)==0) dis=36; if (strcmp("magie 1",tab_recept)==0) dis=37; if (strcmp("magie 2",tab_recept)==0) dis=38; if (strcmp("magie 3",tab_recept)==0) dis=39; if (strcmp("magie 4",tab_recept)==0) dis=40; if (((dis>=1) & (dis<=10)) | (((dis>=26) & (dis<=28))) | (dis==23) | (dis==19)) { rtt=7; } if (((dis>=11) & (dis<=18)) | ((dis>=20) & (dis<=22))) rtt=21; if ((dis==24) | (((dis>=29) & (dis<=40)))) rtt=14; if ((xp<rtt) & (admin0==0)) { Application->MessageBox("Vous n'avez pas assez de point d'XP", "ATTENTION", MB_OK); dis=0; } else { if (admin0==0) xp=xp-rtt; Edit6->Text=xp; } if ((Label96->Caption=="vide") & (dis>0)) { Label96->Caption=tab_recept; Edit92->Text=0; dis=0; } if ((Label97->Caption=="vide") & (dis>0)) { Label97->Caption=tab_recept; Edit93->Text=0; dis=0; } if ((Label98->Caption=="vide") & (dis>0)) { Label98->Caption=tab_recept; Edit94->Text=0; dis=0; } if ((Label99->Caption=="vide") & (dis>0)) { Label99->Caption=tab_recept; Edit95->Text=0; dis=0; } if ((Label100->Caption=="vide") & (dis>0)) { Label100->Caption=tab_recept; Edit96->Text=0; dis=0; } if ((Label101->Caption=="vide") & (dis>0)) { Label101->Caption=tab_recept; Edit97->Text=0; dis=0; } if ((Label102->Caption=="vide") & (dis>0)) { Label102->Caption=tab_recept; Edit98->Text=0; dis=0; } if ((Label103->Caption=="vide") & (dis>0)) { Label103->Caption=tab_recept; Edit99->Text=0; dis=0; } if ((Label104->Caption=="vide") & (dis>0)) { Label104->Caption=tab_recept; Edit100->Text=0; dis=0; } if ((Label105->Caption=="vide") & (dis>0)) { Label105->Caption=tab_recept; Edit101->Text=0; dis=0; } if ((Label106->Caption=="vide") & (dis>0)) { Label106->Caption=tab_recept; Edit102->Text=0; dis=0; } if ((Label107->Caption=="vide") & (dis>0)) { Label107->Caption=tab_recept; Edit103->Text=0; dis=0; } if ((Label108->Caption=="vide") & (dis>0)) { Label108->Caption=tab_recept; Edit104->Text=0; dis=0; } if ((Label109->Caption=="vide") & (dis>0)) { Label109->Caption=tab_recept; Edit105->Text=0; dis=0; } if ((Label110->Caption=="vide") & (dis>0)) { Label110->Caption=tab_recept; Edit106->Text=0; dis=0; } if ((Label111->Caption=="vide") & (dis>0)) { Label111->Caption=tab_recept; Edit107->Text=0; dis=0; } if ((Label112->Caption=="vide") & (dis>0)) { Label112->Caption=tab_recept; Edit108->Text=0; dis=0; } if ((Label113->Caption=="vide") & (dis>0)) { Label113->Caption=tab_recept; Edit109->Text=0; dis=0; } if ((Label114->Caption=="vide") & (dis>0)) { Label114->Caption=tab_recept; Edit110->Text=0; dis=0; } if ((Label115->Caption=="vide") & (dis>0)) { Label115->Caption=tab_recept; Edit111->Text=0; dis=0; } if ((Label115->Caption!="vide") & (dis!=0)) dis=99; if (dis==99) Application->MessageBox("Vous avez atteint le nbr de discipline maximun", "ATTENTION", MB_OK); if (dis==-1) Application->MessageBox("les disciplines connues :\n\n* animalisme\n* auspex\n* vissicitude\n* metamorphose\n* domination\n* dissimulation\n* obtenebration\n* puissance\n* habilite\n* endurance\n* daimonone 1~4\n* humanisation\n* saint\n* telekinesie\n* telephatie\n* quietus\n* meteorologie\n* anti 1\n* necromantie\n* serpentis\n* cbt en aveugle\n* du 1 contre\n* celerite\n* ceremonie\n* alenation\n* invocation\n* multiplication\n* creation\n* barriere\n* clonage\n* sharingan\n* anti jutsu\n* marche sur eau\n* magie 1~4\n", "Disciplines", MB_OK); ComboBox1->Text=""; Edit126->Text=""; } //--------------------------------------------------------------------------- void __fastcall TForm1::Edit125Change(TObject *Sender) { if (admin0==0) { Edit125->MaxLength=2; } else { Edit125->MaxLength=4; } } //--------------------------------------------------------------------------- void __fastcall TForm1::Quitter1Click(TObject *Sender) { // Arret de l'application int BT; if (config==1) { BT=Application->MessageBox("La configuration a été modifié\r\nVoulez-vous sauvegarder la nouvelle configuration ?", "ATTENTION", MB_YESNO + MB_DEFBUTTON1); if (BT==IDNO) { config=0; Close(); } if (BT==IDYES) { Image1->Picture->SaveToFile("Configuration\\Img.bmp"); Color->GetTextBuf(tab_recept,Color->GetTextLen()+1); Memo1->Text=tab_recept; Memo1->Lines->SaveToFile("Configuration\\Img.color"); Edit112->GetTextBuf(tab_recept,Edit112->GetTextLen()+1); Memo1->Text=tab_recept; Memo1->Lines->SaveToFile("Configuration\\txt.color"); Application->MessageBox("La configuration a été sauvegardée.", "ATTENTION", MB_OK); config=0; Close(); } } else { Close(); } } //--------------------------------------------------------------------------- void __fastcall TForm1::Images1Click(TObject *Sender) { // Recherche d'une image pour l'afficher int BT; OpenPictureDialog1->Options.Clear(); OpenPictureDialog1->Options << ofNoChangeDir; BT=OpenPictureDialog1->Execute(); if (BT==IDOK) { Image1->Picture->LoadFromFile(OpenPictureDialog1->FileName); Image1->Align=alTop; Image1->Top=0; Image1->Left=0; Image1->AutoSize=true; Image1->Center=true; config=1; } } //--------------------------------------------------------------------------- void __fastcall TForm1::CouleurText1Click(TObject *Sender) { // Choisit la couleur du texte int BT; BT=ColorDialog1->Execute(); if (BT==IDOK) { Form1->Font->Color=ColorDialog1->Color; Color->Text=ColorDialog1->Color; config=1; } } //--------------------------------------------------------------------------- void __fastcall TForm1::Toutcocher1Click(TObject *Sender) { // Tout cocher if (admin1==0) { CheckBox1->Checked=true; CheckBox2->Checked=true; CheckBox3->Checked=true; CheckBox4->Checked=true; CheckBox5->Checked=true; CheckBox6->Checked=true; CheckBox7->Checked=true; CheckBox8->Checked=true; CheckBox9->Checked=true; CheckBox10->Checked=true; CheckBox11->Checked=true; CheckBox12->Checked=true; CheckBox13->Checked=true; CheckBox14->Checked=true; CheckBox15->Checked=true; CheckBox16->Checked=true; CheckBox17->Checked=true; CheckBox18->Checked=true; CheckBox19->Checked=true; CheckBox20->Checked=true; CheckBox21->Checked=true; CheckBox22->Checked=true; CheckBox23->Checked=true; CheckBox24->Checked=true; CheckBox25->Checked=true; CheckBox26->Checked=true; CheckBox27->Checked=true; CheckBox28->Checked=true; CheckBox29->Checked=true; CheckBox30->Checked=true; CheckBox31->Checked=true; CheckBox32->Checked=true; CheckBox33->Checked=true; CheckBox34->Checked=true; CheckBox35->Checked=true; CheckBox36->Checked=true; CheckBox37->Checked=true; CheckBox38->Checked=true; CheckBox39->Checked=true; CheckBox40->Checked=true; CheckBox41->Checked=true; CheckBox42->Checked=true; CheckBox43->Checked=true; CheckBox44->Checked=true; CheckBox45->Checked=true; CheckBox46->Checked=true; CheckBox47->Checked=true; CheckBox48->Checked=true; CheckBox49->Checked=true; CheckBox50->Checked=true; CheckBox51->Checked=true; CheckBox52->Checked=true; CheckBox53->Checked=true; CheckBox54->Checked=true; CheckBox55->Checked=true; CheckBox56->Checked=true; CheckBox57->Checked=true; CheckBox58->Checked=true; CheckBox59->Checked=true; CheckBox60->Checked=true; CheckBox61->Checked=true; CheckBox62->Checked=true; CheckBox63->Checked=true; CheckBox64->Checked=true; CheckBox65->Checked=true; CheckBox66->Checked=true; CheckBox67->Checked=true; CheckBox68->Checked=true; CheckBox69->Checked=true; CheckBox70->Checked=true; CheckBox71->Checked=true; CheckBox72->Checked=true; CheckBox73->Checked=true; CheckBox74->Checked=true; CheckBox75->Checked=true; CheckBox76->Checked=true; CheckBox77->Checked=true; CheckBox78->Checked=true; CheckBox79->Checked=true; CheckBox80->Checked=true; CheckBox81->Checked=true; CheckBox82->Checked=true; CheckBox83->Checked=true; CheckBox84->Checked=true; CheckBox85->Checked=true; CheckBox86->Checked=true; CheckBox87->Checked=true; CheckBox88->Checked=true; CheckBox89->Checked=true; CheckBox90->Checked=true; CheckBox91->Checked=true; CheckBox92->Checked=true; CheckBox93->Checked=true; CheckBox94->Checked=true; CheckBox95->Checked=true; CheckBox96->Checked=true; CheckBox97->Checked=true; CheckBox98->Checked=true; CheckBox99->Checked=true; CheckBox100->Checked=true; CheckBox101->Checked=true; CheckBox102->Checked=true; CheckBox103->Checked=true; CheckBox104->Checked=true; CheckBox105->Checked=true; admin1=1; } else { CheckBox1->Checked=false; CheckBox2->Checked=false; CheckBox3->Checked=false; CheckBox4->Checked=false; CheckBox5->Checked=false; CheckBox6->Checked=false; CheckBox7->Checked=false; CheckBox8->Checked=false; CheckBox9->Checked=false; CheckBox10->Checked=false; CheckBox11->Checked=false; CheckBox12->Checked=false; CheckBox13->Checked=false; CheckBox14->Checked=false; CheckBox15->Checked=false; CheckBox16->Checked=false; CheckBox17->Checked=false; CheckBox18->Checked=false; CheckBox19->Checked=false; CheckBox20->Checked=false; CheckBox21->Checked=false; CheckBox22->Checked=false; CheckBox23->Checked=false; CheckBox24->Checked=false; CheckBox25->Checked=false; CheckBox26->Checked=false; CheckBox27->Checked=false; CheckBox28->Checked=false; CheckBox29->Checked=false; CheckBox30->Checked=false; CheckBox31->Checked=false; CheckBox32->Checked=false; CheckBox33->Checked=false; CheckBox34->Checked=false; CheckBox35->Checked=false; CheckBox36->Checked=false; CheckBox37->Checked=false; CheckBox38->Checked=false; CheckBox39->Checked=false; CheckBox40->Checked=false; CheckBox41->Checked=false; CheckBox42->Checked=false; CheckBox43->Checked=false; CheckBox44->Checked=false; CheckBox45->Checked=false; CheckBox46->Checked=false; CheckBox47->Checked=false; CheckBox48->Checked=false; CheckBox49->Checked=false; CheckBox50->Checked=false; CheckBox51->Checked=false; CheckBox52->Checked=false; CheckBox53->Checked=false; CheckBox54->Checked=false; CheckBox55->Checked=false; CheckBox56->Checked=false; CheckBox57->Checked=false; CheckBox58->Checked=false; CheckBox59->Checked=false; CheckBox60->Checked=false; CheckBox61->Checked=false; CheckBox62->Checked=false; CheckBox63->Checked=false; CheckBox64->Checked=false; CheckBox65->Checked=false; CheckBox66->Checked=false; CheckBox67->Checked=false; CheckBox68->Checked=false; CheckBox69->Checked=false; CheckBox70->Checked=false; CheckBox71->Checked=false; CheckBox72->Checked=false; CheckBox73->Checked=false; CheckBox74->Checked=false; CheckBox75->Checked=false; CheckBox76->Checked=false; CheckBox77->Checked=false; CheckBox78->Checked=false; CheckBox79->Checked=false; CheckBox80->Checked=false; CheckBox81->Checked=false; CheckBox82->Checked=false; CheckBox83->Checked=false; CheckBox84->Checked=false; CheckBox85->Checked=false; CheckBox86->Checked=false; CheckBox87->Checked=false; CheckBox88->Checked=false; CheckBox89->Checked=false; CheckBox90->Checked=false; CheckBox91->Checked=false; CheckBox92->Checked=false; CheckBox93->Checked=false; CheckBox94->Checked=false; CheckBox95->Checked=false; CheckBox96->Checked=false; CheckBox97->Checked=false; CheckBox98->Checked=false; CheckBox99->Checked=false; CheckBox100->Checked=false; CheckBox101->Checked=false; CheckBox102->Checked=false; CheckBox103->Checked=false; CheckBox104->Checked=false; CheckBox105->Checked=false; admin1=0; } } //--------------------------------------------------------------------------- void __fastcall TForm1::Nouveau1Click(TObject *Sender) { total_tirage=0; Edit1->Text=""; Edit2->Text=""; Edit3->Text=""; Edit4->Text=12; Edit5->Text=""; Edit6->Text=250; Edit7->Text=0; Edit8->Text=0; Edit9->Text=0; Edit10->Text=0; Edit11->Text=0; Edit12->Text=0; Edit13->Text=0; Edit14->Text=0; Edit15->Text=0; Edit16->Text=0; Edit17->Text=0; Edit18->Text=0; Edit19->Text=0; Edit20->Text=0; Edit21->Text=0; Edit22->Text=0; Edit23->Text=0; Edit24->Text=0; Edit25->Text=0; Edit26->Text=0; Edit27->Text=0; Edit28->Text=0; Edit29->Text=0; Edit30->Text=0; Edit31->Text=0; Edit32->Text=0; Edit33->Text=0; Edit34->Text=0; Edit35->Text=0; Edit36->Text=0; Edit37->Text=0; Edit38->Text=0; Edit39->Text=0; Edit40->Text=0; Edit41->Text=0; Edit42->Text=0; Edit43->Text=0; Edit44->Text=0; Edit45->Text=0; Edit46->Text=0; Edit47->Text=0; Edit48->Text=0; Edit49->Text=0; Edit50->Text=0; Edit51->Text=0; Edit52->Text=0; Edit53->Text=0; Edit54->Text=0; Edit55->Text=0; Edit56->Text=0; Edit57->Text=0; Edit58->Text=0; Edit59->Text=0; Edit60->Text=0; Edit61->Text=0; Edit62->Text=0; Edit63->Text=0; Edit64->Text=0; Edit65->Text=0; Edit66->Text=0; Edit67->Text=0; Edit68->Text=0; Edit69->Text=0; Edit70->Text=0; Edit71->Text=0; Edit72->Text=0; Edit73->Text=0; Edit74->Text=0; Edit75->Text=0; Edit76->Text=0; Edit77->Text=0; Edit78->Text=0; Edit79->Text=0; Edit80->Text=0; Edit81->Text=0; Edit82->Text=0; Edit83->Text=0; Edit84->Text=0; Edit85->Text=0; Edit86->Text=0; Edit87->Text=0; Edit88->Text=0; Edit89->Text=0; Edit90->Text=0; Edit91->Text=0; Edit92->Text=""; Edit93->Text=""; Edit94->Text=""; Edit95->Text=""; Edit96->Text=""; Edit97->Text=""; Edit98->Text=""; Edit99->Text=""; Edit100->Text=""; Edit101->Text=""; Edit102->Text=""; Edit103->Text=""; Edit104->Text=""; Edit105->Text=""; Edit106->Text=""; Edit107->Text=""; Edit108->Text=""; Edit109->Text=""; Edit110->Text=""; Edit111->Text=""; /* les disciplines */ Label96->Caption="vide"; Label97->Caption="vide"; Label98->Caption="vide"; Label99->Caption="vide"; Label100->Caption="vide"; Label101->Caption="vide"; Label102->Caption="vide"; Label103->Caption="vide"; Label104->Caption="vide"; Label105->Caption="vide"; Label106->Caption="vide"; Label107->Caption="vide"; Label108->Caption="vide"; Label109->Caption="vide"; Label110->Caption="vide"; Label111->Caption="vide"; Label112->Caption="vide"; Label113->Caption="vide"; Label114->Caption="vide"; Label115->Caption="vide"; Form4->Visible=true; Form1->Enabled=false; } //--------------------------------------------------------------------------- void __fastcall TForm1::Attribution1Click(TObject *Sender) { // Attribution des XP... int memo; int xp; int err=0; Edit125->GetTextBuf(tab_recept,Edit125->GetTextLen()+1); memo=atoi(tab_recept); Edit6->GetTextBuf(tab_recept,Edit6->GetTextLen()+1); xp=atoi(tab_recept); if (admin0==1) { xp=xp+memo; if (xp>9999) xp=9999; Edit6->Text=xp; } else { while ((memo>0) & (err==0)) { if (CheckBox1->Checked==true) { Edit7->GetTextBuf(tab_recept,Edit7->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*5; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/5; transfert++; Edit7->Text=transfert; } }// Fin du if (CheckBox1->Checked==true) if (CheckBox2->Checked==true) { Edit8->GetTextBuf(tab_recept,Edit8->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*5; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/5; transfert++; Edit8->Text=transfert; } }// Fin du if (CheckBox2->Checked==true) if (CheckBox3->Checked==true) { Edit9->GetTextBuf(tab_recept,Edit9->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*5; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/5; transfert++; Edit9->Text=transfert; } }// Fin du if (CheckBox3->Checked==true) if (CheckBox4->Checked==true) { Edit10->GetTextBuf(tab_recept,Edit10->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*5; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/5; transfert++; Edit10->Text=transfert; } }// Fin du if (CheckBox4->Checked==true) if (CheckBox5->Checked==true) { Edit11->GetTextBuf(tab_recept,Edit11->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*5; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/5; transfert++; Edit11->Text=transfert; } }// Fin du if (CheckBox5->Checked==true) if (CheckBox6->Checked==true) { Edit12->GetTextBuf(tab_recept,Edit12->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*5; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/5; transfert++; Edit12->Text=transfert; } }// Fin du if (CheckBox6->Checked==true) if (CheckBox7->Checked==true) { Edit13->GetTextBuf(tab_recept,Edit13->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*5; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/5; transfert++; Edit13->Text=transfert; } }// Fin du if (CheckBox7->Checked==true) if (CheckBox8->Checked==true) { Edit14->GetTextBuf(tab_recept,Edit14->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*5; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/5; transfert++; Edit14->Text=transfert; } }// Fin du if (CheckBox8->Checked==true) if (CheckBox9->Checked==true) { Edit15->GetTextBuf(tab_recept,Edit15->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*5; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/5; transfert++; Edit15->Text=transfert; } }// Fin du if (CheckBox9->Checked==true) if (CheckBox10->Checked==true) { Edit16->GetTextBuf(tab_recept,Edit16->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*8; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/8; transfert++; Edit16->Text=transfert; } }// Fin du if (CheckBox10->Checked==true) if (CheckBox11->Checked==true) { Edit17->GetTextBuf(tab_recept,Edit17->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*8; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/8; transfert++; Edit17->Text=transfert; } }// Fin du if (CheckBox11->Checked==true) if (CheckBox12->Checked==true) { Edit18->GetTextBuf(tab_recept,Edit18->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*8; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/8; transfert++; Edit18->Text=transfert; } }// Fin du if (CheckBox12->Checked==true) if (CheckBox13->Checked==true) { Edit19->GetTextBuf(tab_recept,Edit19->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit19->Text=transfert; } }// Fin du if (CheckBox13->Checked==true) if (CheckBox14->Checked==true) { Edit20->GetTextBuf(tab_recept,Edit20->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit20->Text=transfert; } }// Fin du if (CheckBox14->Checked==true) if (CheckBox15->Checked==true) { Edit21->GetTextBuf(tab_recept,Edit21->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit21->Text=transfert; } }// Fin du if (CheckBox15->Checked==true) if (CheckBox16->Checked==true) { Edit22->GetTextBuf(tab_recept,Edit22->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit22->Text=transfert; } }// Fin du if (CheckBox16->Checked==true) if (CheckBox17->Checked==true) { Edit23->GetTextBuf(tab_recept,Edit23->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit23->Text=transfert; } }// Fin du if (CheckBox17->Checked==true) if (CheckBox18->Checked==true) { Edit24->GetTextBuf(tab_recept,Edit24->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit24->Text=transfert; } }// Fin du if (CheckBox18->Checked==true) if (CheckBox19->Checked==true) { Edit25->GetTextBuf(tab_recept,Edit25->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit25->Text=transfert; } }// Fin du if (CheckBox19->Checked==true) if (CheckBox20->Checked==true) { Edit26->GetTextBuf(tab_recept,Edit26->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit26->Text=transfert; } }// Fin du if (CheckBox20->Checked==true) if (CheckBox21->Checked==true) { Edit27->GetTextBuf(tab_recept,Edit27->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit27->Text=transfert; } }// Fin du if (CheckBox21->Checked==true) if (CheckBox22->Checked==true) { Edit28->GetTextBuf(tab_recept,Edit28->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit28->Text=transfert; } }// Fin du if (CheckBox22->Checked==true) if (CheckBox23->Checked==true) { Edit29->GetTextBuf(tab_recept,Edit29->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit29->Text=transfert; } }// Fin du if (CheckBox23->Checked==true) if (CheckBox24->Checked==true) { Edit30->GetTextBuf(tab_recept,Edit30->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit30->Text=transfert; } }// Fin du if (CheckBox25->Checked==true) if (CheckBox24->Checked==true) { Edit31->GetTextBuf(tab_recept,Edit31->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit31->Text=transfert; } }// Fin du if (CheckBox25->Checked==true) if (CheckBox26->Checked==true) { Edit32->GetTextBuf(tab_recept,Edit32->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit32->Text=transfert; } }// Fin du if (CheckBox26->Checked==true) if (CheckBox27->Checked==true) { Edit33->GetTextBuf(tab_recept,Edit33->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit33->Text=transfert; } }// Fin du if (CheckBox27->Checked==true) if (CheckBox28->Checked==true) { Edit34->GetTextBuf(tab_recept,Edit34->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit34->Text=transfert; } }// Fin du if (CheckBox28->Checked==true) if (CheckBox29->Checked==true) { Edit35->GetTextBuf(tab_recept,Edit35->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit35->Text=transfert; } }// Fin du if (CheckBox29->Checked==true) if (CheckBox30->Checked==true) { Edit36->GetTextBuf(tab_recept,Edit36->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit36->Text=transfert; } }// Fin du if (CheckBox30->Checked==true) if (CheckBox31->Checked==true) { Edit37->GetTextBuf(tab_recept,Edit37->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit37->Text=transfert; } }// Fin du if (CheckBox31->Checked==true) if (CheckBox32->Checked==true) { Edit38->GetTextBuf(tab_recept,Edit38->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit38->Text=transfert; } }// Fin du if (CheckBox32->Checked==true) if (CheckBox33->Checked==true) { Edit39->GetTextBuf(tab_recept,Edit39->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit39->Text=transfert; } }// Fin du if (CheckBox33->Checked==true) if (CheckBox34->Checked==true) { Edit40->GetTextBuf(tab_recept,Edit40->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit40->Text=transfert; } }// Fin du if (CheckBox34->Checked==true) if (CheckBox35->Checked==true) { Edit41->GetTextBuf(tab_recept,Edit41->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit41->Text=transfert; } }// Fin du if (CheckBox35->Checked==true) if (CheckBox36->Checked==true) { Edit42->GetTextBuf(tab_recept,Edit42->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit42->Text=transfert; } }// Fin du if (CheckBox36->Checked==true) if (CheckBox37->Checked==true) { Edit43->GetTextBuf(tab_recept,Edit43->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit43->Text=transfert; } }// Fin du if (CheckBox37->Checked==true) if (CheckBox38->Checked==true) { Edit44->GetTextBuf(tab_recept,Edit44->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit44->Text=transfert; } }// Fin du if (CheckBox38->Checked==true) if (CheckBox39->Checked==true) { Edit45->GetTextBuf(tab_recept,Edit45->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit45->Text=transfert; } }// Fin du if (CheckBox39->Checked==true) if (CheckBox40->Checked==true) { Edit46->GetTextBuf(tab_recept,Edit46->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit46->Text=transfert; } }// Fin du if (CheckBox40->Checked==true) if (CheckBox41->Checked==true) { Edit47->GetTextBuf(tab_recept,Edit47->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit47->Text=transfert; } }// Fin du if (CheckBox41->Checked==true) if (CheckBox42->Checked==true) { Edit48->GetTextBuf(tab_recept,Edit48->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit48->Text=transfert; } }// Fin du if (CheckBox42->Checked==true) if (CheckBox43->Checked==true) { Edit49->GetTextBuf(tab_recept,Edit49->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit49->Text=transfert; } }// Fin du if (CheckBox43->Checked==true) if (CheckBox44->Checked==true) { Edit50->GetTextBuf(tab_recept,Edit50->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit50->Text=transfert; } }// Fin du if (CheckBox44->Checked==true) if (CheckBox45->Checked==true) { Edit51->GetTextBuf(tab_recept,Edit51->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit51->Text=transfert; } }// Fin du if (CheckBox45->Checked==true) if (CheckBox46->Checked==true) { Edit52->GetTextBuf(tab_recept,Edit52->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit52->Text=transfert; } }// Fin du if (CheckBox46->Checked==true) if (CheckBox47->Checked==true) { Edit53->GetTextBuf(tab_recept,Edit53->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit53->Text=transfert; } }// Fin du if (CheckBox47->Checked==true) if (CheckBox48->Checked==true) { Edit54->GetTextBuf(tab_recept,Edit54->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit54->Text=transfert; } }// Fin du if (CheckBox48->Checked==true) if (CheckBox49->Checked==true) { Edit55->GetTextBuf(tab_recept,Edit55->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit55->Text=transfert; } }// Fin du if (CheckBox49->Checked==true) if (CheckBox50->Checked==true) { Edit56->GetTextBuf(tab_recept,Edit56->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit56->Text=transfert; } }// Fin du if (CheckBox50->Checked==true) if (CheckBox51->Checked==true) { Edit57->GetTextBuf(tab_recept,Edit57->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit57->Text=transfert; } }// Fin du if (CheckBox51->Checked==true) if (CheckBox52->Checked==true) { Edit58->GetTextBuf(tab_recept,Edit58->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit58->Text=transfert; } }// Fin du if (CheckBox52->Checked==true) if (CheckBox53->Checked==true) { Edit59->GetTextBuf(tab_recept,Edit59->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit59->Text=transfert; } }// Fin du if (CheckBox53->Checked==true) if (CheckBox54->Checked==true) { Edit60->GetTextBuf(tab_recept,Edit60->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit60->Text=transfert; } }// Fin du if (CheckBox54->Checked==true) if (CheckBox55->Checked==true) { Edit61->GetTextBuf(tab_recept,Edit61->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit61->Text=transfert; } }// Fin du if (CheckBox55->Checked==true) if (CheckBox56->Checked==true) { Edit62->GetTextBuf(tab_recept,Edit62->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit62->Text=transfert; } }// Fin du if (CheckBox56->Checked==true) if (CheckBox57->Checked==true) { Edit63->GetTextBuf(tab_recept,Edit63->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit63->Text=transfert; } }// Fin du if (CheckBox57->Checked==true) if (CheckBox58->Checked==true) { Edit64->GetTextBuf(tab_recept,Edit64->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit64->Text=transfert; } }// Fin du if (CheckBox58->Checked==true) if (CheckBox59->Checked==true) { Edit65->GetTextBuf(tab_recept,Edit65->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit65->Text=transfert; } }// Fin du if (CheckBox59->Checked==true) if (CheckBox60->Checked==true) { Edit66->GetTextBuf(tab_recept,Edit66->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit66->Text=transfert; } }// Fin du if (CheckBox60->Checked==true) if (CheckBox61->Checked==true) { Edit67->GetTextBuf(tab_recept,Edit67->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit67->Text=transfert; } }// Fin du if (CheckBox61->Checked==true) if (CheckBox62->Checked==true) { Edit68->GetTextBuf(tab_recept,Edit68->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit68->Text=transfert; } }// Fin du if (CheckBox62->Checked==true) if (CheckBox63->Checked==true) { Edit69->GetTextBuf(tab_recept,Edit69->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit69->Text=transfert; } }// Fin du if (CheckBox63->Checked==true) if (CheckBox64->Checked==true) { Edit70->GetTextBuf(tab_recept,Edit70->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit70->Text=transfert; } }// Fin du if (CheckBox64->Checked==true) if (CheckBox65->Checked==true) { Edit71->GetTextBuf(tab_recept,Edit71->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit71->Text=transfert; } }// Fin du if (CheckBox65->Checked==true) if (CheckBox66->Checked==true) { Edit72->GetTextBuf(tab_recept,Edit72->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit72->Text=transfert; } }// Fin du if (CheckBox66->Checked==true) if (CheckBox67->Checked==true) { Edit73->GetTextBuf(tab_recept,Edit73->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit73->Text=transfert; } }// Fin du if (CheckBox67->Checked==true) if (CheckBox68->Checked==true) { Edit74->GetTextBuf(tab_recept,Edit74->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit74->Text=transfert; } }// Fin du if (CheckBox68->Checked==true) if (CheckBox69->Checked==true) { Edit75->GetTextBuf(tab_recept,Edit75->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit75->Text=transfert; } }// Fin du if (CheckBox69->Checked==true) if (CheckBox70->Checked==true) { Edit76->GetTextBuf(tab_recept,Edit76->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit76->Text=transfert; } }// Fin du if (CheckBox70->Checked==true) if (CheckBox71->Checked==true) { Edit77->GetTextBuf(tab_recept,Edit77->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit77->Text=transfert; } }// Fin du if (CheckBox71->Checked==true) if (CheckBox72->Checked==true) { Edit78->GetTextBuf(tab_recept,Edit78->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit78->Text=transfert; } }// Fin du if (CheckBox72->Checked==true) if (CheckBox73->Checked==true) { Edit79->GetTextBuf(tab_recept,Edit79->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit79->Text=transfert; } }// Fin du if (CheckBox73->Checked==true) if (CheckBox74->Checked==true) { Edit80->GetTextBuf(tab_recept,Edit80->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit80->Text=transfert; } }// Fin du if (CheckBox74->Checked==true) if (CheckBox75->Checked==true) { Edit81->GetTextBuf(tab_recept,Edit81->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit81->Text=transfert; } }// Fin du if (CheckBox75->Checked==true) if (CheckBox76->Checked==true) { Edit82->GetTextBuf(tab_recept,Edit82->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit82->Text=transfert; } }// Fin du if (CheckBox76->Checked==true) if (CheckBox77->Checked==true) { Edit83->GetTextBuf(tab_recept,Edit83->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit83->Text=transfert; } }// Fin du if (CheckBox77->Checked==true) if (CheckBox78->Checked==true) { Edit84->GetTextBuf(tab_recept,Edit84->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit84->Text=transfert; } }// Fin du if (CheckBox78->Checked==true) if (CheckBox79->Checked==true) { Edit85->GetTextBuf(tab_recept,Edit85->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit85->Text=transfert; } }// Fin du if (CheckBox79->Checked==true) if (CheckBox80->Checked==true) { Edit86->GetTextBuf(tab_recept,Edit86->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit86->Text=transfert; } }// Fin du if (CheckBox80->Checked==true) if (CheckBox81->Checked==true) { Edit87->GetTextBuf(tab_recept,Edit87->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit87->Text=transfert; } }// Fin du if (CheckBox81->Checked==true) if (CheckBox82->Checked==true) { Edit88->GetTextBuf(tab_recept,Edit88->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit88->Text=transfert; } }// Fin du if (CheckBox82->Checked==true) if (CheckBox83->Checked==true) { Edit89->GetTextBuf(tab_recept,Edit89->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit89->Text=transfert; } }// Fin du if (CheckBox83->Checked==true) if (CheckBox84->Checked==true) { Edit90->GetTextBuf(tab_recept,Edit90->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit90->Text=transfert; } }// Fin du if (CheckBox84->Checked==true) if (CheckBox85->Checked==true) { Edit91->GetTextBuf(tab_recept,Edit91->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*2; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/2; transfert++; Edit91->Text=transfert; } }// Fin du if (CheckBox85->Checked==true) if (CheckBox86->Checked==true) { Edit92->GetTextBuf(tab_recept,Edit92->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit92->Text=transfert; } }// Fin du if (CheckBox86->Checked==true) if (CheckBox87->Checked==true) { Edit93->GetTextBuf(tab_recept,Edit93->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit93->Text=transfert; } }// Fin du if (CheckBox87->Checked==true) if (CheckBox88->Checked==true) { Edit94->GetTextBuf(tab_recept,Edit94->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit94->Text=transfert; } }// Fin du if (CheckBox88->Checked==true) if (CheckBox89->Checked==true) { Edit95->GetTextBuf(tab_recept,Edit95->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit95->Text=transfert; } }// Fin du if (CheckBox89->Checked==true) if (CheckBox90->Checked==true) { Edit96->GetTextBuf(tab_recept,Edit96->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit96->Text=transfert; } }// Fin du if (CheckBox90->Checked==true) if (CheckBox91->Checked==true) { Edit97->GetTextBuf(tab_recept,Edit97->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit97->Text=transfert; } }// Fin du if (CheckBox91->Checked==true) if (CheckBox92->Checked==true) { Edit98->GetTextBuf(tab_recept,Edit98->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit98->Text=transfert; } }// Fin du if (CheckBox92->Checked==true) if (CheckBox93->Checked==true) { Edit99->GetTextBuf(tab_recept,Edit99->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit99->Text=transfert; } }// Fin du if (CheckBox93->Checked==true) if (CheckBox94->Checked==true) { Edit100->GetTextBuf(tab_recept,Edit100->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit100->Text=transfert; } }// Fin du if (CheckBox94->Checked==true) if (CheckBox95->Checked==true) { Edit101->GetTextBuf(tab_recept,Edit101->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit101->Text=transfert; } }// Fin du if (CheckBox95->Checked==true) if (CheckBox96->Checked==true) { Edit102->GetTextBuf(tab_recept,Edit102->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit102->Text=transfert; } }// Fin du if (CheckBox96->Checked==true) if (CheckBox97->Checked==true) { Edit103->GetTextBuf(tab_recept,Edit103->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit103->Text=transfert; } }// Fin du if (CheckBox97->Checked==true) if (CheckBox98->Checked==true) { Edit104->GetTextBuf(tab_recept,Edit104->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit104->Text=transfert; } }// Fin du if (CheckBox98->Checked==true) if (CheckBox99->Checked==true) { Edit105->GetTextBuf(tab_recept,Edit105->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit105->Text=transfert; } }// Fin du if (CheckBox99->Checked==true) if (CheckBox100->Checked==true) { Edit106->GetTextBuf(tab_recept,Edit106->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit106->Text=transfert; } }// Fin du if (CheckBox100->Checked==true) if (CheckBox101->Checked==true) { Edit107->GetTextBuf(tab_recept,Edit107->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit107->Text=transfert; } }// Fin du if (CheckBox101->Checked==true) if (CheckBox102->Checked==true) { Edit108->GetTextBuf(tab_recept,Edit108->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit108->Text=transfert; } }// Fin du if (CheckBox102->Checked==true) if (CheckBox103->Checked==true) { Edit109->GetTextBuf(tab_recept,Edit109->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit109->Text=transfert; } }// Fin du if (CheckBox103->Checked==true) if (CheckBox104->Checked==true) { Edit110->GetTextBuf(tab_recept,Edit110->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit110->Text=transfert; } }// Fin du if (CheckBox104->Checked==true) if (CheckBox105->Checked==true) { Edit111->GetTextBuf(tab_recept,Edit111->GetTextLen()+1); transfert=atoi(tab_recept); if (transfert==99) err=2; transfert=transfert*7; if (xp<transfert) err=1; if ((xp>=transfert) & (err==0)) { xp=xp-transfert; transfert=transfert/7; transfert++; Edit111->Text=transfert; } }// Fin du if (CheckBox105->Checked==true) memo--; Edit6->Text=xp; } // Fin du while } // Fin du else (if (admin0==1) Edit125->Text=""; if (err==1) Application->MessageBox("Vous n'avez pas assez de point d' XP.", "ATTENTION", MB_OK); if (err==2) Application->MessageBox("Vous avez atteint le maximun.", "ATTENTION", MB_OK); CheckBox1->Checked=false; CheckBox2->Checked=false; CheckBox3->Checked=false; CheckBox4->Checked=false; CheckBox5->Checked=false; CheckBox6->Checked=false; CheckBox7->Checked=false; CheckBox8->Checked=false; CheckBox9->Checked=false; CheckBox10->Checked=false; CheckBox11->Checked=false; CheckBox12->Checked=false; CheckBox13->Checked=false; CheckBox14->Checked=false; CheckBox15->Checked=false; CheckBox16->Checked=false; CheckBox17->Checked=false; CheckBox18->Checked=false; CheckBox19->Checked=false; CheckBox20->Checked=false; CheckBox21->Checked=false; CheckBox22->Checked=false; CheckBox23->Checked=false; CheckBox24->Checked=false; CheckBox25->Checked=false; CheckBox26->Checked=false; CheckBox27->Checked=false; CheckBox28->Checked=false; CheckBox29->Checked=false; CheckBox30->Checked=false; CheckBox31->Checked=false; CheckBox32->Checked=false; CheckBox33->Checked=false; CheckBox34->Checked=false; CheckBox35->Checked=false; CheckBox36->Checked=false; CheckBox37->Checked=false; CheckBox38->Checked=false; CheckBox39->Checked=false; CheckBox40->Checked=false; CheckBox41->Checked=false; CheckBox42->Checked=false; CheckBox43->Checked=false; CheckBox44->Checked=false; CheckBox45->Checked=false; CheckBox46->Checked=false; CheckBox47->Checked=false; CheckBox48->Checked=false; CheckBox49->Checked=false; CheckBox50->Checked=false; CheckBox51->Checked=false; CheckBox52->Checked=false; CheckBox53->Checked=false; CheckBox54->Checked=false; CheckBox55->Checked=false; CheckBox56->Checked=false; CheckBox57->Checked=false; CheckBox58->Checked=false; CheckBox59->Checked=false; CheckBox60->Checked=false; CheckBox61->Checked=false; CheckBox62->Checked=false; CheckBox63->Checked=false; CheckBox64->Checked=false; CheckBox65->Checked=false; CheckBox66->Checked=false; CheckBox67->Checked=false; CheckBox68->Checked=false; CheckBox69->Checked=false; CheckBox70->Checked=false; CheckBox71->Checked=false; CheckBox72->Checked=false; CheckBox73->Checked=false; CheckBox74->Checked=false; CheckBox75->Checked=false; CheckBox76->Checked=false; CheckBox77->Checked=false; CheckBox78->Checked=false; CheckBox79->Checked=false; CheckBox80->Checked=false; CheckBox81->Checked=false; CheckBox82->Checked=false; CheckBox83->Checked=false; CheckBox84->Checked=false; CheckBox85->Checked=false; CheckBox86->Checked=false; CheckBox87->Checked=false; CheckBox88->Checked=false; CheckBox89->Checked=false; CheckBox90->Checked=false; CheckBox91->Checked=false; CheckBox92->Checked=false; CheckBox93->Checked=false; CheckBox94->Checked=false; CheckBox95->Checked=false; CheckBox96->Checked=false; CheckBox97->Checked=false; CheckBox98->Checked=false; CheckBox99->Checked=false; CheckBox100->Checked=false; CheckBox101->Checked=false; CheckBox102->Checked=false; CheckBox103->Checked=false; CheckBox104->Checked=false; CheckBox105->Checked=false; total_tirage=0; } //--------------------------------------------------------------------------- void __fastcall TForm1::Sauvegarderconfiguration1Click(TObject *Sender) { // Sauvegarde de la configuration Image1->Picture->SaveToFile("Configuration\\Img.bmp"); Color->GetTextBuf(tab_recept,Color->GetTextLen()+1); Memo1->Text=tab_recept; Memo1->Lines->SaveToFile("Configuration\\Img.color"); Edit112->GetTextBuf(tab_recept,Edit112->GetTextLen()+1); Memo1->Text=tab_recept; Memo1->Lines->SaveToFile("Configuration\\txt.color"); config=0; } //--------------------------------------------------------------------------- void __fastcall TForm1::Supprimerconfiguration1Click(TObject *Sender) { // Suppression de la configuration int BT; BT=Application->MessageBox("Etez vous sure de vouloir supprimer la configuration ?", "ATTENTION", MB_YESNO); if (BT==IDYES) { DeleteFile("Configuration\\Img.bmp"); DeleteFile("Configuration\\Img.color"); DeleteFile("Configuration\\txt.color"); Form1->Font->Color=0; Image1->Picture=0; Label6->Font->Color=0; Label17->Font->Color=0; Label21->Font->Color=0; Label95->Font->Color=0; config=0; } } //--------------------------------------------------------------------------- void __fastcall TForm1::ComboBox3Change(TObject *Sender) { Edit124->Text=ComboBox3->Text; } //--------------------------------------------------------------------------- void __fastcall TForm1::Enregistrer1Click(TObject *Sender) { int BT; if (Adresse->Text!="") { save(); Adresse->GetTextBuf(tab_adresse,Adresse->GetTextLen()+1); Memo1->Lines->SaveToFile(tab_adresse); } else { SaveDialog1->Options << ofNoChangeDir; SaveDialog1->DefaultExt = String("vmp"); SaveDialog1->Filter = "Fichiers vampire (*.vmp)|*.vmp"; BT=SaveDialog1->Execute(); if (BT==IDOK) { save(); Memo1->Lines->SaveToFile(SaveDialog1->FileName); Adresse->Text=SaveDialog1->FileName; } } } //--------------------------------------------------------------------------- void __fastcall TForm1::Edit1Change(TObject *Sender) { int lengh=0; Form1->Caption=Edit1->Text; Edit1->GetTextBuf(tab_recept,Edit1->GetTextLen()+5); //lengh=Edit1->GetTextLen(); while (tab_recept[lengh]!='\0') { tab_recept2[lengh]=tab_recept[lengh]; lengh++; } tab_recept2[lengh+0]='.vmp'; tab_recept2[lengh+1]='v'; tab_recept2[lengh+2]='m'; tab_recept2[lengh+3]='p'; tab_recept2[lengh+4]='\0'; if ((FileExists(tab_recept2))==true) { Memo1->Lines->LoadFromFile(tab_recept2); Adresse->Text=""; Memo1->GetTextBuf(tab_echange,Memo1->GetTextLen()+1); fiche(); } } //--------------------------------------------------------------------------- void __fastcall TForm1::CouleurTitre1Click(TObject *Sender) { // Choisit la couleur des titres int BT; BT=ColorDialog1->Execute(); if (BT==IDOK) { Label6->Font->Color=ColorDialog1->Color; Label17->Font->Color=ColorDialog1->Color; Label21->Font->Color=ColorDialog1->Color; Label95->Font->Color=ColorDialog1->Color; Edit112->Text=ColorDialog1->Color; config=1; } } //--------------------------------------------------------------------------- void __fastcall TForm1::Enregistrersous1Click(TObject *Sender) { int BT; SaveDialog1->Options << ofNoChangeDir; SaveDialog1->DefaultExt = String("vmp"); SaveDialog1->Filter = "Fichiers vampire (*.vmp)|*.vmp"; BT=SaveDialog1->Execute(); if (BT==IDOK) { save(); Memo1->Lines->SaveToFile(SaveDialog1->FileName); Adresse->Text=SaveDialog1->FileName; } } //--------------------------------------------------------------------------- void __fastcall TForm1::Ouvrir1Click(TObject *Sender) { int BT; OpenDialog1->Options << ofNoChangeDir; OpenDialog1->DefaultExt = String("vmp"); OpenDialog1->Filter = "Fichiers vampire (*.vmp)|*.vmp"; BT=OpenDialog1->Execute(); if (BT==IDOK) { Memo1->Lines->LoadFromFile(OpenDialog1->FileName); Adresse->Text=OpenDialog1->FileName; Memo1->GetTextBuf(tab_echange,Memo1->GetTextLen()+1); fiche(); } } //--------------------------------------------------------------------------- void __fastcall TForm1::Administration1Click(TObject *Sender) { // Appelle de Form2 pour l'administration Form2->Visible=true; Form1->Enabled=false; } //--------------------------------------------------------------------------- void __fastcall TForm1::Timer1Timer(TObject *Sender) { char tab1[50]; char tab2[50]; int i0,i1; int ed=0; i0=i1=0; if (FileExists("Configuration\\pass")) { Memo1->Lines->LoadFromFile("Configuration\\pass"); DeleteFile("Configuration\\pass"); Memo1->GetTextBuf(tab1,Memo1->GetTextLen()+1); Memo1->Lines->LoadFromFile("Configuration\\pass.dtch"); Memo1->GetTextBuf(tab2,Memo1->GetTextLen()+1); if (strcmp(tab1,tab2)==0) { admin0=1; Motdepasse1->Enabled=true; Quitterlemodeadministrateur1->Enabled=true; Edit2->ReadOnly=false; Edit3->ReadOnly=false; Edit4->ReadOnly=false; Edit5->ReadOnly=false; Application->MessageBox("Vous êtes en mode administrateur.","Avis",MB_OK); } else { admin0=0; Motdepasse1->Enabled=false; Quitterlemodeadministrateur1->Enabled=false; Edit2->ReadOnly=true; Edit3->ReadOnly=true; Edit4->ReadOnly=true; Edit5->ReadOnly=true; Application->MessageBox("Vous venez de quitter le mode administrateur.","Avis",MB_OK); } } // Fin du if (FileExist("Configuration\\pass") if (FileExists("Configuration\\new1")) { Memo1->Lines->LoadFromFile("Configuration\\new1"); DeleteFile("Configuration\\new1"); Memo1->GetTextBuf(tab1,Memo1->GetTextLen()+1); i0=0; while (tab1[i0]!='!') { i1=0; while (tab1[i0]!='*') { tab2[i1]=tab1[i0]; i0++; i1++; } i0++; tab2[i1]='\0'; if (ed==0) Edit2->Text=tab2; if (ed==1) Edit1->Text=tab2; if (ed==2) Edit3->Text=tab2; if (ed==3) Edit5->Text=tab2; ed++; } Form5->Visible=true; Form1->Enabled=false; }// Fin du if (FileExist("Configuration\\new1") if (FileExists("Configuration\\fiche")) { Memo1->Lines->LoadFromFile("Configuration\\fiche"); DeleteFile("Configuration\\fiche"); Memo1->GetTextBuf(tab_echange,Memo1->GetTextLen()+1); fiche2(); }// Fin du if (FileExist("Configuration\\fiche") } //--------------------------------------------------------------------------- void __fastcall TForm1::Quitterlemodeadministrateur1Click(TObject *Sender) { // Quitte le mode administrateur Motdepasse1->Enabled=false; Quitterlemodeadministrateur1->Enabled=false; admin0=0; Edit2->ReadOnly=true; Edit3->ReadOnly=true; Edit4->ReadOnly=true; Edit5->ReadOnly=true; Application->MessageBox("Vous venez de quitter le mode administrateur.","Avis",MB_OK); } //--------------------------------------------------------------------------- void __fastcall TForm1::Motdepasse1Click(TObject *Sender) { // Appelle de Form3 pour le changement du mot de passe Form3->Visible=true; Form1->Enabled=false; } //--------------------------------------------------------------------------- void __fastcall TForm1::Aproposde1Click(TObject *Sender) { // Veuillez à ne pas modifier cette source. Merci Application->MessageBox("Pour tous les problèmes rencontrer écrire à :\n\r sakura_again@hotmail.fr\n\r(Veuillez précisez l'objet de votre envoi. Merci d'avance)","Avis",MB_OK); } //---------------------------------------------------------------------------

Conclusion :


Le code n'étant pas complet il faut récupérer la suite sur le lien suivant:

http://remy.tonnoir.free.fr/Vampire.sources.zip

Merci d'avance

A voir également

Ajouter un commentaire Commentaires
Messages postés
9
Date d'inscription
samedi 28 février 2004
Statut
Membre
Dernière intervention
24 février 2006

Je suis bien d'accord que le code est lourd, c'est la réalisation de 9 mois de boulot. Je me suis mis en accord avec une association de jeux de rôles de mettre par informatique les feuilles des joueurs. Donc j'ai commencé par là où j'ai eu le plus de demande (Vampire la mascarde) puis à partir de cette source je réaliserai aussi une interface pour le RPG Warhammer...
Ppour pouvoir faire le programme sans pertuber mes études, je l'ai proposé en tant que projet TUT.
Pour plus d'explication sur le sujet, et pourquoi j'ai fait le programme voici mon mail :
sakura_again@hotmail.fr
Je pensait quand mettant la source sur ce site sa aurait aider certainne personne, voilà pourquoi je l'ai déposé.
Désolé.
Messages postés
2865
Date d'inscription
samedi 2 novembre 2002
Statut
Membre
Dernière intervention
11 mai 2009
10
tu pourrais expliquer un peu plus ton projet stp, car j'ai rien compris !
et puis c pas le code qui m'aidera, des tas de lignes de codes sans commentaire, sans rien, c'est pas top !
Messages postés
9
Date d'inscription
samedi 28 février 2004
Statut
Membre
Dernière intervention
24 février 2006

Je n'ai pas pu mettre fichier ZIP car il était trop gros en taille donc pour avoir la source complète il faut aller sur le lien suivant:
http://remy.tonnoir.free.fr/Vampire.sources.zip
Messages postés
9
Date d'inscription
samedi 28 février 2004
Statut
Membre
Dernière intervention
24 février 2006

Je n'ai pas pu mettre fichier ZIP car il était trop gros en taille donc pour avoir la source complète il faut aller sur le lien suivant:
http://remy.tonnoir.free.fr/Vampire.sources.zip
Messages postés
9
Date d'inscription
samedi 28 février 2004
Statut
Membre
Dernière intervention
24 février 2006

Je n'ai pas pu mettre fichier ZIP car il était trop gros en taille donc pour avoir la source complète il faut aller sur le lien suivant:
http://remy.tonnoir.free.fr/Vampire.sources.zip
Afficher les 7 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.