Скачать: CL | DM;

Поменять длину массива   Найти похожие ветки 

← →
ec_stasis ©   (2006-09-17 21:00) [0]


function inArray(x: integer; var mas: array of integer): boolean;
var i, n: integer;
begin
   i := 0;
   n := length(mas) + 1;
   setLength(mas, n);
   mas[n - 1] := x;
   while not mas[i] = x do
       i:= i + 1;
   if i = n - 1 then
       Result := true
   else
       Result := false;
end;
В выделенной строке компилятор говорит, что "incompatible types". Не пойму в чем проблема.

---

← →
Dmitrij_K   (2006-09-17 21:23) [1]

Не путай Open array и Dynamic arrays
В твоем примере mas это Open array

type  TIntegerDynArray = array of Integer;
{...}
function inArray(x: integer; var mas: TIntegerDynArray): boolean;
{...}


---

← →
ec_stasis ©   (2006-09-17 21:36) [2]

Спасибо!

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.043 c