Shuttleu
2010-11-25 20:58:39
there seems to be a problem when calling R_IsUpTextMulti
i have this line of code in one of my scripts
the function which gets highlighted is
~shut
i have this line of code in one of my scripts
if R_IsUpTextMulti(['hop', 'Ivy']) then
but whenever it gets to that line it always gives a out of range errorError: Out Of Range at line 75
The following DTMs were not freed: [SRL - Lamp bitmap]
The following bitmaps were not freed: [SRL - Mod bitmap, SRL - Admin bitmap]the function which gets highlighted is
function GetMenuText: TStringArray;
var
count, nodeList, head, next, last, javaString: Integer;
item: string;
begin
nodeList:= SmartGetFieldObject(0, hook_static_MenuNodeList);
head:= SmartGetFieldObject(nodeList, hook_nodelist_Head);
//for some reason, the head has null strings, so skip it
next:= SmartGetFieldObject(head, hook_node_Next); //THIS LINE <----------------------
count:= GetMenuCount;
SetLength(result,count);
repeat
javaString:= SmartGetFieldObject(next, hook_menu_Action);
item:= GetJavaString(javaString,256);
SmartFreeObject(javaString);
javaString:= SmartGetFieldObject(next, hook_menu_Option);
item:= item + ' ' + GetJavaString(javaString,256);
SmartFreeObject(javaString);
result[count-1]:= TrimHTML(item);
last:= next;
next:= SmartGetFieldObject(last, hook_node_Next);
SmartFreeObject(last);
count:= count - 1;
until (count = 0);
SmartFreeObject(next);
SmartFreeObject(head);
SmartFreeObject(nodeList);
end; and this is in text.simba~shut