1.選擇產品介面

    frmSelectLaserFile->strLaserFileName    = strSystemLaserFileName;

    //frmSelectLaserFile->jczCard                = jczCard;
    frmSelectLaserFile->ShowModal();

    //
    if(frmSelectLaserFile->ModalResult == mrOk)
    {
        //
        strSystemLaserFileName        = frmSelectLaserFile->strLaserFileName;
        panLaserFileName
 
->Caption    = strSystemLaserFileName;

        jczCard.InitEntName(this,strSystemLaserFileName,false,false);
//
//        儲存系統引數
        SaveSystemConfig();

    }

需要載入SelectLaserFile.cpp動態庫，並定義全域性變數UnicodeString strSystemLaserFileName;

該函式呼叫結束後，可直接將panEntName控制元件動態生成。

2.

void __fastcall TfrmMain::SaveMarkData()
{
    
 
//
    UnicodeString strDate,strDataFilePath,strMarkData,strMarkContent;

    strDate    = Now().FormatString("YYYYMMDD");

    strDataFilePath     = ExtractFilePath(Application->ExeName);
    strDataFilePath += panLaserFileName->Caption.Trim()    + "\\";


    //
    if(!func.CreateFolder(strDataFilePath))
    {
        func.SysStatus(
 
this,"建立資料夾 " + strDataFilePath + " 失敗！");
        return;
    }

    //
    strDataFilePath += strDate + ".csv";

    //
    strMarkData    = Now().FormatString("YYYY-MM-DD hh:mm:ss.zzz") + ",";
    for(int n = 0; n < 50; n++)
    {
        if(!panEntName->FindComponent("edtMarkContent_" + UnicodeString(n)))
            break;

        //
        strMarkContent    = ((TRzEdit*)panEntName->FindComponent("edtMarkContent_" + UnicodeString(n)))->Text.Trim();

        //
        func.SysStatus(this,"寫入資料 " + UnicodeString(n) + ":" + strMarkContent);
        opc.WriteOPCString("BOLN.OPC.data" + UnicodeString(n),strMarkContent);

        strMarkData += strMarkContent + ",";

    }

    //
    strMarkData += "\n";

    //
    func.SysStatus(this,"寫入資料 " + strMarkData + " 至檔案 " + strDataFilePath);
    func.WriteFileData(strDataFilePath,strMarkData);


}

該函式目的為將每個模板的資料存貯起來。