Code-Test

代码着色测试 
//Delphi 代码:
program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
begin
  try
    Writeln('Delphi 2009');
    Readln;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.
posted @ 2009-06-19 10:47  岛主  阅读(126)  评论(0)  编辑  收藏  举报