Hola aguml.
No probé el código pero no veo nada fuera de lugar (por otro lado comentas que funciona correctamente).
Lo que sí creo, es que aprovechar la VCL mediante
TFileStream te podría reducir y simplificar un poco el código de tratamiento del archivo, pero queda a tu critero...
Te hice un ejemplo en el que intervienen la lectura y escritura ya que es lo que hace a lo que te sugiero mas arriba:
Código:
...
#define FILE_NAME "ranking.bin"
#define MAX_ELEM 10
struct {
int pos;
char nombre[30];
int aciertos;
int puntuacion;
} ranking[MAX_ELEM];
void __fastcall TForm1::FormCreate(TObject *Sender)
{
TStringGrid *SG = static_cast<TStringGrid*>(StringGrid1);
DWORD openflag = FileExists(FILE_NAME) ? fmOpenReadWrite : fmCreate;
TFileStream *FS = new TFileStream(FILE_NAME, openflag);
// ajustar columnas, poner títulos
SG->ColWidths[0] = 110;
SG->ColWidths[1] = 175;
SG->ColWidths[2] = 125;
SG->ColWidths[3] = 150;
SG->Rows[0]->DelimitedText = ",Posicion,Nombre,Aciertos,Puntuacion";
// limpiar struct
ZeroMemory(&ranking, 0);
if (openflag == fmCreate) { // el archivo no existia
for(register int i=0; i < MAX_ELEM; i++) {
ranking[i].pos = i+1;
strcpy(ranking[i].nombre, "Agustin");
ranking[i].aciertos = 100-(i*10);
ranking[i].puntuacion = 10000-(i*1000);
}
FS->Write(&ranking, sizeof(ranking)); // guardar arreglo
}
else // el archivo existia
FS->Read(&ranking, sizeof(ranking)); // leer
// struct a StringGrid
for(register int i=0; i< MAX_ELEM; i++) {
SG->Rows[i+1]->Strings[0]= i+1;
SG->Rows[i+1]->Strings[1]= String(ranking[i].pos) + " ";
SG->Rows[i+1]->Strings[2]= ranking[i].nombre;
SG->Rows[i+1]->Strings[3]= String(ranking[i].aciertos) + " ";
SG->Rows[i+1]->Strings[4]= String(ranking[i].puntuacion) + " ";
}
delete FS;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
TStringGrid *SG = static_cast<TStringGrid*>(StringGrid1);
TFileStream *FS = new TFileStream(FILE_NAME, fmOpenWrite);
// StringGrid a struct
for(register int i= 0; i < MAX_ELEM; i++) {
ranking[i].pos = StrToIntDef(Trim(SG->Rows[i+1]->Strings[1]), 0);
strcpy(ranking[i].nombre,SG->Rows[i+1]->Strings[2].c_str());
ranking[i].aciertos = StrToIntDef(Trim(SG->Rows[i+1]->Strings[3]), 0);
ranking[i].puntuacion = StrToIntDef(Trim(SG->Rows[i+1]->Strings[4]), 0);
}
// guardar arreglo
FS->Write(&ranking, sizeof(ranking));
delete FS;
}
El código verifica que el archivo exista al crearse el form, de ser así lee los datos, en caso contrario, inicializa el arreglo de estructuras con los valores por omisión y lo guarda, por último muestra los valores en StringGrid.
Y para finalizar la muestra del uso de
TFileStream, al salir se almacenan los valores de las celdas del StringGrid (modificados o nó) en el archivo.
Saludos