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
