... [, <xValue,...> ] ) --> xReturn Arguments <bBlock> A code block to be evaluated <xValue> Any number of values to be passed as arguments to the code block. Return The function returns the value of the last expression inside the code block. Description ...

... and RDDI_BUFKEYNO commands, for buffering ordKeyCount() and ordKeyNo() calls. Protocol for record data has been changed: added KeyCount and KeyNo values. 2014-02-28 18:10 UTC+0200 Pavel Tsarenko (tpe2/at/mail.ru) * source/server/letofunc.c ! memory leak * source/client/letocl.c * warnings 2014-02-27 ...

... daysofmonth) end function % round to 2 decimal places function round2( x : real ) : real return ( round( 100*x )/100.0 ) end function % normalize values to range 0...1 function normalize( v : real ) : real v := v - floor( v ) if v < 0 then v := v + 1 end if return v end function Sample output ...

... i ] CASE "Second" aTest0[ ArIndexNo() ] := aModified[ i ] /* You can compare original and modified values */ EXIT CASE "Third" aTest1[ ArIndexNo() ] := aModified[ i ] EXIT CASE "Forth" aTest2[ ArIndexNo() ...

... no bug in DESCEND() and it works as expected. It's documented since Clipper days that for strings it is binary function which reverts binary byte values so results are not always sorted in reverted order if non ASCII based collation is used. Harbour is 100% Clipper compatible here and for many ...

... > 1,Space(nEspaco),"")+PADR(cNomeCampo + IF(X < Len(aTheDBF),", ",""),12) + HB_EOL() NEXT cQueryLeft+=" ) VALUES (" nEspaco:=Len(cQueryLeft)-RAT( " ) VALUES (", cQueryLeft )+33 cValorInsert:="" cTheQuery := cQueryLeft ...

... * * * Archivo de cabecera para usar ADO con xHarbour * *-------------------------------------------------------------------- *---- CursorTypeEnum Values ---- #DEFINE adOpenForwardOnly 0 #DEFINE adOpenKeyset 1 #DEFINE adOpenDynamic 2 #DEFINE adOpenStatic 3 *---- CursorOptionEnum Values ---- #DEFINE ...

... Procedure tESTE() VCOD:="12345678900" Str := "INSERT INTO CADSERV (CPF,NOME) VALUES ("+VCOD+","+"'JOAO VICTOR'"+")" MSGINFO(Str) oConnection:Setsql( Str ) if !oConnection:Open() msgstop("Não ...

... (*.dbf)};;DBQ="& db &";" cnn.execute("INSERT INTO acessos(nome,senha,pagina,codigo,nivel)" & _ "VALUES ('"&_ nome&"','"&_ senha&"','"&_ pagina&"','"&_ codigo&"','"&_ ...

... [<nTargetStart>] ) <aSource> The source array whose elements are copied. <aTarget> The target array recieving copied values. <nSourceStart> This is a numeric expression indicating the first element in the source array to begin copying with. It defaults to 1, ...

... (sServ) USER (sUser) PASSWORD (sPass) NEW //query para incluir registro sQuery := "INSERT INTO `inigrupo` (`id`, `grupo`, `descricao`) VALUES " ; + " (1, 'USUARIO', 'configuracoes personalizadas do usuario')," ; + " (2, 'MAQUINA', 'configuracoes personalizadas da ...

... ) SWITCH aCaptions[ i ] CASE "Second" aTest0[ n ] := aModified[ i ] /* You can compare original and modified values */ EXIT CASE "Third" aTest1[ n ] := aModified[ i ] EXIT CASE "Forth" aTest2[ n ] := aModified[ ...

... example implements a class whose instances have three states // represented as numeric -1, 0 and 1. The state can be changed by // assigning values of different data types. #include "Hbclass.ch" #include "Error.ch" PROCEDURE Main LOCAL obj := ThreeState():new() ...

... nreg:=ret:fields["UREG"]:VALUE+1 else nreg:=1 endif csql:="insert into cadastro values(" csql+=str(int(nreg))+"," csql+="'"+dtoc(date())+"'," csql+="'"+time()+"'," csql+="'Registro ...

... other things like limited functionality (sandboxes) for foreign code. Finally it should also include support for named parameters with default values what seems to be very important in current days, i.e. I have dynamic JSON RPC (1.0 and 2.0) server, client and peer connection library for Harbour ...