现代化的界面：vscode 配置 pascal环境

gaohaikuo1

1.安装vs code 和 free pascal（这一步比较简单，参考后面的链接）
2.vs code 安装几个插件：Pascal、Pascal Formatter、Pascal Language Basics、Free Pascal Debugger
安装方法：打开vs code ->点击左侧的四个小方块的图标（extensions)->搜索上述四个插件以此安装即可
3.在项目文件夹中建立如下架构(里面有个子文件夹.vscode，包含 launch.json和tasks.json两个文件， 外面有要调试的pas文件,具体代码内容见2-4楼）

.\
│  test.pas
└─.vscode
        launch.json
        tasks.json

4.点 F5 调试，会出现下图，选择Pascal(fpDebug)，会生成test.o和test.exe两个文件
5.打开cmd命令窗口，进入文件夹，输入test运行即可。（如果中文显示乱码需要先输入chcp 65001）


https://blog.csdn.net/mc_pang/article/details/109861188

gaohaikuo1

launch .json
{
    // Use IntelliSense to learn about possible attributes.
    // Hover to view descriptions of existing attributes.
    // For more information, visit: https://go.microsoft.com/fwlink/?linkid=830387
    "version": "0.2.0",
    "configurations": [
        {
            "type": "fpDebug",
            "request": "launch",
            "name": "Launch Pascal-file",
            // 执行文件的路径
            "program": "${workspaceFolder}\\${relativeFileDirname}\\${relativeFileDirname}.exe",
            "preLaunchTask": "fpDebug Pascal", // 与 tasks.json 中label的名字相同即可
        }
    ]
}

gaohaikuo1

tasks.json

{
    "version": "2.0.0",
    "tasks": [
        {
            "label": "fpDebug Pascal", // 这个名字任意  但是要与launch.json中的preLaunchTask一致
            "type": "shell",
            "windows": {
                "command": "fpc", // 这里是free pascal编译器，由于电脑环境变量path中有fpc的路径，这里只需写名字fpc即可
            },
            "presentation": {
                "reveal": "always",
                "panel": "new"
            },
            "args": [
                "-g", // debug选项

                // debug的文件，修改为自己的即可
                "${workspaceFolder}\\pascal.pas",

                {
                    "value": "", // 这个还不知道干什么的，先直接删掉
                    "quoting": "escape"
                 }
            ],
            "problemMatcher": {
                "owner": "external",
                "pattern": {
                "regexp": "^([\\w]+\\.(p|pp|pas))\\((\\d+)\\,(\\d+)\\)\\s(Fatal|Error|Warning|Note).*)",
                "file": 1,
                "line": 3,
                "column": 4,
                "message": 6
                }
            },
            "group": {
                "kind": "build",
                "isDefault": true
            }
        }
    ]
}

gaohaikuo1

test.pas

1. program chinese;
   
2. 
   
3. begin
   
4.     writeln('你好！');
   
5. end.

复制代码