vip_ljq的专栏

TSPString = Class private FsSRC:string; sList:TStrings; FcMask: String; procedure SetMask(const Value: String); procedure SplitSToListEx(S: String; Seperator: String; List: TStri

unit uComm;interface uses classes,msxml2_tlb,Windows;type TPubToolKit = class(TObject) private FXmlHttp : IXMLHTTPRequest; public class function NewInstance: TObject; override; ...

uses DateUtils{------------------------------------------------------------------------------- 功能: 获取 tmpdt与当前系统时间的 差 参数: 返回值 Days,Hours,Minutes,Seconds:相差天数，相差时数，相差分...

unit ConnPool;interfaceuses  SysUtils, Classes, SyncObjs, Windows, Variants,  DateUtils, IniFiles, math, StrUtils,  Ora, OraProvider, DBAccess, DB,  ConnPool_Intr, DAScript, OraScript, MemD...

Unit PMyBaseDebug;{单元名：PMyBaseDebug创建者：马敏钊创建日期：20050407类：TBaseDebug功能描述：   提供基本的Debug方法 和日志显示记录的功能   本单元自己维护一个全局变量Gob_Debug20050412  添加了TBaseDebug 的自动注册热键的能力  将公开的 方法 InitDebugSystem(Imain...

unit uClosingEffect; interface uses Windows, Messages, SysUtils, Classes, Graphics; const WM_REDIRCREATE = WM_USER + 382; WM_REDIRDESTROY = WM_USER + 383; WM_REDIRCLOSING = WM_USER + 384

function colCounts(const src:string;cMask:string):Integer;var i:Integer; preIndex:Integer; tempStr:string;begin tempStr := src; i :=0; while True do begin preIndex := Pos(cMask,tem

unit uSetConfig;interfaceuses  SysUtils, uInterface, Windows, Controls, Forms, FSetForm;type{ TDllTest }  TIConfig = class(TInterfacedObject, IConfig)  private    FNotic:INotic;  pro

unit uInterface; //接口单元interfaceuses Windows,Classes;type{ IDllTest } IHtpCom = interface; INotic = interface ['{F4AA4BD8-7015-46D2-BD8B-D911CF111FD7}'] procedure setState(const bStart

{****************************************************************************** ZLibEx.pas **

{ Copyright Ralf Junker 2000-2001  http://www.zeitungsjunge.de/delphi/ }unit rjMime;{Unit:           rjMimeVersion:        1.50Last Modified:  1. February 2001Author:         Ralf J