دخول

sabre · 16-03-2017, 07:01 PM

جرب هذ ربما تجد ماتبحث عنه

تحديد عناصر المصفوفة اثناء تنفيذ

كود :
procedure TForm1.Button1Click(Sender: TObject);
var
  tab01: array of Integer;
  i: integer;

begin

  SetLength(tab01, StrToInt(Edit1.Text));
   for i := 0 to StrToInt(Edit1.Text)-1 do
      tab01[i] := (i+1)*10;
      
  Memo1.Lines.Clear;
  for i := 0 to StrToInt(Edit1.Text)-1 do
     Memo1.Lines.Add(IntToStr(tab01[i]));

end;

تحديد عناصر المصفوفة اثناء تصميم

كود :
var
  tab03: array of Integer;
  tab02: array[0..4] of Integer;
  i: integer;
  j : integer;

begin

  SetLength(tab01, 5);
  tab03[0] := 10;
  tab03[1] := 20;
  tab03[2] := 30;
  tab03[3] := 40;
  tab03[4] := 50;

 for j := 0 to 5-1 do
  tab02[j] := tab03[j];

دخول
اسم المستخدم/البريد الالكتروني :
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة