The Delphi project documents for himself in a Pascal-s (subset of) the source code based on the completion. I increased the types of packages, plus a user interface. The principle can be used as reference for learning compiler code.

project
.......\fcon.txt
.......\Filetest.pas
.......\FileWritebool.pas
.......\f_listout.txt
.......\f_result.txt
.......\ProjectmathNew2004.dof
.......\PSApp2004.cfg
.......\PSApp2004.dof
.......\PSApp2004.dpr
.......\PSApp2004.exe
.......\PSApp2004.res
.......\PSApp2004.~dpr
.......\ptest1.pas
.......\ptest1.pas.bak
.......\source
.......\......\uCSCompiler.dcu
.......\......\uCSCompiler.pas
.......\......\UMain.dcu
.......\......\UMain.ddp
.......\......\UMain.dfm
.......\......\UMain.pas
.......\t.pas
.......\t.pas.bak
.......\t2.PAS
.......\t3.PAS
.......\tests
.......\.....\FileArray.pas
.......\.....\FileArray.pas.bak
.......\.....\FileCase2.pas
.......\.....\FileCase3.pas
.......\.....\FileCase4.pas
.......\.....\FileCase5.pas
.......\.....\FileConst1.PAS
.......\.....\FileConst_Type_Var.pas
.......\.....\FileConst_Type_Var.pas.bak
.......\.....\FileDoneReal.PAS
.......\.....\FileDoneReal2.PAS
.......\.....\FileFor.pas
.......\.....\FileFor.pas.bak
.......\.....\FileFor2.pas
.......\.....\FileFor3.pas
.......\.....\FileFun.pas
.......\.....\FileFun.PAS.bak
.......\.....\FileFun1.PAS
.......\.....\FileFun3.pas
.......\.....\FileIf.pas
.......\.....\FileRepeat.pas
.......\.....\FileType1.pas
.......\.....\FileType2.PAS
.......\.....\FileType3.pas
.......\.....\FileWhile.PAS
.......\.....\这里的pas文件可以编译解释执行.txt
.......\说明.doc

• We are an exchange download platform that only provides communication channels. The downloaded content comes from the internet. Except for download issues, please Google on your own.
• The downloaded content is provided for members to upload. If it unintentionally infringes on your copyright, please contact us.
• Please use Winrar for decompression tools
• If download fail, Try it againg or Feedback to us.
• If downloaded content did not match the introduction, Feedback to us，Confirm and will be refund.
• Before downloading, you can inquire through the uploaded person information

Nothing．