Главная страница
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.051 c
2-1158355786
Strate
2006-09-16 01:29
2006.10.08
Функция, возвращающая путь к экзешнику


3-1154672476
Progr_Neud
2006-08-04 10:21
2006.10.08
Параметры в ADO: q2: Parameter i not found


15-1158259297
Владимир_мпп
2006-09-14 22:41
2006.10.08
MS Excel


2-1158328792
Pa5ha
2006-09-15 17:59
2006.10.08
StrToFloat и языковые стандарты


6-1146497136
Pazitron_Brain
2006-05-01 19:25
2006.10.08
TIDIRC