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翻译为创建了一个椭圆形区域】
相关文档:
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: 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
//////////////////////////////////
Function EncrypKey (Src:String; Key:String):string;
var
idx :integer;
KeyLen :Integer;
KeyPos :Integer; &nbs ......
问题背景:
公司希望使用Magento来进行接单,而后把订单导入到一个ERP系统中(订单处理引擎)。
问题:
在使用WebService从Magento中获取Payment信息时,信用卡是被加密的(法律规定不允许在数据库中存储信用卡的明文信息)!
......
Delphi 7之后的版本,增加了运算符的重载。虽然不尽人意(需要写特定英文),但有总比没有强。
例:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
T3DPoint = record
X, Y, Z: Doub ......