unit Umain;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls,IdHashMessageDigest,IdGlobal,IdHash;type  TForm1 = class(TForm)

使用控件NativeExcel控件开发导出Excel的公共通用类

HTTP上传POST报文通过使用TIdMultiPartFormDataStream类，在网上看到有人说这个TIdMultiPartFormDataStream类使用释放有问题，BUG很多，暂时我没遇到，至少解决了我的问题，期待有高手写一个更加好更加完美的类能替代这个。引用单元uses IdGlobal, IdMultipartFormData,idhttp;代码片func

前段时间用D7开发到调用XE5的开发的动态库，然后在网上找到这2个转码函数，D7亲测可用，只是时间过去了，忘记从哪转载的了，在此表示对原创者抱歉了。纪念以备不时之需，不过低版本Ansi编码传参到高版本unicode编码，参数定义为widestring，好像不必转码。只是我人懒，懒得试了。Ansi转Unicodefunction AnsiToUnicode(Str: String

uses comobjprocedure ExportToExcel(OutGrid:TDBGridEh;AFileName:string);var  XLApp: Variant;  Sheet: Variant;  s1, s2: string;  Caption: String;  Row, Col: integer;  iCount, jCount: Int

据说高版本的XE已经有一个numberonly这样的属性限制只能输入数字了，我还一直用D7，只有开发Webservice接口时才用到XE2，有点落后了！！一点点经验还是要记录下来，说不定后面哪天用得到呢？Edit的KeyPress事件写代码、我的Demo是一个共用的KeyPress事件procedure TForm1.Edit1KeyPress(Sender: TObject; var

view source中代码var  mymutex: THandle;begin  mymutex:=CreateMutex(nil,True,'检测进程运行工具');  if GetLastError  begin    Application.Initialize;    Application.MainFormOnTaskbar := false;   

需要引用单元 inifiles , Forms读取ini文件：with Tinifile.Create(extractfilepath(application.exename)+'SystemSet.INI') do begin //配置参数 Hport:=strtoint(ReadString('SYS','port',''));

uses Comobj;procedure TForm10.ExeclExit;var h,k:integer; Excelid: OleVariant; s: string;begin try Excelid := CreateOLEObject('Excel.Application'); except Application.M

1、处理以逗号分隔的长字符串。方法一：procedure Str_Tools;var TmpList:TStringList; IIndex:Integer; MUSVOL:String;begin MUSVOL:='0,2,4,6,8,10'; TmpList:=TStringList.Create; try while

procedure TForm1.Button1Click(Sender: TObject);var D:TDateTime; s:string;begin D:=VarToDateTime('05-10-14 04:35PM'); S:=FormatDatetime('YYYY/MM/DD HH:MM:SS',D); showmessage(s);end

1、DELPHI连接MS SQLSERVER数据库ADOConn_ToolDB.Close; ADOConn_ToolDB.ConnectionString:='Provider=SQLOLEDB.1;'+ 'Persist Security Info=True;'+

uses idhttp,IdHTTPServer; //idhttp组件提交下载请求procedure TVodService.Button3Click(Sender: TObject); var h:TIdhttp; MyStream:TMemoryStream; url:string;begin MyStream:=TMemoryStream.C

uses WinSock;function LocalIP: string;type TaPInAddr = array [0..10] of PInAddr; PaPInAddr = ^TaPInAddr;var phe: PHostEnt; pptr: PaPInAddr; Buffer: array [0..63]

function TForm1.myStrToHex(s:string):string; //字串转16进制var    TmpStr:string;    i:integer;begin    TmpStr:='';    for i:=1 to Length(s)do    begin        TmpStr:=TmpStr+IntToHex(ord(s[i

懒了，自己记录以备后用，直接贴整个单元代码了。使用时调用 DeleteDir函数传入需要删除的文件夹路径就行了。unit ZipUtil;interfaceuses SysUtils, Classes, VCLZip, VCLUnZip, Dialogs, ActiveX; //删除目录和目录下得所有文件和文件夹 procedure DeleteDir(sDirectory:...