[fpc-pascal] Error: Illegal qualifier in converting Delphi unit

[Howard Page-Clark]

On 14/3/10 6:11, Frank Church wrote:
> 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?

  try:

  result := TranslationTable[Index]^.CharsetID

Howard