EnglishРусский  

   ..

   sample1.g

   test.g

Реклама

Инсталлятор CreateInstall
Бесплатные и коммерческие инсталляторы

 1 /*****************************************************************************/
 2 /*                                                                           */
 3 /*                           Sample 1                                        */
 4 /*  Parameters:                                                              */
 5 /*         IN instr - pointer to an ANSI char array that contains string     */
 6 /*  Return: length of output string                                          */
 7 /*                                                                           */
 8 /*****************************************************************************/
 9 
10 
11 func uint sample1Funct(uint instr, uint outstr)
12 {
13     str st1           // a new empty string
14     st1.copy(instr)   // place the char array to string
15     print(st1)
16 
17     
18     st1 += " возвращено отправителю"
19    
20     mcopy(outstr, st1.ptr(), (*st1 + 1))
21 
22     return st1.ptr()
23 }
Редактировать