滔 Roy

摘要： Delphi WinAPI AnimateWindow - 使您能够在显示或隐藏窗口时产生特殊效果 AnimateWindow //使您能够在显示或隐藏窗口时产生特殊效果。有四种类型的动画：滚动、滑动、折叠或展开，以及alpha混合淡入淡出。 原型： BOOL AnimateWindow( [in] 阅读全文

摘要： Delphi WinAPI ShowWindow - 设置指定窗口的显示状态 ShowWindow 原型： BOOL ShowWindow( [in] HWND hWnd, //窗口句柄 [in] int nCmdShow //控制窗口的显示方式 ); 参数： nCmdShow //控制窗口的显示方 阅读全文

摘要： Delphi txt文件的操作[2]用流Stream来读取文件 1、读取全部内容 var mFileStream: TMemoryStream; Filebuf: array of PChar; //声明动态数组 iLen: Int64; begin iLen := 0; mFileStream : 阅读全文

摘要： Delphi 错误：Borland license information was found, but it is not valid for Delphi.Youcan not run Delphi without this information.Click the 'Exit' button 阅读全文

摘要： Delphi XE JSON[5] JSON数据格式化输出 uses Converters 1、JsonReformat //自动格式化输出漂亮的JSON格式 Memo2.Text:=TConverters.JsonReformat(Memo1.Text, True); 2、Json2DelphiC 阅读全文

摘要： Delphi XE JSON[4] 创建JSON数据（扩展：链式写法） Delphi XE JSON[2] 创建JSON数据 扩展一种链式写法： var JSObject,JSEle1,JSEle2:TJSONObject; JSONArr:TJSONArray; begin Memo1.Clear 阅读全文

摘要： {该文首发于博客园 滔Roy，无须授权即可转发，请自觉保留头部申明} Delphi XE JSON[3] 解析数据 1、解析单个文本 var JSONValue: TJSONValue; JSObject:TJSONObject; JValue:string; begin if Trim(Memo1 阅读全文

摘要： {该文首发于博客园 滔Roy，无须授权即可转发，请自觉保留头部申明} Delphi XE JSON[2] 创建JSON数据 1、创建JSON 数据(普通) var JSObject:TJSONObject; begin JSObject:=TJSONObject.Create; //创建JSON对象 阅读全文

摘要： {该文首发于博客园 滔Roy，无须授权即可转发，请自觉保留头部申明} Delphi XE JSON[1] 类成员 uses System.JSON; JSON实现了一个TJson类，该类提供了几种方便的方法： 将对象转换为Json，反之亦然 格式化Json 以下类成员： TJSONPathParse 阅读全文

摘要： SQL 数据库错误：system.Data.SqlClient.SqlException: RESTORE 无法处理数据库 '***'，因为它正由此会话使用。建议在执行此操作时使用 master 数据库。 RESTORE DATABASE 正在异常终止。 原因：当前会话已经占用该数据库 解决： 方法 阅读全文