Arrays in Crystal 8.5

[Tease]

Does anyone know if is possible to populate an array from a field. Then to report back on various values at different positions within the array in the footer.

 

[synapsevampire]

Arrays in CR 8.5 and below are limited to 1000. Otherwise you can populate an array from a field by using variables/formula to do so.

If interested still ,let us know.

-k

http://www.informeddatadecisions.com

kai@informeddatadecisions.com

 

[Ngolem]

Sure you can...just explain your problem to us Jim Broadbent

 

[Tease]

Thanks Guys, i have gotten the thing working but have hit the max of 30000 loops. As i have to sort the array, (i have an array with maybe 1000 records in.) and therefore use two do loops, this has proved an insurmoutable obstacle.

Does anyone know if version 9 still has this restriction?

 

[Ngolem]

I worked on an interesting routine for sorting that was quite simple using the Maximum function that may get around your problem of 30,000 loops

Essentially you would figure out the maximum value of an array and assign it to a new array. Then set the value of the original element to null and do the test again....repeat until all array elements have been transfered to the new array.

Something like this (both arrays would be initialized to the same size elsewhere.

@SortArray

WhilePrintingRecords;

//both arrays would be initialized to the same size
//elsewhere.
Stringvar array Original;
Stringvar array Final; //initialized to null
numberVar temp;
numberVar m;
numberVar k;

for m := 1 to ubound(Original) do
(
temp := Maximum(Original);
if temp = "" then
exit for
else
(
Final[m] := temp;
for k := 1 to ubound(Original) do
(
if Original[k] = temp then
(
Original[k] = "";
exit for;
);
);
);
);

I don't know if this violates the 30,000 loop rule or not but I thought it was a neat little routine. If your array is numbers then convert them to strings for this routine.

Jim Broadbent

 

[Ngolem]

arrgghhh!!! that should be


if Original[k] = temp then
(
Original[k] := "";
exit for;
);

in the above formula
Jim Broadbent

 

[Tease]

Cheers Jim i'll give it a wizz.