Crystal Reports for Rational Application Developer 設計工具指南

傳回 10 個數字的陣列 - Crystal 語法

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