عدد اعمدة مصفوفة d2

[hanipino]

السلام عليكم

ان كانت لدينا مصفوفة D2 فهل من طريقة لمعرفة عدد اعمدة هذه مصفوفة . مثلا :

High(Array)


ترجع لنا عدد الاسطر . اما الاعمدة ... ,? الصورة التالية تحتوى على 3 اسطر و 2 عمود كيف يمكن الوصول الى العدد 2 برمجيا .

http://img90.imageshack.us/img90/3384/sanstitreow7.jpg

و السلام عليكم

[B.M.AbdelAziZ]

كيف قمت بتعريف المصفوفة ؟ (الاجابة تختلف حسب ذلك)
والسلام عليكم

[kachwahed]

وعليكم السلام ورحمة الله
أعتقد أنه يمكن الحصول عليه بقسمة الحجم (SizeOf مع معرفة نوع البيانات) على حجم نوع البيانات ثم على عدد الأسطر:
type
Matrix = array[0..2, 0..1] of Integer;

function GetArrayRowsCount(Ar: Matrix): Integer;
begin
Result := (SizeOf(Ar) div SizeOf(Integer)) div High(Ar);
end;

procedure TForm1.FormCreate(Sender: TObject);
var
arr2: Matrix;
begin
ShowMessage('Rows: '+IntToStr(GetArrayRowsCount(Matrix(arr2))));
end;