The following example shows how to copy the contents of the current selection into an array; specifically, this code will copy the contents of five alphanumeric fields into an array and display them.

void SelectionToArray(void)
{
 ReqFieldRecPtr FieldList;
 ArrayHandle hBuffer;
 int2 TargetFile=1, n=9;
 int4 CountRecords;
 int myErr;
 Ptr pSrc;
 DataRec Data;
 short i;
 if ( FieldList == nil)
  myErr = MemError();
 else
{
 Check(_4D_SelectAllRecords(hConnect, 1),"_4D_SelectAllRecords\0");
  FieldList = (ReqFieldRecPtr)malloc(sizeof(ReqFieldRec) + ((2*n)-1)*sizeof(int2));
  FieldList->NB_Fields = n;
  FieldList->TargetFile =TargetFile;
  FieldList->Fields[0]= TargetFile;
  FieldList->Fields[1]=1 ;
  FieldList->Fields[2]= TargetFile;
  FieldList->Fields[3]=2 ;
  FieldList->Fields[4]= TargetFile;
  FieldList->Fields[5]=3 ;
  FieldList->Fields[6]= TargetFile;
  FieldList->Fields[7]=4 ;
  FieldList->Fields[8]= TargetFile;
  FieldList->Fields[9]=5 ;
  hBuffer = nil;
  Check(_4D_SelectionToArray(hConnect, FieldList, &hBuffer), 36);
  CountRecords = **(long **)hBuffer;
  HLock((Handle) hBuffer);
  pSrc =*((Handle)hBuffer)+4 ;
  Data.typ = -1;
  for( i=0; i  pSrc +=pSrc[0]+4;
  BlockMove(pSrc, Data.u.s , pSrc[0]+5);
  Data.typ =s_AlphaNumeric;
}
  printf("%s",Data.u.s);
  getchar();
  if ( hBuffer != nil)
  Free4DHandle((Handle4D) hBuffer);
  free(FieldList);}
}