consoleapp.dpr

来自「delphi开发语言下的源代码分析」· DPR 代码 · 共 25 行

program ConsoleApp;
{$APPTYPE CONSOLE}

uses
  Console;

const
  MaxAsc  = 26;

var
  i : Integer;
  s : String[MaxAsc];
  p : pChar = '1234567890';

begin
  s[0] := chr(MaxAsc);
  for i := 1 to MaxAsc do
    byte(s[i]) := ord('a') -1 + i;

  writeln(s);
  writeln(p);

  readln;
end.