Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.10.08;
Скачать: 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 вся ветка

Текущий архив: 2006.10.08;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.028 c
2-1158842257
Yegorchic
2006-09-21 16:37
2006.10.08
Показ окна программы


2-1158521673
Aleksandr
2006-09-17 23:34
2006.10.08
форма и компоненты


10-1124182498
mic_2000
2005-08-16 12:54
2006.10.08
Как добавить нумерованый список в MS Word


1-1156666261
AlexeyT
2006-08-27 12:11
2006.10.08
Что за контрол отвечает за MCIWndClass?


3-1155125919
DelphiLexx
2006-08-09 16:18
2006.10.08
TFIBDataSet получить следующее значение поля в OnDrawColumnCell