I would try and test this:
AssertException('Failing on 3', EUnknownSlideType,
TRunMethod(@si.SlideTypeDB));
It gives a "Variable identifier expected" just before the dot.
I even tried putting the si.SlideTypeDB inside a Local Procedure and
passing @<procedurename> but that also didn't work. :-(
Example
procedue Testcase;
procedure LocalCall;
begin
si.SlideTypeDB;
end
begin
AssertException('Failing on 3', EUnknownSlideType, @LocalCall);
end;
Graeme.
--
There's no place like 127.0.0.1
_______________________________________________
fpc-pascal maillist - [email protected]
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
