2013年1月16日

Delphi 简单方法搜索定位TreeView项

摘要： procedure TFmXX.BtnFindClick(Sender: TObject);var i : integer;begin inherited; for i := 0 to BTvCity.Items.Count -1 do begin {如果和文本框匹配} if BTvCity.Items[i].Text = EdtNodeText.Text then begin {有父类的时候通过关闭展开父类让Tv自动定位} if BTvCity.Items[i].Parent <> nil then begin BTvCi... 阅读全文

posted @ 2013-01-16 23:20 哈哈哈哈BBA 阅读(3919) 评论(0) 推荐(0) 编辑

Delphi中Pointer的使用

摘要： varp1,p2,p3:pointerS:String;I:Integer;beginp1:= Pointer(S);p2:= @S;P3:= pchar(s);//p1和p2p3 有什么区别吗？procedure TForm1.FormCreate(Sender: TObject);begins:='abcdef';end;我们用这种方式来赋值s 是一个全局变量p1:=Pointer(S);45ecd8 是s的指针的指针所以这2句话是指针的复制p2:= @S;指针的指针赋值给指针p3:=pchar(s);call 404ca4在下面和第一个类似就是把string中的数据(去掉 阅读全文

posted @ 2013-01-16 22:33 哈哈哈哈BBA 阅读(4499) 评论(0) 推荐(0) 编辑

[转]理解 Delphi 的类(十一) - 深入类中的方法[10] - 构造方法与析构方法

摘要： //构造方法就是对象建立时调用的方法; 析构方法就是对象销毁时调用的方法. 如:TMyClass = class(TObject)public constructor Create; {构造方法} destructor Destroy; override; {析构方法}end;{几个要点: 这两个方法都可以追溯到所有类的祖先类 TObject; 它们都属于类方法, 尽管没有 class 标识符; 但和类方法也有区别: 一般的类方法不能使用类中非静态数据; 但它们可以. 必须使用 constructor 和 destructor 来定义, 但名称未必是: Crea... 阅读全文

posted @ 2013-01-16 14:17 哈哈哈哈BBA 阅读(172) 评论(0) 推荐(0) 编辑

导航