ArrayArrayArrayArrayArrayArray
Statistics: Posted by bsork — 09 Mar 2011, 08:13
Statistics: Posted by 23fx23 — 09 Mar 2011, 02:42
Statistics: Posted by joffo78 — 09 Mar 2011, 00:37
CODE:
//////////////////////////// Array values (INTEGERS) to commaText/////////////////////////CONST MAX_ITEMS = 128;var ArrayIn, CommaOUT: Tparameter;var SL1: TstringList;/////////////////////////////procedure init;var i: integer;begin ArrayIn:= CreateParam('ArrayIn', PtArray); SetIsOutput(ArrayIn,False); SetMin(ArrayIn,0); setMax(ArrayIn,MAXINT); CommaOUT:= CreateParam('CommaOUT',PtTextField); setisINPUT(commaOut,false); SL1:= Tstringlist.create; SL1.commatext:=''; for i:= 0 to MAX_ITEMS -1 do begin SL1.add(' ');end;END;//INIT///////////////////////////////////////////Procedure Callback(N:integer); var i, L: integer;begin if (n=ArrayIn) then begin L:= getLength(ArrayIn); if L< MAX_ITEMS then begin For i:= 0 to L-1 do begin SL1.strings[i]:= IntToStr(trunc(getDataArrayValue(ArrayIn,i))); end; //Strace(SL1.commatext); setStringValue(CommaOut,SL1.commatext); end; end;END;//CB////////////////////////////////////////Procedure Destroy;beginSL1.free;end;///////////////////////////////Statistics: Posted by 23fx23 — 09 Mar 2011, 00:26
Statistics: Posted by joffo78 — 08 Mar 2011, 23:23
Statistics: Posted by bsork — 09 Mar 2011, 08:13
Statistics: Posted by 23fx23 — 09 Mar 2011, 02:42
Statistics: Posted by joffo78 — 09 Mar 2011, 00:37
CODE:
//////////////////////////// Array values (INTEGERS) to commaText/////////////////////////CONST MAX_ITEMS = 128;var ArrayIn, CommaOUT: Tparameter;var SL1: TstringList;/////////////////////////////procedure init;var i: integer;begin ArrayIn:= CreateParam('ArrayIn', PtArray); SetIsOutput(ArrayIn,False); SetMin(ArrayIn,0); setMax(ArrayIn,MAXINT); CommaOUT:= CreateParam('CommaOUT',PtTextField); setisINPUT(commaOut,false); SL1:= Tstringlist.create; SL1.commatext:=''; for i:= 0 to MAX_ITEMS -1 do begin SL1.add(' ');end;END;//INIT///////////////////////////////////////////Procedure Callback(N:integer); var i, L: integer;begin if (n=ArrayIn) then begin L:= getLength(ArrayIn); if L< MAX_ITEMS then begin For i:= 0 to L-1 do begin SL1.strings[i]:= IntToStr(trunc(getDataArrayValue(ArrayIn,i))); end; //Strace(SL1.commatext); setStringValue(CommaOut,SL1.commatext); end; end;END;//CB////////////////////////////////////////Procedure Destroy;beginSL1.free;end;///////////////////////////////Statistics: Posted by 23fx23 — 09 Mar 2011, 00:26
Statistics: Posted by joffo78 — 08 Mar 2011, 23:23