有关公共动态库的常用函数调用2

    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();

    }

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);


}