david
397cad2594
git-svn-id: https://192.168.0.254/svn/Componentes.Terceros.RemObjects@2 b6239004-a887-0f4b-9937-50029ccdca16
13 lines
214 B
Plaintext
13 lines
214 B
Plaintext
{
|
|
This file is part of a DEFINE / INCLUDE test. Use
|
|
testdefine.rops file to execute this file.
|
|
}
|
|
|
|
procedure TestProc;
|
|
begin
|
|
Writeln('Test Proc Called');
|
|
{$IFDEF ERROR}
|
|
Error!
|
|
{$ENDIF}
|
|
end;
|