随笔分类 - Delphi
摘要：Dev老版本中导出功能DxGrExpt.pas 正元16进制数据对应着xls文件的二进制格式 // Excel format const XLSBOF: array[0..4] of Word = ($409, 6, 0, $10, 0); XLSGUTS: array[0..5] of Word = ($80, 8, 0, 0, 0, 0); XLSPalette: array[...
阅读全文
摘要：//查找线程是否启用 //AexeName:程序名称 //Myhwnd：返回找到的ProcessID //返回值：True 找到了程序 function TFmain.FindExe(AexeName: string; var MyHwnd: THandle): Boolean; var ProcessName: string; // 进程名 FSnapshotHandle: THandl...
阅读全文
摘要：https://blog.csdn.net/anguangqing/article/details/5977818 DELPHI中有两个UDP控件：TIdUDPServer和TIdUDPClient控件，可用于传输UDP数据；用法都很简单，主要是一些细微的特性，弄清楚了对正确使用这两种控件有很大的好处；下面分别介绍： 一、 TIdUDPServer：代表一个UDP的服务端...
阅读全文
摘要：将皮肤文件添加到Resources中，resourcetype必须设置为VCLSTYLE,在工程文件中添加vcl.themes,vcl.styles两个单元就可以在程序启用时直接从资源文件中读取皮肤文件 var lvstyle: TStyleManager.TStyleServicesHandle; begin try // TStyleManager.SetS...
阅读全文
摘要：https://stackoverflow.com/questions/2997079/delphi-how-to-prevent-forms-msgboxes-to-move-under-prior-form For old versions of delphi (prior to Delphi 2007), on forms OTHER than your main form: inte...
阅读全文
摘要：Xe版本当中 pchar string Pansichar ansichar Pansistring ansistring Pchar string widestring 当dll返回pansistring时 var lv1:ansistring; begin lv1:=Pansichar(func
阅读全文
摘要：Delphi7插件安装 Castalia 提供高版本的功能，重构代码，及代码分层 Gexprot 常用功能快捷键修改方案
阅读全文
摘要：当DataSet中Filter:='c_id=0001';Filtered=true时 while not eof do begin if FieldByName('sel').AsBoolean then begin Edit; FieldByName('sel').AsB...
阅读全文
摘要：http://docwiki.embarcadero.com/RADStudio/Tokyo/en/Calculated_and_Aggregated_Fields_(FireDAC) General Calculated fields are virtual fields whose values are not fetched / stored in the database. Instea...
阅读全文
摘要：Set of 可以直接进行加减 If shift= [ssAlt] then Shift:=shift+[ssAlt]; Shift:=shift-[ssAlt];
阅读全文
摘要：http://deerchao.net/tutorials/regex/regex.htm
阅读全文
摘要：Imemode属性，表示输入框的输入法不同状态： imClose 关闭状态； ImOpen 打开状态； ImChinese 中文输入法状态； ImDontCare 表示若输入法处于关闭状态则打开最近一次使用过的输入法；这个说法不准，见上文 ImSAlpha 半角状态； ImAlpha 全角状态。 如果不需要输入法切换功能，由用户自己控制的话，直接设置全局变量SysLocale.FarEast ...
阅读全文
摘要：将编译生成的Exe和Rsm文件复制到目标主机的目标文件夹 按F9调试即可
阅读全文
摘要：function _Wide2Ansi(Achar: Pchar): PAnsiChar; var lv: Ansistring; begin lv := Ansistring(string(Achar)); Result := PAnsiChar(lv); end; function _Ansi2Wide(Achar: PAnsiChar): Pchar; var lv: s...
阅读全文
摘要：https://stackoverflow.com/questions/24025646/delphi-http-post-json HTTP1.Request.ContentEncodingshould beHTTP1.Request.CharSetinstead. UTF-8 is a charset encoding, not a content encoding. And th...
阅读全文
摘要：class function TdbDocImg.ConvertPICintoJPG(cPic: TPicture; pWidth, pHeight: Integer): TJpegImage; var tBMP: TBitmap; begin Result := TJpegImage.Create; // if (pWidth > 0) or (pHeight > 0) t...
阅读全文
摘要：https://stackoverflow.com/questions/1277578/showing-cell-content-on-hint-in-devexpress-grid procedure TForm1.cxGrid1TableView1Column3GetCellHint( Send
阅读全文
摘要：http://www.cnblogs.com/del/archive/2008/02/19/1073568.html Delphi Tcolor与Html的颜色对应关系 Tcolor的组成是BGR Html的组成是RGB
阅读全文
摘要：引 言 相信有些计算机知识的朋友都应该听说过"DLL"。尤其是那些使用过windows操作系统的人，都应该有过多次重装系统的"悲惨"经历——无论再怎样小心，没有驱动损坏，没有病毒侵扰，仍然在使用（安装）了一段时间软件后，发现windows系统越来越庞大，操作越来越慢，还不时的出现曾经能使用的软件无法
阅读全文
摘要：给现在字段设置默认值 Sql server添加约束 ALTER TABLE book ADD DEFAULT '' FOR book_vcgjissn Access直接修改 alter table book alter book_vcgjissn varchar(30) default ''
阅读全文
浙公网安备 33010602011771号