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

[Howard Page-Clark]

On 14/3/10 11:52, Frank Church wrote:
Your suggestion worked - what is the secret?
Does the array[0..0 have some relevance here?]

On 14 March 2010 23:01, Howard Page-Clark<h...@talktalk.net>  wrote:
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

No secret - just that fpc requires stricter syntax than Delphi, even in 
{$mode Delphi}. The property TranslationTable is an array property 
declared as a pointer (PTranslationTable), so has to be dereferenced 
before its members can be accessed. It would have helped if the code's 
author had named the property PTranslationTable to highlight that fact, 
because the name hides its pointer character.

H

_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal