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 编写的com 对象 用php调用
的
实例
delphi:
function Tmyxml.Get_xml: WideString;
begin
Get_xml:='wo shi a lei!';
end;
function Tmyxml.Get_xmldata: WideString;
var
xmlStr:string;
begin
xmlStr := '<?xml version="1.0" & ......
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 }
......
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 关键字详解---absolute//它使得你能够创建一个新变量, 并且该变量的起始地址与另一个变量相同.
var
Str: string[32];
StrLen: Byte absolute Str;
//这个声明指定了变量StrLen起始地址与Str相同.
//由于字符串的第0个位置保存了字符串的长度, 所以StrLen的值即字符串长度.
begin
Str := 'abc';
Edit ......
好久没写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, ......
