摘要：
type TLoginUser = record //登陆用户结构 id: string; name: string; ruleid: string; rulename: string; pwd: string; end; PShareObjectRecord = ^TShareObjectRecord; TShareObjectRecord = record //共享对象结构 Connection: TADOConnection; LoginUser: TLoginUser;end; var G_PShareObjectRecord: PShareObjectRecord;//... 阅读全文
摘要：
AdvAlertWindow1.AlertMessages.Add.Text.Text := s; AdvAlertWindow1.Last; AdvAlertWindow1.Show;tms套件中控件，做消息提示框效果非常好。 阅读全文
摘要：
Delphi中使用ListView和TreeView的Item中的Data可能被忽略的内存泄漏问题，使用了Data作为指针的数据，在删除项目时，这些内存将不会释放，可以在OnDeletion事件中加入Dispose(Item.Data); 语句来实现释放。 Delphi中大家在使用 ListView和TreeView时，一般都会使用到Item的Data属性来保存大家自己的内部数据，这个Data的声明如下：property Data: Pointer;大家可以看到它就是一个指针，使用上一般类似如下代码（以ListView为）添加时PViewItemState = ^TViewItemState; 阅读全文
摘要：
发送结构体：TMyData = record id:Integer; Name:Array[0..20] of Char; Sex:Array[0..10] of Char; Age:Byte; Address:Array[0..256] of Char; UpdateTime:double; en 阅读全文
摘要：
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; Timer1: TTimer; procedure Timer1Timer(Sender: TObject); procedure FormShow(Sender: TObject); private { Private declar... 阅读全文
摘要：
{函数procedure pinghost(ip:string;var info:string);ip:目标ＩＰ地址；info:ping了以后产生的信息(1)或(2)；(1)成功信息ip 发送测试的字符数 返回时间(2)出错信息Can not find host!使用uses ping;procedure TForm1.Button1Click(Sender: TObject);varstr:string;ping:Tping;beginping:=Tping.create ;//一定要初试化哦ping.pinghost('127.0.0.1',str);memo1.Lines 阅读全文
摘要：
procedure TForm1.Button1Click(Sender: TObject);var node: ttreenode; i: integer;begin i := 0; node := treeview1.Items.GetFirstNode; while node <> nil do begin inc(i); node := node.GetNext; end; caption := inttostr(i);end; 阅读全文
摘要：
procedure THostForm.LoadLocalModules;var i, x : integer; parentnode: TTreeNode; controller : THYModuleController; plugindescriptor : THYPLuginDescriptor;begin TreeView.Items.BeginUpdate; with ModuleManager do begin LoadModules(GetAppPath + 'plugin/*.dll'); for i := 0 to (ModuleCount - 1) do 阅读全文
摘要：
function blTree(const NodeCaption: string): TTreeNode; function GetNode(node: TTreeNode): TTreeNode; var I:integer; begin Result := nil; if node.Text = NodeCaption then begin Result := node; Exit; end; for I:=0 to node.Count-1 do begin GetNode(node.Item[i]); end; end;var I:integer;begin Result ... 阅读全文
摘要：
1、CompareMem(@guid1, @guid2, SizeOf(TGUID))最开始时想到的方法。查看Delphi中TGUID的定义可以看到TGUID实际上是一个结构。对于结构的比较来说最方便的就是内存直接比较了。TGUID = packed recordD1: LongWord;D2: Word;D3: Word;D4: array[0..7] of Byte;end;2、SysUtils.IsEqualGUID(const guid1, guid2: TGUID)经人提醒后发现在SysUtils单元已经有了一个这样专门比较GUID是否相等的函数。查看SysUtils的源码可以看到， 阅读全文