代码着色 test

//宋体 16

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
begin
  try
    Writeln('Delphi');
    Readln;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.

 

 

 //微软雅黑 16

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
begin
  try
    Writeln('Delphi');
    Readln;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.

 

//

program Project1;
{$APPTYPE CONSOLE}
uses
  SysUtils;
begin
  try
    Writeln('Delphi');
    Readln;
  except
    on E:Exception do
      Writeln(E.Classname, ': ', E.Message);
  end;
end.