Element StrCat

Vars
  Self#.tmp dd ?

PointWork doStrCat
  \local s1,s2,sv.t
  DataSave data,data.type,[Self#.tmp],sv.t
  sub esp,8
  ReadStr s1,[Self#.tmp],data.type,Self#.Str1,Self#.prop.Str1
  mov_ex eax,s1
  mov edx,esp
  call __strdupnoclear
  ReadStr s2,[Self#.tmp],data.type,Self#.Str2,Self#.prop.Str2
  mov_ex eax,s2
  lea edx,[esp+4]
  call __strdupnoclear
  mov edx,esp
  mov eax,[esp+4]
  stdcall __strcat
  mov eax,[esp]
  Self#.onStrCat eax,data_str
  lea edx,[esp+4]
  call __strclear
  mov edx,esp
  call __strclear
  add esp,8
  DataClear [Self#.tmp],sv.t
EndPoint

EndElement