摘要： //remove duplicate strings from the string list procedure RemoveDuplicates(const stringList : TStringList) ; var buffer: TStringList; cnt: Integer; begin stringList.Sort; buffer := TStringList.Create; try buffer.Sorted := True; buffer.Duplicates := dupIgnore; //这个表示的是重复荐删除。 ... 阅读全文

摘要： 下面这个是dll输出的一个过程，这个过程是把dll中的窗体加载到procedure Led_Config(AHandle:THandle; parentHandle:THandle);stdcall;参数说明： AHandle ： 主程序主窗体的句柄parentHandle ：父容器的句柄 -- panel的句柄以下就是这个方法的实现：procedure Led_Config(AHandle:THandle; parentHandle:THandle);stdcall;var R : TRect;begin Application.Handle:= AHandle; if As... 阅读全文

摘要： 有一段XML文档：<?xml version="1.0" encoding="GB2312" ?><xml><Patient><检查标识 fieldtype="1" paramtype="1">12107054279090856</检查标识><病人标识 fieldtype="1" paramtype="1">12107047558849352</病人标识><病人ID fieldtype= 阅读全文