Oppure

Loading
18/03/10 20:14
a_butta
type Colori = record
     HourColor: TColor;
     MinColor : TColor;
     SecColor : TColor;
     BackColor: TColor;
end; 

var ImpostazioniColori: Colori;
    OptionsFile: File of Colori;
  

AssignFile(OptionsFile, ExtractFilePath(ParamStr(0))+'data\OptionsFile.bzc');
Reset(OptionsFile);
Read(OptionsFile, ImpostazioniColori);
CloseFile(OptionsFile);  


Errore:
Project BuzzClock.exe raised exception class 'RunError(3)'


Non riesco a capire proprio dove si trova l'errore!:d

Ps: il pezzo di codice avrebbe lo scopo di assegnare a un tipo record 4 colori...
Il file OptionsFile.bzc è stato precedentemente scritto mediante questo codice:
ImpostazioniColori.SecColor := clBlack;
ImpostazioniColori.MinColor  := clBlue;
ImpostazioniColori.HourColor    := clRed;
ImpostazioniColori.BackColor   := clRed;
AssignFile(OptionsFile, ExtractFilePath(ParamStr(0))+'\OptionsFile.bzc');
Rewrite(OptionsFile);
Write(OptionsFile, ImpostazioniColori);
CloseFile(OptionsFile); 

aaa
18/03/10 22:59
Poggi Marco
Ciao!

Ho letto il codice, e a mio avviso, quando assegni logicamente il file, dovresti dichiarare:

AssignFile(OptionsFile, ExtractFilePath(ParamStr(0))+'\data\OptionsFile.bzc'); 
aaa
19/03/10 10:18
a_butta
no ho già provato mettendo una ShowMessage di controllo e se inserisco prima la \, poi me ne dà due...
aaa