BrainModular

comma text to arry

2013-02-05T02:41:27+02:00

Oh, I use that.....

I will see if this code is cleaner than what I'm using (probably so, if it's from Senso!)

Statistics: Posted by woodslanding — 05 Feb 2013, 01:41

comma text to arry

2013-01-16T01:46:46+02:00

Thanks Joffo and Senso, I was searching for that a few weeks ago, but forgot why....
Maybe I'll find out again

Statistics: Posted by percuson — 16 Jan 2013, 00:46

comma text to arry

2013-01-15T20:32:44+02:00

For who are interested (i wonder why someone could be interested by this except me ) :

//////////////////////////
// Array values (INTEGERS) to commaText
/////////////////////////
var ArrayOut, CommaIn: Tparameter;
var SL1: TstringList;
/////////////////////////////
procedure init;
var i: integer;
begin
CommaIn:= CreateParam('Comma In',PtTextField);
setisOutput(commaIn,false);

ArrayOut:= CreateParam('Array Out', PtArray);
SetIsInput(ArrayOut,False);
SetMin(ArrayOut,0);
setMax(ArrayOut,MAXINT);

SL1:= Tstringlist.create;
SL1.commatext:='';
END;//INIT
///////////////////////////////////////////
Procedure Callback(N:integer);
var i, L: integer;
begin
SL1.CommaText := GetStringValue(CommaIn);
Strace(SL1.commatext);
L := SL1.Count;
SetLength(ArrayOut,L);
For i :=0 to L-1
do SetDataArrayValue(ArrayOut,i,StrtoFloat(SL1.strings));
END;//CB
////////////////////////////////////////
Procedure Destroy;
begin
SL1.free;
end;
///////////////////////////////

Thank to senso.

Statistics: Posted by joffo78 — 15 Jan 2013, 19:32

comma text to arry

2013-01-15T14:37:47+02:00

can't really help you but I've found this in my archives , exactly the inverse of what you're looking for, maybe a inspiration source

CODE:

//////////////////////////// Array values (INTEGERS) to commaText/////////////////////////CONST MAX_ITEMS = 160;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 nay-seven — 15 Jan 2013, 13:37

comma text to arry

2013-01-15T13:21:24+02:00

Hello.
I don't think i'll be complicated to do but does someone could help me to create a script
that get a comma text to create array ?
I try to transform string to integer by changing tparameter by tarray but it doesn't work

Statistics: Posted by joffo78 — 15 Jan 2013, 12:21

comma text to arry

2013-02-05T02:41:27+02:00

Oh, I use that.....

I will see if this code is cleaner than what I'm using (probably so, if it's from Senso!)

Statistics: Posted by woodslanding — 05 Feb 2013, 01:41

comma text to arry

2013-01-16T01:46:46+02:00

Thanks Joffo and Senso, I was searching for that a few weeks ago, but forgot why....
Maybe I'll find out again

Statistics: Posted by percuson — 16 Jan 2013, 00:46

comma text to arry

2013-01-15T20:32:44+02:00

For who are interested (i wonder why someone could be interested by this except me ) :

//////////////////////////
// Array values (INTEGERS) to commaText
/////////////////////////
var ArrayOut, CommaIn: Tparameter;
var SL1: TstringList;
/////////////////////////////
procedure init;
var i: integer;
begin
CommaIn:= CreateParam('Comma In',PtTextField);
setisOutput(commaIn,false);

ArrayOut:= CreateParam('Array Out', PtArray);
SetIsInput(ArrayOut,False);
SetMin(ArrayOut,0);
setMax(ArrayOut,MAXINT);

SL1:= Tstringlist.create;
SL1.commatext:='';
END;//INIT
///////////////////////////////////////////
Procedure Callback(N:integer);
var i, L: integer;
begin
SL1.CommaText := GetStringValue(CommaIn);
Strace(SL1.commatext);
L := SL1.Count;
SetLength(ArrayOut,L);
For i :=0 to L-1
do SetDataArrayValue(ArrayOut,i,StrtoFloat(SL1.strings));
END;//CB
////////////////////////////////////////
Procedure Destroy;
begin
SL1.free;
end;
///////////////////////////////

Thank to senso.

Statistics: Posted by joffo78 — 15 Jan 2013, 19:32

comma text to arry

2013-01-15T14:37:47+02:00

can't really help you but I've found this in my archives , exactly the inverse of what you're looking for, maybe a inspiration source

CODE:

//////////////////////////// Array values (INTEGERS) to commaText/////////////////////////CONST MAX_ITEMS = 160;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 nay-seven — 15 Jan 2013, 13:37

comma text to arry

2013-01-15T13:21:24+02:00

Statistics: Posted by joffo78 — 15 Jan 2013, 12:21