procedure THISetLength._work_doSetLen;
var
l:integer;
begin
 s := ReadString(_Data, _data_Str, _prop_Str) + #0;
 l := ReadInteger(_Data, _data_Count, _prop_Count);
 if l > length(s) - 1 then
   l := length(s) - 1;  
 SetLength(s, l);
 _hi_OnEvent(_event_onRes, s); 
end;