Lazarus开发串口通信文章出处：sujic2006 发布时间： 2011/08/26 | 1206 次阅读 | 1次推荐 | 0条留言每天新产品 时刻新体验 相信品牌的力量 专业PCB打样工厂，24小时加急出货     Lazarus的设计目标是应用Free Pascal，所以所有凡是Free Pascal能运行的平台，Lazarus都可以运行。最新版本能运行于Linux，Win32和

Public Function JSONParse(ByVal JSONPath As String, ByVal JSONString As String) As VariantDim JSON As ObjectSet JSON = CreateObject("MSScriptControl.ScriptControl")JSON.Language = "JScr