随笔分类 - Delphi
摘要：uses Winapi.WinSock; function GetLocalIpList(IPList: TStrings): Integer;type TaPInAddr = array [0 .. 10] of PInAddr; PaPInAddr = ^TaPInAddr;var HostNa
阅读全文
posted @ 2019-11-20 15:41
绿水青山777
摘要：Delphi2010小写金额转大写金额的源代码发表于2009年12月17日由admin由于从Delphi2010开始支持大字符集，原来一个汉字占２个字节，现在Delphi2010中占一个字节，所以原函数在Delphi2010下已不能用了，现将原函数修改如下： function ToBigRMB(Nu
阅读全文
posted @ 2019-11-20 15:26
绿水青山777
摘要：HWND是线程相关的，你可以通过HWND找到该窗口所属进程和线程 Handle 是代表系统的内核对象，如文件句柄，线程句柄，进程句柄。系统对内核对象以链表的形式进行管理，载入到内存中的每一个内核对象都有一个线性地址，同时相对系统来说，在串列中有一个索引位置，这个索引位置就是内核对象的handle。
阅读全文
posted @ 2019-10-31 09:59
绿水青山777
摘要：问题一：如何将转换的.sql文本快速导入oracle数据库中 解决方法： 方法一：如果文件内容比较少的情况下，可以直接将转换过的文件内容，复制文本内容至 PLSQL 文件 SQL窗口或者命令窗口，进行执行，提交。 SQL窗口界面 命令窗口截图 注意：执行完之后，文档如果没有写commit的话，需要手
阅读全文
posted @ 2019-10-01 10:31
绿水青山777
摘要：delphi 实现执行外部程序，并等待程序结束的函数 作者：admin 来源：未知 日期：2010/5/3 22:42:48 人气：1765 标签：QQ空间 新浪微博 腾讯微博 腾讯朋友 QQ收藏 百度空间 百度贴吧 更多0 typeTExecState = (esNormal, esMinimiz
阅读全文
posted @ 2019-09-30 18:00
绿水青山777
摘要：uses Tlhelp32; //在工程中引入单元Tlhelp32 //使用函数前，请在工程的前面对函数进行声明，截图如下 ///Delphi结束指定进程函数function TForm1.EndProcess(ExeFileName:string):integer;const PROCESS_TE
阅读全文
posted @ 2019-07-30 15:09
绿水青山777
摘要：unit Tlhelp323; unit Tlhelp323; interface interface uses uses Windows,SysUtils,Tlhelp32; Windows,SysUtils,Tlhelp32; function KillTask(ExeFileName: str
阅读全文
posted @ 2019-07-30 15:08
绿水青山777
摘要：Application.UpdateFormatSettings := False; //保证格式运行中不变。//目前，这行，只支持 VCL。 with FormatSettings do begin ShortDateFormat := 'yyyy-mm-dd'; LongDateFormat :
阅读全文
posted @ 2019-07-29 19:31
绿水青山777
摘要：procedure MasterData1OnBeforePrint(Sender: TfrxComponent); begin MasterData1.Visible := (<FxDB."Counts">) > 0; end;
阅读全文
posted @ 2019-07-15 16:24
绿水青山777
摘要：procedure TfrmCaoZYGLNew.edt1KeyPress(Sender: TObject; var Key: Char);var AItem: TListItem; i: Integer; isFound: Boolean;begin if key = #13 then begin
阅读全文
posted @ 2019-06-27 08:48
绿水青山777
摘要：//替换系统自带的Utf8Decode函数，原函数遇到日文等非法字符不能解析function DecodeUtf8Str(const S: UTF8String): WideString;var lenSrc, lenDst: Integer;begin lenSrc := Length(S); i
阅读全文
posted @ 2019-06-27 08:26
绿水青山777
摘要：function Generate_DZ_TYZL( ATYXML: string): WideString;var xml:string; mwXML,iTYXML:string;begin iTYXML:=StringReplace(ATYXML,#$D#$A,'',[rfReplaceAll]
阅读全文
posted @ 2019-06-11 16:42
绿水青山777
摘要：//*****************************************************************************// NPC Add This 2019-05-15 16:29:54// // 名 称：TfrmPublic.ExpDBGridEh_Exe
阅读全文
posted @ 2019-05-15 16:42
绿水青山777
摘要：xm := ansiStrAlloc(1024); fillChar(xm^,length(xm),0); ZeroMemory(xm,1024);
阅读全文
posted @ 2019-03-29 08:31
绿水青山777
摘要：http://www.ruanyifeng.com/blog/2018/01/assembly-language-primer.html 阮一峰的网络日志 » 首页 » 档案 </form> 阮一峰的网络日志 » 首页 » 档案 </form> 阮一峰的网络日志 » 首页 » 档案 </form>
阅读全文
posted @ 2019-03-09 09:41
绿水青山777
摘要：1.将该组件的[optionsen]中的 dgautosortmarking 属性设置为 true; 2.将要排序的字段的属性列表的 [title]的 titlebutton 属性设置为 true; 根据自己的数据源链接方式，分别USE下面的单元： EhLibADO.Pas = >ADO DataS
阅读全文
posted @ 2019-03-01 14:43
绿水青山777
摘要：使用FastReport报表时，如何根据字体实现控件分行？ 来源： 发布时间：2016-08-08 浏览：1917次 使用FastReport报表时，如何根据字体实现控件分行？ 来源： 发布时间：2016-08-08 浏览：1917次 使用FastReport报表时,根据字体实现控件分行，代码如下：
阅读全文
posted @ 2018-12-07 09:48
绿水青山777
摘要：1.DPR: Delphi Project文件，包含了Pascal代码。应用系统的工程文件2.PAS: Pascal文件，Pascal单元的源代码，可以是与窗体有关的单元或是独立的单元。3.DFM：Delphi Form File,描述窗体或数据模块及其组件属性的二进制文件。窗体界面文件, 同PAS
阅读全文
posted @ 2018-05-12 10:16
绿水青山777
浙公网安备 33010602011771号