列表3.2.txt

来自「klinux书籍的配套光盘。可以学习学习。」· 文本 代码 · 共 20 行

【列表3.2】  一个简单的测试 libhello.so的程序。
{HelloTest.dpr - Libraries example test program }
program HelloTest;
{$APPTYPE CONSOLE}
uses
   SysUtils, HelloIntf;
begin
   WriteLn ('Start library test');
   WriteLn ('Press Enter to call the SayHello function'):
   ReadLn;
   try
      SayHello;
   except
      on E:Exception do
         WriteLn ('Error: '+E.Message);
   end;
   WriteLn ('Press Enter to exit the program');
   ReadLn;
end.