First commit 07/01/2002
This commit is contained in:
commit
a0ad7d8960
151
GNum.cpp
Normal file
151
GNum.cpp
Normal file
@ -0,0 +1,151 @@
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
#include <vcl.h>
|
||||
#pragma hdrstop
|
||||
|
||||
#include <stdio.h>
|
||||
#include "GNum.h"
|
||||
//---------------------------------------------------------------------------
|
||||
#pragma package(smart_init)
|
||||
#pragma resource "*.dfm"
|
||||
TForm1 *Form1;
|
||||
//---------------------------------------------------------------------------
|
||||
__fastcall TForm1::TForm1(TComponent* Owner)
|
||||
: TForm(Owner)
|
||||
{
|
||||
ComboBox1->ItemIndex = 0;
|
||||
ComboBox2->ItemIndex = 1;
|
||||
ComboBox3->ItemIndex = 2;
|
||||
ComboBox4->ItemIndex = 3;
|
||||
ComboBox5->ItemIndex = 4;
|
||||
ComboBox6->ItemIndex = 5;
|
||||
mismaDecena->ItemIndex = 1;
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
|
||||
void __fastcall TForm1::Button1Click(TObject *Sender)
|
||||
{
|
||||
// Comprueba que no se repiten
|
||||
/*
|
||||
if ( (ComboBox1->ItemIndex != ComboBox2->ItemIndex && ComboBox1->ItemIndex != ComboBox3->ItemIndex && ComboBox1->ItemIndex != ComboBox4->ItemIndex && ComboBox1->ItemIndex != ComboBox5->ItemIndex && ComboBox1->ItemIndex != ComboBox6->ItemIndex ) &&
|
||||
(ComboBox2->ItemIndex != ComboBox3->ItemIndex && ComboBox2->ItemIndex != ComboBox4->ItemIndex && ComboBox2->ItemIndex != ComboBox5->ItemIndex && ComboBox2->ItemIndex != ComboBox6->ItemIndex ) &&
|
||||
(ComboBox3->ItemIndex != ComboBox4->ItemIndex && ComboBox3->ItemIndex != ComboBox5->ItemIndex && ComboBox3->ItemIndex != ComboBox6->ItemIndex ) &&
|
||||
(ComboBox4->ItemIndex != ComboBox5->ItemIndex && ComboBox4->ItemIndex != ComboBox6->ItemIndex ) &&
|
||||
(ComboBox5->ItemIndex != ComboBox6->ItemIndex )
|
||||
)
|
||||
*/
|
||||
if ( (ComboBox1->ItemIndex < ComboBox2->ItemIndex && ComboBox2->ItemIndex < ComboBox3->ItemIndex && ComboBox1->ItemIndex < ComboBox4->ItemIndex && ComboBox1->ItemIndex < ComboBox5->ItemIndex && ComboBox1->ItemIndex < ComboBox6->ItemIndex ) )
|
||||
|
||||
{
|
||||
// Comenzamos a generar
|
||||
ShowMessage( "Ahora empezare a generar números, aunque parezca que estoy COLGADO, no es asi, sigo trabajando en tu petición" );
|
||||
|
||||
FILE *stream;
|
||||
char buf1[20], buf2[20], buf3[20], buf4[20];
|
||||
char buffer[80];
|
||||
if ((stream = fopen("gnum.txt", "w+"))== NULL)
|
||||
{
|
||||
ShowMessage( "No puedo abrir el fichero. PUEDE que ya este en USO" );
|
||||
} else {
|
||||
int V1 = ComboBox1->ItemIndex + 1;
|
||||
int V2 = ComboBox2->ItemIndex + 1;
|
||||
int V3 = ComboBox3->ItemIndex + 1;
|
||||
int V4 = ComboBox4->ItemIndex + 1;
|
||||
int V5 = ComboBox5->ItemIndex + 1;
|
||||
int V6 = ComboBox6->ItemIndex + 1;
|
||||
int ColumnaActual = 0;
|
||||
long int Cuantos = 0, CuantosGenero = 0;
|
||||
while(1) {
|
||||
Cuantos++;
|
||||
// Incrementamos (si nos lo permiten) la 1ª cifra
|
||||
V6 ++; if ( V6 > 49 )
|
||||
{
|
||||
if ( !CheckBox5->Checked ) break;
|
||||
V5++; V6 = V5+1;
|
||||
if ( V5 > 48 )
|
||||
{
|
||||
if ( !CheckBox4->Checked ) break;
|
||||
V4++; V5 = V4+1; V6 = V5+1;
|
||||
if ( V4 > 47 )
|
||||
{
|
||||
if ( !CheckBox3->Checked ) break;
|
||||
V3++; V4 = V3+1; V5 = V4+1; V6 = V5+1;
|
||||
if ( V3 > 46 )
|
||||
{
|
||||
if ( !CheckBox2->Checked ) break;
|
||||
V2++; V3 = V2+1; V4=V3+1; V5 = V4+1; V6 = V5+1;
|
||||
if ( V2 > 45 )
|
||||
{
|
||||
if ( !CheckBox1->Checked ) break;
|
||||
V1++; V2=V1+1; V3=V2+1; V4=V3+1; V5 = V4+1; V6 = V5+1;
|
||||
if ( V1 > 44 )
|
||||
{
|
||||
break;
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
if ( cumpleRestoCondiciones(V1, V2, V3, V4, V5, V6) )
|
||||
{
|
||||
CuantosGenero++;
|
||||
switch ( ColumnaActual )
|
||||
{
|
||||
case 3:
|
||||
sprintf( buf4, "%02d-%02d-%02d-%02d-%02d-%02d", V1, V2, V3, V4, V5, V6);
|
||||
sprintf( buffer, "%s %s %s %s\r", buf1, buf2, buf3, buf4 );
|
||||
/* write some data to the file */
|
||||
fwrite(buffer, 79, 1, stream);
|
||||
ColumnaActual = 0;
|
||||
break;
|
||||
case 2:
|
||||
sprintf( buf3, "%02d-%02d-%02d-%02d-%02d-%02d", V1, V2, V3, V4, V5, V6);
|
||||
ColumnaActual++;
|
||||
break;
|
||||
case 1:
|
||||
sprintf( buf2, "%02d-%02d-%02d-%02d-%02d-%02d", V1, V2, V3, V4, V5, V6);
|
||||
ColumnaActual++;
|
||||
break;
|
||||
case 0:
|
||||
sprintf( buf1, "%02d-%02d-%02d-%02d-%02d-%02d", V1, V2, V3, V4, V5, V6);
|
||||
ColumnaActual++;
|
||||
break;
|
||||
}
|
||||
}
|
||||
|
||||
};
|
||||
fclose(stream);
|
||||
sprintf( buffer, "Ya he acabado. He generado %ld combinaciones y me he quedado con %ld.", Cuantos, CuantosGenero );
|
||||
ShowMessage( buffer );
|
||||
}
|
||||
} else {
|
||||
ShowMessage( "El número de comienzo no puede repetirse, y debe estar ordenado de MENOR a MAYOR" );
|
||||
}
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
bool __fastcall TForm1::cumpleRestoCondiciones(int V1, int V2, int V3, int V4, int V5, int V6)
|
||||
{
|
||||
bool dev=true;
|
||||
int numDistintaDecena = mismaDecena->ItemIndex + 3;
|
||||
|
||||
// Verificamos que no haya mas de X números de la misma decena
|
||||
int nDecenas[] = { 0, 0, 0, 0, 0, 0, 0, 0, 0, 0 };
|
||||
nDecenas[V1/10]++;
|
||||
nDecenas[V2/10]++;
|
||||
nDecenas[V3/10]++;
|
||||
nDecenas[V4/10]++;
|
||||
nDecenas[V5/10]++;
|
||||
nDecenas[V6/10]++;
|
||||
|
||||
|
||||
for ( int i=0;i<10;i++ )
|
||||
{
|
||||
if ( nDecenas[i]>=numDistintaDecena ) { dev = false; break; }
|
||||
}
|
||||
|
||||
return dev;
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
482
GNum.dfm
Normal file
482
GNum.dfm
Normal file
@ -0,0 +1,482 @@
|
||||
object Form1: TForm1
|
||||
Left = 191
|
||||
Top = 116
|
||||
Width = 391
|
||||
Height = 392
|
||||
Caption = 'Generador de números'
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -24
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 29
|
||||
object Label1: TLabel
|
||||
Left = 8
|
||||
Top = 24
|
||||
Width = 258
|
||||
Height = 29
|
||||
Caption = 'Empezar por el número:'
|
||||
end
|
||||
object Label2: TLabel
|
||||
Left = 32
|
||||
Top = 144
|
||||
Width = 319
|
||||
Height = 24
|
||||
Caption = '[el orden debe ser de menor a mayor]'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -19
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object Label3: TLabel
|
||||
Left = 32
|
||||
Top = 168
|
||||
Width = 311
|
||||
Height = 24
|
||||
Caption = 'y las casillas marcadas de V5->a->V1'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -19
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object Label4: TLabel
|
||||
Left = 8
|
||||
Top = 216
|
||||
Width = 322
|
||||
Height = 24
|
||||
Caption = 'No mas de de la misma decena.'
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -19
|
||||
Font.Name = 'MS Sans Serif'
|
||||
Font.Style = []
|
||||
ParentFont = False
|
||||
end
|
||||
object ComboBox1: TComboBox
|
||||
Left = 8
|
||||
Top = 64
|
||||
Width = 49
|
||||
Height = 37
|
||||
ItemHeight = 29
|
||||
TabOrder = 0
|
||||
Text = '1'
|
||||
Items.Strings = (
|
||||
'1'
|
||||
'2'
|
||||
'3'
|
||||
'4'
|
||||
'5'
|
||||
'6'
|
||||
'7'
|
||||
'8'
|
||||
'9'
|
||||
'10'
|
||||
'11'
|
||||
'12'
|
||||
'13'
|
||||
'14'
|
||||
'15'
|
||||
'16'
|
||||
'17'
|
||||
'18'
|
||||
'19'
|
||||
'20'
|
||||
'21'
|
||||
'22'
|
||||
'23'
|
||||
'24'
|
||||
'25'
|
||||
'26'
|
||||
'27'
|
||||
'28'
|
||||
'29'
|
||||
'30'
|
||||
'31'
|
||||
'32'
|
||||
'33'
|
||||
'34'
|
||||
'35'
|
||||
'36'
|
||||
'37'
|
||||
'38'
|
||||
'39'
|
||||
'40'
|
||||
'41'
|
||||
'42'
|
||||
'43'
|
||||
'44'
|
||||
'45'
|
||||
'46'
|
||||
'47'
|
||||
'48'
|
||||
'49')
|
||||
end
|
||||
object ComboBox2: TComboBox
|
||||
Left = 72
|
||||
Top = 64
|
||||
Width = 49
|
||||
Height = 37
|
||||
ItemHeight = 29
|
||||
TabOrder = 1
|
||||
Text = '2'
|
||||
Items.Strings = (
|
||||
'1'
|
||||
'2'
|
||||
'3'
|
||||
'4'
|
||||
'5'
|
||||
'6'
|
||||
'7'
|
||||
'8'
|
||||
'9'
|
||||
'10'
|
||||
'11'
|
||||
'12'
|
||||
'13'
|
||||
'14'
|
||||
'15'
|
||||
'16'
|
||||
'17'
|
||||
'18'
|
||||
'19'
|
||||
'20'
|
||||
'21'
|
||||
'22'
|
||||
'23'
|
||||
'24'
|
||||
'25'
|
||||
'26'
|
||||
'27'
|
||||
'28'
|
||||
'29'
|
||||
'30'
|
||||
'31'
|
||||
'32'
|
||||
'33'
|
||||
'34'
|
||||
'35'
|
||||
'36'
|
||||
'37'
|
||||
'38'
|
||||
'39'
|
||||
'40'
|
||||
'41'
|
||||
'42'
|
||||
'43'
|
||||
'44'
|
||||
'45'
|
||||
'46'
|
||||
'47'
|
||||
'48'
|
||||
'49')
|
||||
end
|
||||
object ComboBox3: TComboBox
|
||||
Left = 136
|
||||
Top = 64
|
||||
Width = 49
|
||||
Height = 37
|
||||
ItemHeight = 29
|
||||
TabOrder = 2
|
||||
Text = '3'
|
||||
Items.Strings = (
|
||||
'1'
|
||||
'2'
|
||||
'3'
|
||||
'4'
|
||||
'5'
|
||||
'6'
|
||||
'7'
|
||||
'8'
|
||||
'9'
|
||||
'10'
|
||||
'11'
|
||||
'12'
|
||||
'13'
|
||||
'14'
|
||||
'15'
|
||||
'16'
|
||||
'17'
|
||||
'18'
|
||||
'19'
|
||||
'20'
|
||||
'21'
|
||||
'22'
|
||||
'23'
|
||||
'24'
|
||||
'25'
|
||||
'26'
|
||||
'27'
|
||||
'28'
|
||||
'29'
|
||||
'30'
|
||||
'31'
|
||||
'32'
|
||||
'33'
|
||||
'34'
|
||||
'35'
|
||||
'36'
|
||||
'37'
|
||||
'38'
|
||||
'39'
|
||||
'40'
|
||||
'41'
|
||||
'42'
|
||||
'43'
|
||||
'44'
|
||||
'45'
|
||||
'46'
|
||||
'47'
|
||||
'48'
|
||||
'49')
|
||||
end
|
||||
object ComboBox4: TComboBox
|
||||
Left = 200
|
||||
Top = 64
|
||||
Width = 49
|
||||
Height = 37
|
||||
ItemHeight = 29
|
||||
TabOrder = 3
|
||||
Text = '4'
|
||||
Items.Strings = (
|
||||
'1'
|
||||
'2'
|
||||
'3'
|
||||
'4'
|
||||
'5'
|
||||
'6'
|
||||
'7'
|
||||
'8'
|
||||
'9'
|
||||
'10'
|
||||
'11'
|
||||
'12'
|
||||
'13'
|
||||
'14'
|
||||
'15'
|
||||
'16'
|
||||
'17'
|
||||
'18'
|
||||
'19'
|
||||
'20'
|
||||
'21'
|
||||
'22'
|
||||
'23'
|
||||
'24'
|
||||
'25'
|
||||
'26'
|
||||
'27'
|
||||
'28'
|
||||
'29'
|
||||
'30'
|
||||
'31'
|
||||
'32'
|
||||
'33'
|
||||
'34'
|
||||
'35'
|
||||
'36'
|
||||
'37'
|
||||
'38'
|
||||
'39'
|
||||
'40'
|
||||
'41'
|
||||
'42'
|
||||
'43'
|
||||
'44'
|
||||
'45'
|
||||
'46'
|
||||
'47'
|
||||
'48'
|
||||
'49')
|
||||
end
|
||||
object ComboBox5: TComboBox
|
||||
Left = 264
|
||||
Top = 64
|
||||
Width = 49
|
||||
Height = 37
|
||||
ItemHeight = 29
|
||||
TabOrder = 4
|
||||
Text = '5'
|
||||
Items.Strings = (
|
||||
'1'
|
||||
'2'
|
||||
'3'
|
||||
'4'
|
||||
'5'
|
||||
'6'
|
||||
'7'
|
||||
'8'
|
||||
'9'
|
||||
'10'
|
||||
'11'
|
||||
'12'
|
||||
'13'
|
||||
'14'
|
||||
'15'
|
||||
'16'
|
||||
'17'
|
||||
'18'
|
||||
'19'
|
||||
'20'
|
||||
'21'
|
||||
'22'
|
||||
'23'
|
||||
'24'
|
||||
'25'
|
||||
'26'
|
||||
'27'
|
||||
'28'
|
||||
'29'
|
||||
'30'
|
||||
'31'
|
||||
'32'
|
||||
'33'
|
||||
'34'
|
||||
'35'
|
||||
'36'
|
||||
'37'
|
||||
'38'
|
||||
'39'
|
||||
'40'
|
||||
'41'
|
||||
'42'
|
||||
'43'
|
||||
'44'
|
||||
'45'
|
||||
'46'
|
||||
'47'
|
||||
'48'
|
||||
'49')
|
||||
end
|
||||
object ComboBox6: TComboBox
|
||||
Left = 328
|
||||
Top = 64
|
||||
Width = 49
|
||||
Height = 37
|
||||
ItemHeight = 29
|
||||
TabOrder = 5
|
||||
Text = '6'
|
||||
Items.Strings = (
|
||||
'1'
|
||||
'2'
|
||||
'3'
|
||||
'4'
|
||||
'5'
|
||||
'6'
|
||||
'7'
|
||||
'8'
|
||||
'9'
|
||||
'10'
|
||||
'11'
|
||||
'12'
|
||||
'13'
|
||||
'14'
|
||||
'15'
|
||||
'16'
|
||||
'17'
|
||||
'18'
|
||||
'19'
|
||||
'20'
|
||||
'21'
|
||||
'22'
|
||||
'23'
|
||||
'24'
|
||||
'25'
|
||||
'26'
|
||||
'27'
|
||||
'28'
|
||||
'29'
|
||||
'30'
|
||||
'31'
|
||||
'32'
|
||||
'33'
|
||||
'34'
|
||||
'35'
|
||||
'36'
|
||||
'37'
|
||||
'38'
|
||||
'39'
|
||||
'40'
|
||||
'41'
|
||||
'42'
|
||||
'43'
|
||||
'44'
|
||||
'45'
|
||||
'46'
|
||||
'47'
|
||||
'48'
|
||||
'49')
|
||||
end
|
||||
object CheckBox1: TCheckBox
|
||||
Left = 8
|
||||
Top = 112
|
||||
Width = 49
|
||||
Height = 17
|
||||
Caption = 'v1'
|
||||
TabOrder = 6
|
||||
end
|
||||
object CheckBox2: TCheckBox
|
||||
Left = 72
|
||||
Top = 112
|
||||
Width = 49
|
||||
Height = 17
|
||||
Caption = 'v2'
|
||||
TabOrder = 7
|
||||
end
|
||||
object CheckBox3: TCheckBox
|
||||
Left = 136
|
||||
Top = 112
|
||||
Width = 49
|
||||
Height = 17
|
||||
Caption = 'v3'
|
||||
TabOrder = 8
|
||||
end
|
||||
object CheckBox4: TCheckBox
|
||||
Left = 200
|
||||
Top = 112
|
||||
Width = 49
|
||||
Height = 17
|
||||
Caption = 'v4'
|
||||
TabOrder = 9
|
||||
end
|
||||
object CheckBox5: TCheckBox
|
||||
Left = 264
|
||||
Top = 112
|
||||
Width = 49
|
||||
Height = 17
|
||||
Caption = 'v5'
|
||||
TabOrder = 10
|
||||
end
|
||||
object Button1: TButton
|
||||
Left = 24
|
||||
Top = 312
|
||||
Width = 345
|
||||
Height = 49
|
||||
Caption = '&Generar >> gnum.txt'
|
||||
TabOrder = 11
|
||||
OnClick = Button1Click
|
||||
end
|
||||
object mismaDecena: TComboBox
|
||||
Left = 104
|
||||
Top = 208
|
||||
Width = 49
|
||||
Height = 37
|
||||
ItemHeight = 29
|
||||
TabOrder = 12
|
||||
Text = '2'
|
||||
Items.Strings = (
|
||||
'3'
|
||||
'4'
|
||||
'5'
|
||||
'6'
|
||||
'7'
|
||||
'8'
|
||||
'9')
|
||||
end
|
||||
end
|
||||
41
GNum.h
Normal file
41
GNum.h
Normal file
@ -0,0 +1,41 @@
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
#ifndef GNumH
|
||||
#define GNumH
|
||||
//---------------------------------------------------------------------------
|
||||
#include <Classes.hpp>
|
||||
#include <Controls.hpp>
|
||||
#include <StdCtrls.hpp>
|
||||
#include <Forms.hpp>
|
||||
//---------------------------------------------------------------------------
|
||||
class TForm1 : public TForm
|
||||
{
|
||||
__published: // IDE-managed Components
|
||||
TComboBox *ComboBox1;
|
||||
TLabel *Label1;
|
||||
TComboBox *ComboBox2;
|
||||
TComboBox *ComboBox3;
|
||||
TComboBox *ComboBox4;
|
||||
TComboBox *ComboBox5;
|
||||
TComboBox *ComboBox6;
|
||||
TCheckBox *CheckBox1;
|
||||
TCheckBox *CheckBox2;
|
||||
TCheckBox *CheckBox3;
|
||||
TCheckBox *CheckBox4;
|
||||
TCheckBox *CheckBox5;
|
||||
TButton *Button1;
|
||||
TLabel *Label2;
|
||||
TLabel *Label3;
|
||||
TComboBox *mismaDecena;
|
||||
TLabel *Label4;
|
||||
void __fastcall Button1Click(TObject *Sender);
|
||||
private: // User declarations
|
||||
public: // User declarations
|
||||
__fastcall TForm1(TComponent* Owner);
|
||||
bool __fastcall cumpleRestoCondiciones(int V1, int V2, int V3, int V4, int V5, int V6);
|
||||
|
||||
};
|
||||
//---------------------------------------------------------------------------
|
||||
extern PACKAGE TForm1 *Form1;
|
||||
//---------------------------------------------------------------------------
|
||||
#endif
|
||||
104
GeNum.bpr
Normal file
104
GeNum.bpr
Normal file
@ -0,0 +1,104 @@
|
||||
<?xml version='1.0' encoding='utf-8' ?>
|
||||
<!-- C++Builder XML Project -->
|
||||
<PROJECT>
|
||||
<MACROS>
|
||||
<VERSION value="BCB.05.03"/>
|
||||
<PROJECT value="GeNum.exe"/>
|
||||
<OBJFILES value="GeNum.obj GNum.obj"/>
|
||||
<RESFILES value="GeNum.res"/>
|
||||
<IDLFILES value=""/>
|
||||
<IDLGENFILES value=""/>
|
||||
<DEFFILE value=""/>
|
||||
<RESDEPEN value="$(RESFILES) GNum.dfm"/>
|
||||
<LIBFILES value=""/>
|
||||
<LIBRARIES value="VCL50.lib"/>
|
||||
<SPARELIBS value="VCL50.lib"/>
|
||||
<PACKAGES value="VCL50.bpi VCLX50.bpi VCLDB50.bpi VCLBDE50.bpi VCLDBX50.bpi QRPT50.bpi
|
||||
TEEUI50.bpi TEEDB50.bpi TEE50.bpi DSS50.bpi TEEQR50.bpi VCLIE50.bpi
|
||||
INETDB50.bpi INET50.bpi VCLMID50.bpi NMFAST50.bpi dclocx50.bpi asgc5.bpi
|
||||
CabForCB.bpi CoolPack.bpi JDsoft.bpi PhantomPack.bpi RAS_Tools.bpi
|
||||
ZCommonCB5.bpi ZDbwareCB5.bpi ZMySqlCB5.bpi bcbsmp50.bpi VCLADO50.bpi
|
||||
ibsmp50.bpi VCLIB50.bpi WEBMID50.bpi bcbie50.bpi bcb2kaxserver50.bpi
|
||||
ZDb2SqlCB5.bpi ZIbSqlCB5.bpi ZMsSqlCB5.bpi ZOraSqlCB5.bpi ZPgSqlCB5.bpi"/>
|
||||
<PATHCPP value=".;"/>
|
||||
<PATHPAS value=".;"/>
|
||||
<PATHRC value=".;"/>
|
||||
<PATHASM value=".;"/>
|
||||
<DEBUGLIBPATH value="$(BCB)\lib\debug"/>
|
||||
<RELEASELIBPATH value="$(BCB)\lib\release"/>
|
||||
<LINKER value="tlink32"/>
|
||||
<USERDEFINES value="_DEBUG"/>
|
||||
<SYSDEFINES value="NO_STRICT"/>
|
||||
<MAINSOURCE value="GeNum.cpp"/>
|
||||
<INCLUDEPATH value="$(BCB)\include;$(BCB)\include\vcl"/>
|
||||
<LIBPATH value="$(BCB)\Projects\Lib;..\VCLs\lib;$(BCB)\lib\obj;$(BCB)\lib"/>
|
||||
<WARNINGS value="-w-par"/>
|
||||
</MACROS>
|
||||
<OPTIONS>
|
||||
<IDLCFLAGS value="-I$(BCB)\include -I$(BCB)\include\vcl -src_suffix cpp -D_DEBUG -boa"/>
|
||||
<CFLAG1 value="-Od -H=$(BCB)\lib\vcl50.csm -Hc -Vx -Ve -X- -r- -a8 -b- -k -y -v -vi- -c
|
||||
-tW -tWM"/>
|
||||
<PFLAGS value="-$YD -$W -$O- -v -JPHNE -M"/>
|
||||
<RFLAGS value=""/>
|
||||
<AFLAGS value="/mx /w2 /zd"/>
|
||||
<LFLAGS value="-D"" -aa -Tpe -x -Gn -v"/>
|
||||
</OPTIONS>
|
||||
<LINKER>
|
||||
<ALLOBJ value="c0w32.obj sysinit.obj $(OBJFILES)"/>
|
||||
<ALLRES value="$(RESFILES)"/>
|
||||
<ALLLIB value="$(LIBFILES) $(LIBRARIES) import32.lib cp32mt.lib"/>
|
||||
</LINKER>
|
||||
<IDEOPTIONS>
|
||||
[Version Info]
|
||||
IncludeVerInfo=0
|
||||
AutoIncBuild=0
|
||||
MajorVer=1
|
||||
MinorVer=0
|
||||
Release=0
|
||||
Build=0
|
||||
Debug=0
|
||||
PreRelease=0
|
||||
Special=0
|
||||
Private=0
|
||||
DLL=0
|
||||
Locale=3082
|
||||
CodePage=1252
|
||||
|
||||
[Version Info Keys]
|
||||
CompanyName=
|
||||
FileDescription=
|
||||
FileVersion=1.0.0.0
|
||||
InternalName=
|
||||
LegalCopyright=
|
||||
LegalTrademarks=
|
||||
OriginalFilename=
|
||||
ProductName=
|
||||
ProductVersion=1.0.0.0
|
||||
Comments=
|
||||
|
||||
[Debugging]
|
||||
DebugSourceDirs=$(BCB)\source\vcl
|
||||
|
||||
[Parameters]
|
||||
RunParams=
|
||||
HostApplication=
|
||||
RemoteHost=
|
||||
RemotePath=
|
||||
RemoteDebug=0
|
||||
|
||||
[Compiler]
|
||||
ShowInfoMsgs=0
|
||||
LinkDebugVcl=0
|
||||
LinkCGLIB=0
|
||||
|
||||
[CORBA]
|
||||
AddServerUnit=1
|
||||
AddClientUnit=1
|
||||
PrecompiledHeaders=1
|
||||
|
||||
[Language]
|
||||
ActiveLang=
|
||||
ProjectLang=
|
||||
RootDir=
|
||||
</IDEOPTIONS>
|
||||
</PROJECT>
|
||||
22
GeNum.cpp
Normal file
22
GeNum.cpp
Normal file
@ -0,0 +1,22 @@
|
||||
//---------------------------------------------------------------------------
|
||||
|
||||
#include <vcl.h>
|
||||
#pragma hdrstop
|
||||
USERES("GeNum.res");
|
||||
USEFORM("GNum.cpp", Form1);
|
||||
//---------------------------------------------------------------------------
|
||||
WINAPI WinMain(HINSTANCE, HINSTANCE, LPSTR, int)
|
||||
{
|
||||
try
|
||||
{
|
||||
Application->Initialize();
|
||||
Application->CreateForm(__classid(TForm1), &Form1);
|
||||
Application->Run();
|
||||
}
|
||||
catch (Exception &exception)
|
||||
{
|
||||
Application->ShowException(&exception);
|
||||
}
|
||||
return 0;
|
||||
}
|
||||
//---------------------------------------------------------------------------
|
||||
Loading…
x
Reference in New Issue
Block a user