تشخيص خالي بودن و طول آرايه

[اصغر (پآچ)]

سلام دوستان

من چند تا آرايه پويا توي پروژم تعريف كردم كه توي برنامه ام طولشون تعريف ميشه.

حالا توي يه پروسيجر ديگه ميخوام يه عدد رو با مقادير داخل آرايه مقايسه كنم، چطور مي تونم يه حلقه تشكيل بدم كه از يك تا طول آرايه كار جستجو رو برام انجام بده؟

مثلا يه چيزي مثل اين:


Obj1: array of Byte;
.
.
.
.

For count := 1 to {طول آرايه Obj1} do
if x = obj1[count] then
...


در ثاني چطور ميشه تشخيص داد يك آرايه خاليه يا نه؟ (يعني براش طول تعريف شده يا نه؟)

موفق و مويد باشيد.

[tdkhakpur]

var
ar : array[1..8] of integer;
c : integer;
//----------------------------------------
c := sizeof(ar) div sizeof(integer);
For count := 1 to c do
if x = obj1[count] then

[vcldeveloper]

دلفی 2007 و نسخه های بعد از آن:

var
Element : Integer;
begin
for Element in obj1 do
if X = Element then
// Do something
end;نسخه های قدیمی تر دلفی:

var
i : integer;
begin
for i := 0 to Length(obj1)-1 do
if X = obj1[i] then
// Do something
end;