Crystal Reports for Rational Application Developer 设计员指南

Function ()
NumberVar array x;
Redim x[10];
NumberVar i := 1;
For i := 1 to 10 do
x[i]:=i;
x