Problem with semicolons after formatting VirtualTrees.pas

Akkie Malus — Tue, 21 Jul 2009 13:25:19 -0000

When 'Put semicolons after last statement in a block' is enabled:

VirtualTrees.pas gets malformed when the source is formatted.
Example:

function TestJCF: Integer;
begin
if True then
Result := 0
{$IFDEF COMPILER_5_UP}
else
Result := 1;
{$ENDIF COMPILER_5_UP}
end;

After formatting this procedure contains a semicolon on the wrong place:

function TestJCF: Integer;
begin
if True then
Result := 0;
{$IFDEF COMPILER_5_UP}
else
Result := 1;
{$ENDIF COMPILER_5_UP}
end;

This is an example, the complete Virtual Treview source can be downloaded here:
http://www.soft-gems.net/index.php?option=com_content&task=view&id=12&Itemid=33

Recent changes to 211: Problem with semicolons after formatting VirtualTrees.pas