دخول

sabre · 23-03-2017, 08:30 AM

في الحقيقة أرى أنك تسعت في المصفوفات
ومعلوماتي عن المصفوفات صطحية
وبارك الله في الأخ Agmcz
على شرحه الذي أفادنا به

كود :
var size:integer;
procedure TForm1.Button2Click(Sender: TObject);
var
 //myarray: array[0..size] of byte;
 myarray: array of byte;
  begin
   size := 3;  // حيث اردت ان يكون size  متغير وليس ثابت
   SetLength(myarray, size);
   myarray[0] := 200;
   myarray[1] := 201;
   myarray[2] := 207;

   Label1.Caption := inttostr(myarray[0]);
   
  end;

أنا أظن أن هذا صحيح

كود :
procedure TForm1.Button4Click(Sender: TObject);
type
  tmyarray = array of byte;
var
    size1, size2, size3:integer;
    myarray1: tmyarray;
    myarray2: tmyarray;
    myarray3: tmyarray;

begin

   size1 := 5;
   size2 := 11;
   size3 := 35;

   SetLength(myarray1, size1);
   SetLength(myarray2, size2);
   SetLength(myarray3, size3);

   myarray1[0] := 100;
   myarray2[0] := 200;
   myarray3[0] := 255; // error 256

   Label1.Caption := inttostr(myarray1[0]);

end;

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