delphi4arab منتديات دلفي للعرب

السلام عليكم واجهت مشكلة اثناء ملئ مصفوفة بارقام عشواية Random

فمثلا تعلمت في السي ++ ان الملئ يكون هكذا

كود :
#include <iostream>
#include <ctime>
#include <cstdlib>

using namespace std;

void FillAray(int Arra[], int N){

srand(time(0));

for (int i = 0; i < N; i++)
    Arra[i] = rand() % 100;

}


int main()
{
const int Size = 10;
int Array[Size];

FillAray(Array, Size);

for (int i = 0; i < Size; i++)
    cout << Array[i] << " ";

    return 0;
}

في الدلفي يختلف الأمر كثيرا وليس قليلا

اريت تكوين ارقام عشوائية من في مصفوفة حجمها 10

و الملئ يكون عن طريق الدالة rand الناتج يوضع في Edit الاول

عن طريق الزر مثلا Fill

وان شاء الله اكون خفيف الضل عليكم لاني سوف اكثر من الأسئة في هاته اللغة

كود :
program Project1;
{$APPTYPE CONSOLE}

uses
  SysUtils;
const Size = 10;
var
 arra:Array[0..Size] of integer;

Procedure FillAray(Var Arra : array of integer; N:integer);
var
i: integer;
begin
 randomize;
 for i :=0 to N-1 do
     Arra[i] := random(100);
end;

var
i: integer;
begin
FillAray(Arra, Size);
for i:=0 to Size-1 do
     Write(Arra[i],' ');
Readln;
end.

Ra3ch

محمد عبد العزيز