易截截图软件、单文件、免安装、纯绿色、仅160KB

delphi技巧记录


#13回车换行
将form2内容加入到form1列表框:在form2里:form1.listbox1.items.add(edit1.text)
listbox1.items.loadfromfile('chinese.txt')将chinese.txt文件内容载入列表框中。但前提是要整个窗体创建时候加载导入,双击整个窗体procedure TForm1.FormCreate(Sender: TObject)
listbox1.items.savetofile('chinese.txt')将列表框的列表内容保存到当前目录下的chinese.txt文件中。
listbox1.deleteselected删除列表框所选的一项combobox1.deleteselected删除下拉列表框所选的一项
form1.show与form1.showmodal的区别: show,表单1打开表单2的同时,仍能切换到表单1操作。而showmodal,开了表单2,关闭了才能切换返回表单1。
功能函数:showmessage('内容'); 表单form.close; 表单form.show;
编写菜单时:ctrl+→(右方向键):嵌套子菜单项。
messagebox(handle,'文字','标题',MB_ok);
除了MB_ok:对话框的确定,还有MB_ICONINFORMATION:蓝色惊叹号。MB_ICONWARNING:黄色惊叹号。MB_ICONQUESTION:无声音蓝色问号。MB_ICONHAND:红色警告交叉号。
------------------------------
Rgn:region缩写[ri:dʒən]地区,地带,区域,领域,范围【仅为英文翻译,例CreateEllipticRgn翻译为创建了一个椭圆形区域】


相关文档:

delphi 生成xml 方法 与 delphi txt文件操作

Procedure TForm1.Button1Click(Sender: TObject);
Var
xmlstr,FileName: String;
f: Textfile;
Begin
xmlStr := '<?xml version="1.0" encoding="gb2312"?>';
xmlstr := xmlstr + '<user><name>张三</name><sex>男</sex></user>';
sh ......

Delphi in a Unicode World Part II

Delphi in a Unicode World Part II:  New RTL Features and
Classes to Support Unicode
By: Nick
Hodges
原文链接:http://dn.codegear.com/article/38498
Abstract: This article will cover the new features of the Tiburon
Runtime Library that will help handle Unicode strings.
//
 & ......

改写了一个常用的DELPHI的加解密函数

DELPHI
//////////////////////////////////
Function   EncrypKey   (Src:String;   Key:String):string;
  var  
  idx   :integer;  
  KeyLen   :Integer;  
  KeyPos   :Integer; &nbs ......

在Delphi中解密Magento加密的信用卡号

问题背景:
       公司希望使用Magento来进行接单,而后把订单导入到一个ERP系统中(订单处理引擎)。
问题:
       在使用WebService从Magento中获取Payment信息时,信用卡是被加密的(法律规定不允许在数据库中存储信用卡的明文信息)!
      ......

Delphi 之运算符重载

Delphi 7之后的版本,增加了运算符的重载。虽然不尽人意(需要写特定英文),但有总比没有强。
例:
unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;
type
  T3DPoint = record
    X, Y, Z: Doub ......
© 2009 ej38.com All Rights Reserved. 关于E健网联系我们 | 站点地图 | 赣ICP备09004571号