[aypinki]

вопрос в конце топика...

[poli-smen]

Сообщение от aypinki

Код:

.....
SetLength(A, i); 
    A[i]:=ReportQuery.FieldValues['kod'];
.....

Ругается на A[i] - пишет что variable A[i] might not have been initialized. я уже гуглил это; не получается... по всякому((

Нумерация элементов в динамическом массиве начинается с нуля. Т.е. если ты задал размер массива например 5, то можешь обращаться только к индексам от 0 до 4, а элементов начиная с № 5 уже не существует.

[icWasya]

Код:

i:=0 ; // сначала это
while  not  ReportQuery.Eof do
  begin
    SetLength(A, i);  // а потом сразу это
    A[i]:= // и вот это

вместо

Код:

  SetLength(A, i);  

напишите

Код:

  SetLength(A, i+1);

И зачем во второй раз сканировать таблицу?
Все повторы нужно искать в массиве А.
И для начала желательно этот массив отсортировать.

[aypinki]

всё! массив получил, как мне подсчитать количество его различных элементов, подскажите пожалуйста !)

[aypinki]

помогите пожалуйста! подсчитать кол-во разных чисел в A[i];
не работает (

Код:

kol:=0;
  for i:=1 to Lenght(A) do
   flag:=true;
   for j:=1 to Lenght(A) do
   if (A[j]=A[i]) and (j<>i) then
   flag:=false;
   if flag then
   kol:=kol+1;

[poli-smen]

Сообщение от aypinki

помогите пожалуйста! подсчитать кол-во разных чисел в A[i];
не работает - не понимает lenght

Вообще-то правильно это английское слово пишется как "Length".

[aypinki]

Сообщение от poli-smen

Вообще-то правильно это английское слово пишется как "Length".

уже исправил, но не работает(

[aypinki]

Сообщение от poli-smen

Вообще-то правильно это английское слово пишется как "Length".

уже исправил, но не правильно считает (