小编Doo*_*ely的帖子

所以我创建了一个pascal脚本,它将在主目录中创建一个目录,并在该新目录中创建多个文件夹.(插入XZibit双关语)

现在我们在工作的地方这样做,我们将这些变量发送到exe,然后根据传递的内容创建目录(在本例中,路径为'fullpath').

我不确定我是否正确接近这个并且会更喜欢更为突出的PASCAL大师的输入:)

const
ARRAY1: Array[1..9] of String = (
     'NQN', 'Documents', 'Correspondences',
     'Worksheets', 'Reports', 'Claims',
     'Certificate of Insurance', 'Invoice', 'Monthly Reports'
);
var
i: Integer;
fullpath, path, name, os, es, cmd: String;
Code : LongWord;
res: Integer;

Begin
path := 'Policies'
fullpath := path+'\'+[i]
     for i := 1 to 9 do
    IF(ReqList.Values['sRM_ID'] = '') then
        Begin
            cmd := 'C:\XXX\bin\mkdir.exe "'+fullpath+'"';
            res :=ExecuteProc(cmd, 'C:\XXX\bin', true, -1, true, nil, os, es, code);
            if(res = 0) then
                Begin
                    ReqList.values['NoErrors'] := '1';
                    ReqList.Values['Response_content']:= …