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!
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