forum.clarionlife.net

Код: Выделить всё

loc_Str  &CSTRING
  CODE
 loc_Str &= (malloc(100))
! любыми APIшными средствами скопировали туда что то (strcpy....)

 MESSAGE(loc_Str) ! Отлично показывавет что туда предварительно занесли

MESSAGE(loc_Str[2 : 4]) ! Тоже отлично показывает

 loc_Str = 'Hello!!!'
MESSAGE(loc_Str) ! присвоения не произошло

Код: Выделить всё

Loc:StrGroup Group,Over(Loc:Str)
Addr          Ulong 
Size          Ulong 
              End       

   CODE

Loc:StrGroup.Addr = malloc(100)
Loc:StrGroup.Size = 100 

Код: Выделить всё

  PROGRAM
  MAP
    MODULE('Clarion RTL')
      StrLen  (ULONG pcString),UNSIGNED,NAME('_strlen'),DLL(dllmode)
      Malloc  (UNSIGNED mem_size),ULONG,NAME('_malloc'),DLL(dllmode)
    END
  END

RefGrp      GROUP
pCStr         &CSTRING
            END

PtrGrp      GROUP,OVER(RefGrp)
Ptr           LONG
Size          LONG
            END

Loc:Str     &CSTRING

  CODE
  PtrGrp.Size = 100
  PtrGrp.Ptr  = Malloc(PtrGrp.Size)
  IF PtrGrp.Ptr
     ! Все нормально
     Loc:Str &= RefGrp.pCStr

     Loc:Str = 'Проверка'
     MESSAGE(Loc:Str)
  END