كيف نعرف مصفوفة ذات قيم ثابتة ومن نوع Integer

[Rover]

يمكن أنجاز العملية من خلال الكود التالي ووفق اي طول للمصفوفة :

PHP كود :

Uses ... Math;

procedure TForm1.Button1Click(Sender: TObject);
Const
ArrInt: Array [0..11] Of Integer = ( 100,55,66,74,1,8,5,9,133,557,88,914);
var
I,M,N:Integer;
J:Variant;
ordArr:Array of integer;
begin
J:= 0; M:= 0; N:= 0;

For I:= 0 To Length(ArrInt) -1 Do
    If Length(inttostr(ArrInt[I])) > J Then J:= Length(inttostr(ArrInt[I]));


J:= Power(10,J);

SetLength(OrdArr,Length(arrint));

For I:=0 To J Do
    For M:= 0 To Length(ArrInt) -1 Do
         if ArrInt[M] = I Then
                 begin
                 OrdArr[N]:= ArrInt[M];
                 N:= N+1;
                 end;

Memo1.Clear;
For I:=0 To Length(OrdArr) -1 do
   Memo1.Lines.Add(inttoStr(OrdArr[I]));

end;