I created a multiple objects and delete it when done.
However, Not all objects are deleted.
But If i delete one by one using looping with the know name, it is OK.
Code: Select all
procedure Done; stdcall;
var i: Integer;
s: string;
begin
var
i: integer;
s: string;
for i:=0 to ObjectsTotal - 1 do
begin
s:= ObjectName(i);
Print(s);
ObjectDelete(s);
end;
Following is the log that show some object name are blank
Code: Select all
.2011.03.02 07:42:13 Total Objects = 30
.2011.03.02 07:42:13 Object 0 : wtOF_TXT_5D_MP0
.2011.03.02 07:42:13 Object 1 : wtOF_TXT_3D_HR0
.2011.03.02 07:42:13 Object 2 : wtOF_HL_3D_HR0
.2011.03.02 07:42:13 Object 3 : wtOF_TXT_1Hr-VA0
.2011.03.02 07:42:13 Object 4 : wtOF_TXT_1Hr-400
.2011.03.02 07:42:13 Object 5 : wtOF_HL_1Hr+400
.2011.03.02 07:42:13 Object 6 : wtOF_TXT_720_MPL0
.2011.03.02 07:42:13 Object 7 : wtOF_TXT_720_LRL0
.2011.03.02 07:42:13 Object 8 : wtOF_HL_720_HRL0
.2011.03.02 07:42:13 Object 9 : wtOF_TXT_720_MPR0
.2011.03.02 07:42:13 Object 10 : wtOF_TXT_720_LRR0
.2011.03.02 07:42:13 Object 11 : wtOF_HL_720_HRR0
.2011.03.02 07:42:13 Object 12 : wtOF_TXT_IB_HR0
.2011.03.02 07:42:13 Object 13 : wtOF_HL_IB_HR0
.2011.03.02 07:42:13 Object 14 : wtOF_HL_IB_HR1
.2011.03.02 07:42:13 Object 15 :
.2011.03.02 07:42:13 Object 16 :
.2011.03.02 07:42:13 Object 17 :
.2011.03.02 07:42:13 Object 18 :
.2011.03.02 07:42:13 Object 19 :
.2011.03.02 07:42:13 Object 20 :
.2011.03.02 07:42:13 Object 21 :
.2011.03.02 07:42:13 Object 22 :
.2011.03.02 07:42:13 Object 23 :
.2011.03.02 07:42:13 Object 24 :
.2011.03.02 07:42:13 Object 25 :
.2011.03.02 07:42:13 Object 26 :
.2011.03.02 07:42:13 Object 27 :
.2011.03.02 07:42:13 Object 28 :
.2011.03.02 07:42:13 Object 29 :