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翻译为创建了一个椭圆形区域】
相关文档：
type
TCharStack = class(TStack)
private
function GetTop: Char;
public
function Pop: Char;
function Push(Item: Char): Char;
property Top: Char read GetTop;
end;
const
FindSet = ['(',')'];
implementation
{$R *.dfm}
{ TCharStack }
......
delphi dll 实例 与 dll窗体实例
本动态链接库方法有
Min,Max,SynAPP,ShowForm,showmyform
dll工程文件
Library Project1;
uses
dllUnit1 in 'dllUnit1.pas' {Form1};
function Min(X, Y: Integer): Integer; export;
begin
if X < Y then Min := X else Min := Y;
end;
function Max(X, Y: Integer): ......
delphi 注册 com 对象的方法
procedure TForm1.Button3Click(Sender: TObject);
var
Sd: TSecurityDescriptor;
begin
InitializeSecurityDescriptor(@Sd, SECURITY_DESCRIPTOR_REVISION);
SetSecurityDescriptorDacl(@Sd, true, Nil, false);
RegSe ......
DELPHI
//////////////////////////////////
Function EncrypKey (Src:String; Key:String):string;
var
idx :integer;
KeyLen :Integer;
KeyPos :Integer; &nbs ......
好久没写BLOG了，送上一份原创的DELPHI版MP3切割，splitMp3为切割函数，支持按时间切割和按大小切割。望大家支持。
参考VC的资料编写的MP3切割DELPHI版单元.
unit UnitMp3DataUtil;
{
MP3 Cut Unit.
@author Jim Wu
2009-08
}
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, ......
