[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".

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

[poli-smen]

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

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

Не забывай использовать операторные скобки begin...end

[aypinki]

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

Не забывай использовать операторные скобки begin...end

Код:

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

помогите пожалуйста(

[poli-smen]

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

Код:

  for i:=0 to Length(A) do
  flag:=true;
.....

Смотри, вот этот кусок будет работать вот так:

Код:

for i:=0 to Length(A) do flag:=true;

Т.е. много раз в переменную flag будет записано значение true, а какой смысл в одну переменную записывать одно и то же значение много раз?

И кроме того для подсчёта уникальных чисел тебе понадобится либо ещё один массив, либо модифицировать исходный массив.

Ещё можно воспользоваться классом TStringList:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  sl: TStringList;
  i: Integer;
begin
  sl := TStringList.Create;
  try
    sl.Sorted := True;
    sl.Duplicates := dupIgnore;
    for i := Low(A) to High(A) do sl.Add(IntToStr(A[i]));
    ShowMessageFmt('Уникальных чисел %d', [sl.Count]);
  finally
    sl.Free;
  end;
end;

[aypinki]

многие это соетовали но не доконца объясняли...
Спасибо! работает! я по аве понял что вы добрый человек)))