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

Your suggestion worked - what is the secret?
Does the array[0..0 have some relevance here?]

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

In our previous episode, Howard Page-Clark said:

Is there a bugreport about this? If not, pleasae do. $mode delphi not accepting this is not ok.