Statistics: Posted by caco — 27 Jan 2012, 10:10
Statistics: Posted by senso — 26 Jan 2012, 17:19
Statistics: Posted by caco — 26 Jan 2012, 16:00
CODE:
var ArrayIn, IndexsIn, ArrayOut : tparameter;///////////////////////////////////////////////procedure init;begin ArrayIn:= CreateParam('Arrayin',ptarray); SetisOutput(arrayin,false); IndexsIn:= CreateParam('Indexsin',ptarray); SetisOutput(Indexsin,false); Arrayout:= CreateParam('Arrayout',ptarray); Setisinput(arrayout,false); end;//////////////////////////////////////Procedure Callback(N:integer); var i,L,ID: integer;begin L:=MinI(getlength(IndexsIn),getLength(Arrayin)); setLength(arrayout,L); for i:=0 to L-1 do begin ID:=round(getdataArrayValue(indexsIn,i)); setdataArrayvalue(Arrayout,i,getdataArrayValue(Arrayin,ID)); end;END;//CB////////////////////////////////////////////Statistics: Posted by 23fx23 — 26 Jan 2012, 15:50
Statistics: Posted by 23fx23 — 26 Jan 2012, 15:33
Statistics: Posted by caco — 26 Jan 2012, 15:20
Statistics: Posted by caco — 27 Jan 2012, 10:10
Statistics: Posted by senso — 26 Jan 2012, 17:19
Statistics: Posted by caco — 26 Jan 2012, 16:00
CODE:
var ArrayIn, IndexsIn, ArrayOut : tparameter;///////////////////////////////////////////////procedure init;begin ArrayIn:= CreateParam('Arrayin',ptarray); SetisOutput(arrayin,false); IndexsIn:= CreateParam('Indexsin',ptarray); SetisOutput(Indexsin,false); Arrayout:= CreateParam('Arrayout',ptarray); Setisinput(arrayout,false); end;//////////////////////////////////////Procedure Callback(N:integer); var i,L,ID: integer;begin L:=MinI(getlength(IndexsIn),getLength(Arrayin)); setLength(arrayout,L); for i:=0 to L-1 do begin ID:=round(getdataArrayValue(indexsIn,i)); setdataArrayvalue(Arrayout,i,getdataArrayValue(Arrayin,ID)); end;END;//CB////////////////////////////////////////////Statistics: Posted by 23fx23 — 26 Jan 2012, 15:50
Statistics: Posted by 23fx23 — 26 Jan 2012, 15:33
Statistics: Posted by caco — 26 Jan 2012, 15:20