| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Поменять длину массива [D7, XP]

ec_stasis ©   (2006-09-17 21:00:00) 


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". Не пойму в чем проблема.

---

ec_stasis   (2006-09-17 21:36:00) [1]

Спасибо!

---

Dmitrij_K   (2006-09-17 21:23:00) [2]

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

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


---

Наверх