-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathUnitFormConfigEquipos.cpp
126 lines (97 loc) · 3.28 KB
/
UnitFormConfigEquipos.cpp
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
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
//---------------------------------------------------------------------------
#include <vcl.h>
#include <stdio.h>
#include <stdlib.h>
#pragma hdrstop
#include "UnitFormConfigEquipos.h"
#include "UnitDatos.h"
#include "string.h"
#define MAX_NOMBRE 20
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TFormConfigEquipos *FormConfigEquipos;
static int id_equipo = 0;
//---------------------------------------------------------------------------
void ActualizarComboBox(void)
{
LeerArchivoTodo();
FormConfigEquipos->ComboBox_Equipos->Items->Clear();
int i=0;
for(i=0; i<num_equipos; i++)
{
FormConfigEquipos->ComboBox_Equipos->Items->Add(AnsiString(equipo[i].nombre));
}
}
__fastcall TFormConfigEquipos::TFormConfigEquipos(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------
void __fastcall TFormConfigEquipos::ButtonActualizarClick(TObject *Sender)
{
LeerArchivoTodo();
int i;
FormConfigEquipos->ComboBox_Equipos->Items->Clear();
for(i=0; i<num_equipos; i++)
{
ComboBox_Equipos->Items->Add(AnsiString(equipo[i].nombre));
}
}
//---------------------------------------------------------------------------
void __fastcall TFormConfigEquipos::ButtonInitEquiposClick(TObject *Sender)
{
int i;
char nombre[MAX_NOMBRE];
for(i=0; i<num_equipos; i++)
{
equipo[i].id_equipo = i;
sprintf(nombre, "Equipo %d", i);
strcpy(equipo[i].nombre, nombre);
}
GuardarArchivoTodo();
}
//---------------------------------------------------------------------------
void __fastcall TFormConfigEquipos::Button_guardarClick(TObject *Sender)
{
int i;
char nombre[MAX_NOMBRE];
wcstombs(nombre, EditNombre->Text.w_str(), 20); //Convierte *w_char del Edit en *char
strcpy(equipo[id_equipo].nombre, nombre); //Copia en memoria
equipo[id_equipo].sum_puntos = LabeledEditSumo->Text.ToDouble();
equipo[id_equipo].fut_puntos = LabeledEditFutbol->Text.ToDouble();
equipo[id_equipo].puntos_total = LabeledEditTotal->Text.ToDouble();
ComboBox_Equipos->Items->Clear();
for(i=0; i<num_equipos; i++)
{
ComboBox_Equipos->Items->Add(AnsiString(equipo[i].nombre));
}
equipo[id_equipo].SumPuntosTotal();
GuardarArchivoTodo();
}
//---------------------------------------------------------------------------
void __fastcall TFormConfigEquipos::ComboBox_EquiposChange(TObject *Sender)
{
id_equipo = ComboBox_Equipos->ItemIndex;
EditNombre->Text = equipo[id_equipo].nombre;
LabeledEditSumo->Text = equipo[id_equipo].sum_puntos;
LabeledEditFutbol->Text = equipo[id_equipo].fut_puntos;
LabeledEditTotal->Text = equipo[id_equipo].puntos_total;
}
//---------------------------------------------------------------------------
void __fastcall TFormConfigEquipos::Button_ExitClick(TObject *Sender)
{
FormConfigEquipos->Close();
}
//---------------------------------------------------------------------------
void __fastcall TFormConfigEquipos::ButtonNumEqClick(TObject *Sender)
{
num_equipos = EditNumEq->Text.ToInt();
EscribirNumEq();
}
//---------------------------------------------------------------------------
void __fastcall TFormConfigEquipos::FormShow(TObject *Sender)
{
ActualizarComboBox();
}
//---------------------------------------------------------------------------