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
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.