Projekt Tombola

//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "TombolaUnit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int gezogen[100]={0};
int ziehung=0;
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
	: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{// Laufbereich ermitteln
 int zzahl;
 bool gleich;
 int start  = StrToInt(Edit1->Text);
 int ende   = StrToInt(Edit2->Text);
 int laufbereich = ende-start+1;
 // Ziehungsnummer erhöhen und ausgeben
 ziehung++;
 Label4->Caption = IntToStr(ziehung);
 
 
 // es wird eine Zahl ermittelt, die nicht schon gezogen wurde
 do {
   gleich=false;
   // Ziehung durchführen
   zzahl  = random(laufbereich)+start;
   // gezogene Zahl wird mit allen Zahlen im Array vergleichen
   for (int i = 0; i < 100; i++) if (zzahl==gezogen[i]) gleich=true;
   // wenn gleiche Zahl gefunden wurde, soll eine neue Zahl ermittelt werden
 }
 while (gleich);
 
 // Gezogene Zahl ins Array schreiben
 gezogen[ziehung-1]=zzahl;
 
 
 // Gezogene Zahl anschreiben
 if (ziehung==1)
	 Label6->Caption = IntToStr(zzahl);
 else
	 Label6->Caption = Label6->Caption+"-"+IntToStr(zzahl);
 
}
//---------------------------------------------------------------------------