摘要： Delphi中大家在使用 ListView和TreeView时，一般都会使用到Item的Data属性来保存大家自己的内部数据，这个Data的声明如下：property Data: Pointer;大家可以看到它就是一个指针，使用上一般类似如下代码（以ListView为）添加时 PViewItemState = ^TViewItemState; TViewItemState = record ViewItemId: integer; end;var nLoop: integer; li: TListItem; pp: PViewItemState;begin for nLoop := 0 to 阅读全文

摘要： listbox删除删除选中的某个：procedure TForm1.Button1Click(Sender: TObject); var i:integer;begin i:=0; while i<listbox1.Count do//删除掉前一个后，下一个会上移，所以用while if listbox1.selected[i] then listbox1.Items.delete(i) else i:=i+1;end; 删除listbox中所有的内容：procedure TForm1.Button2Click(Sender: TObject);var i:integer; begin 阅读全文

摘要： DELPHI下的SOCK编程 本文是写给公司新来的程序员的，算是一点培训的教材。本文不会涉及太多的编程细节，只是简单讲解在DELPHI下进行Winsock编程最好了解的知识。 题外话：我认为学习编程就如同学习外语一样，最好的方式是你先学会如何去运用它，然后才是了解它的语言特性、语法之类的东西。不过很可惜，我们以前的外语教育使用了相反的过程。软件编程也是一样，在很多人的大学阶段，你更多的是学习那些理论知识，学习“语法”，这里，我丝毫没有贬低理论知识重要性的意思。理论知识和实践是相辅相成的，但一个恰当的学习方式，很多时候可以让学习者得到事半功倍的效果。例如你学习《数据结构》中排序的概念，我们假设对 阅读全文

摘要： 原来一直使用Delphi自带的TXMLDocument类来进行XML文件的读写，虽然麻烦了一点，但功能上来说还不错。只是有一个地方让我实在不舒服 - 每次创建TXMLDocument类实例的时候必须传入TComponent对象，这就意味着，如果我把对XML文件的读写封装到一个类里面，那么在创建这个自定义类的时候就必须也传入TComponent对象。我尝试过很多方法，但是都无法避免，最后试着上网找了找，于是就找到了NativeXML这个库。下载之后马上打开Demo看了看，cool，创建TNativeXML的时候只需要传入xml文件路径就可以，再往下看就让我开始惊喜了。它已经把大多数操作都封装好了 阅读全文

摘要： 键值表： 虚拟键码 键值 说明 VK_LBUTTON 01 Left mouse button VK_RBUTTON 02 Right mouse button VK_CANCEL 03 Control-break processing VK_MBUTTON 04 Middle mouse button (three-button mouse) ? 05-07 Undefined VK_BACK 08 BACKSPACE key VK_TAB 09 TAB key ? 0A-0B Undefined VK_CLEAR 0C CLEAR key VK_RETURN 0D ENTER key .. 阅读全文

摘要： procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);begin if not (Key in ['0'..'9', '.', #8 ]) then begin Key := #0; end;end; 阅读全文

摘要： 类的声明 有两种声明办法 一、自定义类的父类delphi内建类 type 类名 = class(父类) 成员表达式 end; （1）保留字Class说明该类是dephi内建类，将继承父类的属性和方法 （2）“父类”默认是delphi的祖先类Tobject 二、完全自定义的类 Type 类名 = object(父类) 成员表达式 End; （1） 保留字object说明该类是完全自定义的类 （2） 自类也必须是完全自义的类 注意：用class自定义的类必须遵循delphi内建类的Tobject的特定的构造... 阅读全文

摘要： TStringList 常用操作//TStringList 常用方法与属性:var List: TStringList; i: Integer;begin List := TStringList.Create; List.Add('Strings1'); {添加} List.Add('Strings2'); List.Exchange(0,1); {置换} List.Insert(0,'Strings3'); {插入} i := List.IndexOf('Strings1'); {第一次出现的位置} List.Sort; {排序 阅读全文

摘要： 1.先定义结构:type PItemCtrl = ^TItemCtrl; TItemCtrl = record viewCheckBox: TCheckBox; markCheckBox: TCheckBox; guidCheckBox: TCheckBox;end; 2.在listview的CustomDrawSubItem事件中写如下代码;var Rect: TRect; P: PItemCtrl;begin if SubItem in [1,2,3] then begin DefaultDraw:= False; // 不显示默认的文本. Rect:= Item.DisplayRect( 阅读全文

摘要： 创建一个文本格式的文件（假设名为xp.manifest），内容如下： <?xml version = "1.0 " encoding = "UTF-8 " standalone = "yes "?> <assembly xmlns = "urn:schemas-microsoft-com:asm.v1 " manifestVersion = "1.0 "> <assemblyIdentity version= "1.0.0.0 " process 阅读全文