cmx8818的博客

//----------例子1：监控中，多层Json jo: ISuperObject; JA_DEPT,JA_TYPE,JA_MAC:TSuperArray; //json数组 SetLength(NewDeptInfo,0); jo := SO(WS_Data); //循环放到数据里面去， //-------------地区 JA_DEPT:=jo.A['BelongDept']; SetLength(NewDeptInfo,JA_D.

如果WINDOWS系统的短日期格式为“yyyy/m/d”，执行下面的代码会报错：2013-01-29 00:00:00不是合法的日期procedure TFrmQuerySale.FormShow(Sender: TObject);var sDate: string;begin inherited; // 默认查当天的销售数据 sDate := FormatDateTim...

（转自）https://www.cnblogs.com/stg609/p/3857242.html本文将要提到的线程及其相关内容，均是指 Windows 操作系统中的线程，不涉及其它操作系统。文章索引　　核心概念　　Thread.Yeild      Thread.Sleep(0)　　Thread.Sleep(1)　　实验告诉你：单一线程　　实验告诉你：多线程（同优先级）　　实验告诉你：多线程（不...

(转自)https://www.cnblogs.com/keyyang/p/4128424.html我们可能经常会用到 Thread.Sleep 函数来使线程挂起一段时间。那么你有没有正确的理解这个函数的用法呢？思考下面这两个问题：假设现在是 2008-4-7 12:00:00.000，如果我调用一下 Thread.Sleep(1000) ，在 2008-4-7 12:00:01.000 的时候，...

absolute//它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同.var Str: string[32]; StrLen: Byte absolute Str;//这个声明指定了变量StrLen起始地址与Str相同.//由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度.begin Str := 'abc'; Edit1.T

引用资源打开Project菜单下的View Source菜单项{$R *.res}下面添加一行{$R uac.res} 重新编译即可

今天写一个dll准备给.net调用, dll写出之后给用delphi测试一下, 居然出错, 更别说给.net调用了.查来查去原来是参数和返回值使用string类型, 后面看了'Delphi 编写 DLL 返回字符串，.net 调用。' 这篇文章才解决, 顺便也收藏了一下,原来delphi写的dll有这么多限制的.这一点我们需要注意  a. 参数和返回值为string、动态数

一、调用javascript的方法     两种：      第一种：采用自编函数的方法     function ExecuteJavaScript(WebBrowser:TWebBrowser; Code: string):Variant;var //发送脚本Document:IHTMLDocument2;Window:IHTMLWindow2;begin/

有点奇怪，我在Google中查找"Delphi 字符串 Hash"居然找不到相关的Hash函数！正当我不知如何是好是，忽然想起开源的JEDI项目，这个大而全的项目虽然我极少使用，但我知道里面什么都有的。一看果然……　　下面是我从JEDI里面提取出来的Hash函数：function StrHash(const SoureStr: string): Cardinal;  const   

1.在项目中使用FastMM4打开项目文件，让第一个单元引用FastMM4.2.定义编译条件变量Shift+Ctrl+F11,打开项目设置窗口，设置Conditional defines。定义三个编译变量:FullDebugModeLogMemoryLeakDetailToFileClearLogFileOnStartup3.设置Map file为Det

以后路径相关的处理, 用 IOUtils.TPath 就很方便了.//较常用的方法:TPath.GetTempPath;                  {获取临时文件夹路径}TPath.GetTempFileName;              {获取一个临时文件名}TPath.GetPathRoot();                {提取盘符, 如: c:\}T

转自：点击打开链接WebBrowser本身没有提供内容发生改变的事件，需要我们自己去实现。下面是delphi下的实现方法。首先我们需要实现一个接口：IHTMLChangeSink。在delphi的MSHTML单元里，delphi已经为我们声明了该接口，如下：  IHTMLChangeSink = interface(IUnknown)    ['{3050F64A-

【字符串函数大全】       首部 function AnsiResemblesText(const AText, AOther: string): Boolean;       $[StrUtils.pas      功能 返回两个字符串是否相似      说明 ANSI(American National Standards Institute)美国国家标准协会;不区分大小写

Delphi TStringList的用法 TStrings是一个抽象类，在实际开发中，是除了基本类型外，应用得最多的。TStringList 常用方法与属性:varList: TStringList;i: Integer;beginList := TStringList.Create;List.Add('Strings1'); {添加}List.Add('