Re: [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
_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal