摘要: 要将 JSON 格式的字符串转换回数组,你可以使用 JavaScript 的 JSON.parse 方法。这个方法可以将一个 JSON 字符串解析成 JavaScript 对象或数组。对于你的字符串,可以这样操作: 假设你有一个 JSON 字符串 str,其内容如下: '[{"goodsCode": 阅读全文
posted @ 2023-11-24 22:44 夏天的西瓜君 阅读(920) 评论(0) 推荐(0) 编辑
摘要: 我在element-ui中使用el-table排序,默认开启就是el-table-column上加个sortable即可,但是后端返回的数据中含有中文 列如tableData中有个字段count 对应值是 类似 13,6,2,3,4,5,10以上,7,含有中文‘以上’两个字,这个时候自带的排序已经无 阅读全文
posted @ 2023-11-24 21:19 夏天的西瓜君 阅读(584) 评论(0) 推荐(0) 编辑
摘要: // 首先用nuget 安装Aforge.video、Aforge.Video.FFMPEG、AForge.Video.DirectShow //在Form1上拖个Button、videoPlayer两个控件,在videoPlayer控件中NewFrame方法 using AForge.Video; 阅读全文
posted @ 2023-05-05 09:38 夏天的西瓜君 阅读(369) 评论(0) 推荐(0) 编辑
摘要: <el-select v-model="data.value" clearable > <el-option v-for="item in list" :key="item.key" :label="item.label" :value="item.value" /> </el-select> 数据 阅读全文
posted @ 2023-02-02 14:12 夏天的西瓜君 阅读(276) 评论(0) 推荐(0) 编辑
摘要: // 事先需要安装foxit quick pdf library ,安装完成,把DebenuPDFLibraryDLL1811.pas文件添加你的项目文件内 // 把DebenuPDFLibraryDLL1811.dll动态库复制到你执行程序目录 // 执行调用指定打印机打印PDF文件var PDF 阅读全文
posted @ 2023-01-01 15:40 夏天的西瓜君 阅读(1118) 评论(0) 推荐(0) 编辑
摘要: use Vcl.Printers, Winapi.ShellAPI;procedure TForm1.PrintDocument(const documentToPrint: string); var printCommand: string; printerInfo: string; Device 阅读全文
posted @ 2022-06-21 21:54 夏天的西瓜君 阅读(2114) 评论(0) 推荐(0) 编辑
摘要: procedure TForm1.btn_getTokenClick(Sender: TObject); var sendData: string; url: string; ss: TStringStream; jsonData: isuperobject; begin url := 'https 阅读全文
posted @ 2021-07-20 14:49 夏天的西瓜君 阅读(513) 评论(0) 推荐(0) 编辑
摘要: procedure TForm1.cxButton_checkIDClick(Sender: TObject); var base64: string; token: string; host: string; postData: string; ss: TStringStream; mm: TMe 阅读全文
posted @ 2021-07-20 14:43 夏天的西瓜君 阅读(421) 评论(0) 推荐(0) 编辑
摘要: //由于dxCameraControl 直接拍照图片保存普遍比较大,大约3M左右,故需要压缩procedure TFormMain.capturePic(tmpStr: string); var filePathName: string; JPEGImage: TJPEGImage; begin i 阅读全文
posted @ 2021-06-09 19:50 夏天的西瓜君 阅读(242) 评论(0) 推荐(0) 编辑
摘要: //use qworker;procedure TForm1.doplanjob(ajob: PQJob); var APlan: PQJob; begin APlan := ajob.PlanJob; lblPlanStatic.Caption := '计划任务已执行' + IntToStr(aj 阅读全文
posted @ 2021-02-01 11:00 夏天的西瓜君 阅读(551) 评论(0) 推荐(0) 编辑