Gecko/20101027 Thunderbird/3.1.6
comp.lang.pascal.misc:142
From: Robert AH Prins 

Hi all,

I'm adding a new program to a suite of Virtual Pascal (V2.1 Build 279) 
programs and that means adding a bit of code to generate the Copyright 
string:

{$define q-h2wiki}

const  opt = '/' +  {Compiler options in use}

{$ifopt A+} 'A+' {$else} 'A-' {$endif} +
{$ifopt B+} 'B+' {$else} 'B-' {$endif} +
{$ifopt D+} 'D+' {$else} 'D-' {$endif} +
{$ifopt H+} 'H+' {$else} 'H-' {$endif} +
{$ifopt I+} 'I+' {$else} 'I-' {$endif} +
{$ifopt J+} 'J+' {$else} 'J-' {$endif} +
{$ifopt P+} 'P+' {$else} 'P-' {$endif} +
{$ifopt Q+} 'Q+' {$else} 'Q-' {$endif} +
{$ifopt R+} 'R+' {$else} 'R-' {$endif} +
{$ifopt S+} 'S+' {$else} 'S-' {$endif} +
{$ifopt T+} 'T+' {$else} 'T-' {$endif} +
{$ifopt V+} 'V+' {$else} 'V-' {$endif} +
{$ifopt W+} 'W+' {$else} 'W-' {$endif} +
{$ifopt X+} 'X+' {$else} 'X-' {$endif} +
{$ifopt Z+} 'Z+' {$else} 'Z-' {$endif} + '';

const
   moi = ' Copyright (C) Robert AH Prins ';

const
   copyright: string[71] = moi +

{$ifdef lift}     '1987' {$endif}
{$ifdef newlift}  '2000' {$endif}
{$ifdef dayform}  '1996' {$endif}
{$ifdef h-h2rtf}  '1996' {$endif}
{$ifdef dat2txt}  '2002' {$endif}
{$ifdef chkdat}   '2002' {$endif}
{$ifdef get-aud}  '2002' {$endif}
{$ifdef q-h2wiki} '2010' {$endif}
{$ifdef dat2csv}  '2003' {$endif} + '-2010' + opt;

begin
   writeln(copyright);
end.

The problem is that if I change "q-h2wiki" to what it should be, 
"h-h2wiki", the compiler gives me an error '85' Semicolon expected, and 
I haven't got a clue as to the why, unless there is some interaction 
between the h-h2rtf and h-h2wiki defines.

Can anyone give me a clue?

Thanks,

Robert
-- 
Robert AH Prins
spamtrap(a)prino(d)org

--- Internet Rex 2.31
 * Origin: The gateway at Omicron Theta (1:261/20.999)