Hi guys, I am trying to compile the TVersionInfo component by Anders Melander at http://melander.dk/articles/versioninfo/.
It defines the structure below type TTranslationRec = packed record case Integer of 0: ( LanguageID: WORD; CharsetID: WORD); 1: ( TranslationID: DWORD); end; PTranslationRec = ^TTranslationRec; TTranslationTable = array[0..0] of TTranslationRec; PTranslationTable = ^TTranslationTable; which causes the compiler error VersionInfo.pas(141,37) Error: Illegal qualifier function TVersionInfo.GetCharset(Index: integer): WORD; begin Result := TranslationTable[Index].CharsetID; end; Is there a way to convert for Free Pascal compatibility? -- Frank Church ======================= http://devblog.brahmancreations.com _______________________________________________ fpc-pascal maillist - fpc-pascal@lists.freepascal.org http://lists.freepascal.org/mailman/listinfo/fpc-pascal