Delphi结构体的扩展,可以自动初始化,反初始化,自定义拷贝函数.
文章转贴,原文地址为http://www.raysoftware.cn/?p=518 众所周知Delphi的record和CPP的struct是有区别的.CPP的struct可以看成是class的别名,可以有构造,析构,可以继承. TString = record</pre> len : Integer; //这个不会被自动初始化 data : pchar; //这个不会被自动初始化 class operator Add(a,b: TString ): TString; end; 实现了一个结构体的初始化,反初始化,拷贝的自动调用单元. TTest = record _ : AutoRecord; procedure Operator_Initialize(); //初始化 procedure Operaor_Finalize(); //反初始化 procedure Operator_Assign(const source: TTest); overload;//拷贝 := procedure Operator_Assign(const source: TTest; defaultAssign : TDefaultAssign(*调用默认赋值的函数*)); overload;//拷贝 := end; 这样TTest在使用的时候就会自动调 var Test : TTest; TestArray : array[0..1] of TTest; begin //Test.Operator_Initialize();TestArray[0].Operator_Initialize();TestArray[1].Operator_Initialize(); ........ Test := TestArray[0]; //test.Operator_Assign(TestArray[0]); end;//Test.Operator_Finalize();TestArray[0].Operator_Finalize();TestArray[1].Operator_Finalize(); 注释中是自动被调用的代码.好玩吧. 不过还有几个限制,是受Delphi编译器的限制.没法实现. 总之,编译器不支持的话就要受上面的限制,就当给大家玩玩. uses AutoRecords; type TTest = record _: AutoRecord; i,j,k: Integer; len: Integer; P: PByte; procedure Operator_Initialize(); // 初始化 procedure Operaor_Finalize(); // 反初始化 procedure Operator_Assign(const source: TTest); overload; // 拷贝 := end; { TTest } procedure TTest.Operaor_Finalize; begin FreeMem(P); end; procedure TTest.Operator_Assign(const source: TTest); begin Move(source.P^,P^,len); i := source.i + 100; j := source.j * 5; k := source.k; end; procedure TTest.Operator_Initialize; begin i := 0; j := 1; k := 2; len := 100; GetMem(P,len); end; procedure TForm5.Button1Click(Sender: TObject); var a: array [0 .. 1] of TTest; begin // 会调用TTest.Operator_Initialize两次 a[0] := a[1]; // 会调用Operator_Assign end; // 会调用TTest.Operaor_Finalize两次 (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |