-
编辑 删除
StrPas 将char数组的内容直接赋给字符串
uses StrUtils;var MyPrinter,MyHandle: THandle; MyDevice,MyDriver,MyPort: array [0..255] of Char; StrList:TStringList;begin StrList:=TStringList.Create; Split(PrinterStr,'\',RightList); RightList.Free; Printer.GetPr...
-
编辑 删除
查询ADO连接数据库中所有表
function TableExist(pConn:TADOConnection; pcTable: string):boolean;var tmpFldList: TStrings ; nLoop: integer ;begin Result := False ; tmpFldList := TStringList.Create ; pConn.GetTableNames( tmpFldList, True ); // 包含系统表 for nLoop := 0 to tmpFldList.Cou...
-
编辑 删除
ping 功能
uses Winsock;function PingHost(HostIP: String): Boolean;type PIPOptionInformation = ^TIPOptionInformation; TIPOptionInformation = packed record ...
-
编辑 删除
去掉字符串中的所有空格 StringReplace
edit1.Text := StringReplace('A Bc D ',' ', '', [rfReplaceAll]);
-
编辑 删除
获取电脑上连接的USB打印机
原理：通过强大的WMI，用 Win32_PnPEntit 即插即用的管理机制来搜索function RewiseUSBPrint(): String;var i: integer; Locator: OleVariant; WMI: OleVariant; RET: OleVariant; Enum: IEnumVariant; Tmp: OleVariant; Value: Cardinal;begin try&nbs...
-
编辑 删除
dxDBGrid 控制简单实现汇总
1. OptionsDB -> edgoLoadAllRecords 设为 True2. KeyField 指定关键字段3. ShowSummaryFooter 设为 True4. dxDBGrid -> Columns 要汇总的字段属性 SummaryFooterType 选汇总类型5. dxDBGrid -> Columns 要汇总的字段属性 SummaryFooterFormat 设定汇总结果的显示格式，前面可以用文字描述。...
-
编辑 删除
树形结构的组织机构的递归应用
表结构 Dept_ID Dept_Code Parent Content 程序 private { Private declarations } function recursivedep(inparent: string): string; public &nbs...
-
编辑 删除
Delphi调用DLL时 Invalid pointer operation 错误
解决方法：在工程的单元中（View Source）Uses 中引用 sharemem,
-
编辑 删除
执行DOS命令并返回结果CMD远控等等常用命令
unit UnitCmdShell; interfaceuses Windows,SysUtils,Classes; //K8执行DOS并返回结果function RunDosCommand(Command: string): string; implementation //================================================================//K8执行DOS并返回结果function RunDosCommand...
-
编辑 删除
用 Delphi 7 创建 ActiveX 组件DLL 在其他语言中调用
DELPHI使用uses ComObj;var PZHPrj: Variant;PZHPrj := CreateOleObject('PZHPrj.ComDLL');i:=PZHPrj.InitReader(0);ASP使用：<%Dim objSet bj=Server.CreateObject("PZHPrj.ComDLL")obj.InitReader(0)Set bj=nothin...
-
编辑 删除
Delphi制作DLL
Delphi制作DLL 一 Dll的制作一般步骤二 参数传递三 DLL的初始化和退出清理[如果需要初始化和退出清理]四 全局变量的使用五 调用静态载入六 调用动态载入七 在DLL建立一个Tform八 在DLL中建立一个TMDIChildform九 示例：十 Delphi制作的Dll与其他语言的混合编程中常遇问题...
-
编辑 删除
数字输出为中文描述（delphi）
unit converttostr; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Edit1: TEdit; Edit2: TEdit; Button1: TButton;...
-
编辑 删除
Rave Report报表打印时任意选择打印机
unit unitSetRavePrinter;interfaceuses RpDevice, Printers; procedure SetPrinter(PrinterName: String; Force: boolean = False); overload; procedure SetPrinter(PrinterIndex: Integer; Force: boolean = False); overload;implementationprocedure SetPrinter(Printer...
-
编辑 删除
校验身份证、组织机构代码证、纳税人识别号、营业执照号 的方法
function ValidatePID(const APID: string): string;{内部函数,取身份证号校验位,最后一位,对18位有效} function GetVerifyBit(sIdentityNum: string): Char; var nNum: Integer; begin Result := #0; nNum := StrToInt(sIdentityNum[1]) * 7 + StrToInt(...
-
编辑 删除
DELPHI 调用MySQL的存储过程
DELPHI中调用MYSQL的存储过程最好用QUERY来，简单方便：Dm_Tax.Run_Query.sql.add( 'call SaveInv( ' + sqlstring + ')' ); //showmessage(Dm_Tax.Run_Query.sql.text);//Dm_Tax.Ru...
-
编辑 删除
Delphi中票据凭证的精确打印
Delphi中票据凭证的精确打印一、概述 在银行，税务，邮政等行业的实际工作中，经常涉及到在印刷好具有固定格式的汇款单，储蓄凭证，税票等单据上的确定位置打印输出相关的信息。在此类需求中，精确地定位单据并打印相关信息，是解决问题]的关键。一般情况下，开发者都是通过在打印机上通过...
-
编辑 删除
数字输出为英文描述（delphi）
TNumberStr = String[130; const Numbers: array[1..19] of TNumberStr = ('ONE', 'TWO', 'THREE', 'FOUR', 'FIVE', 'SIX', 'SEVEN', 'EIGHT', 'NINE', 'TEN', 'ELEVEN', 'TWELVE'...
-
编辑 删除
delphi 获取所有应用程序窗口标题 类似任务管理器中的应用程序框内容
procedure TForm1.Button1Click(Sender: TObject);var hCurWindow:HWnd; WinText:array[0..255] of char;begin memo1.Lines.Clear; hCurWindow:=GetWindow(Handl...
-
编辑 删除
中文字符串的随意截取
function Getcaption_Fixed(LabelLen:integer;var InputStr:string):string;var i:integer;begin if ByteType(InputStr,LabelLen) = mbLeadByte then begin &nbs...
-
编辑 删除
文件读入文件流，逐一取出文件中的每一字节（不含中文）
procedure TForm1.Button1Click(Sender: TObject);const BufSize=128;var FileStream: TFileStream; i, BodyLen, ReadCount, ModRead: integer; BodyBuf: array [0..70000] of Byte; BodyBufchar: array [0..70000] of Char;begin try FileStream := ni...
