Подсчитать кол-во различных элементов в "сложных" условиях

[ayPinki]

вопрос в конце...

[ayPinki]

вот что вылетает при событии - нажатии на кнопку.

[Человек_Борща]

Ну правильно, массив объявили, а размер не установили.

while  not  ReportQuery.Eof do
begin
SetLength(A, i);    
A[i]:=ReportQuery.FieldValues['kod'];
    i:=i+1;
   ReportQuery.Next;
end;

Это вам не JavaScript, где переменная сама себя объявит, расширит, если надо, и тип данных сменит.

ReportQuery.ParamByName('StartDate').Value:=StartdatatimePicker.Datetime;
ReportQuery.ParamByName('EndDate').Value:=EnddatatimePicker.Datetime;

Зачем так прямо?
Можно просто:
.AsDate := StartdatatimePicker.Date;
.AsDate := StartdatatimePicker.Date;

[ayPinki]

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

[doktor255]

I:= 0. Вот и вся инициализация.

[ayPinki]

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

I:= 0. Вот и вся инициализация.

убираю его, тогда у A получаются в итоге страшные индексы 44к++
а если так оставить(I:= 0) то ошибка- в после выше(

[phomm]

Не проще задать размер массива вне цикла ?

SetLength(A, ReportQuery.RecordCount);
i:=0;
while  not  ReportQuery.Eof do
begin
   A[i]:=ReportQuery.FieldValues['kod'];
   i:=i+1;
   ReportQuery.Next;
end;

ADD

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

кол-во РАЗЛИЧНЫХ значений поля 'kod' этой таблицы.

SELECT COUNT(kod) AS kod_count FROM (SELECT DISTINCT kod FROM Table) AS MyTable

Тогда оба цикла по сути не понадобятся, получите сразу число в единственной записи

[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;

[ayPinki]

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

Не проще задать размер массива вне цикла ?

SetLength(A, ReportQuery.RecordCount);
i:=0;
while  not  ReportQuery.Eof do
begin
   A[i]:=ReportQuery.FieldValues['kod'];
   i:=i+1;
   ReportQuery.Next;
end;

ADD

SELECT COUNT(kod) AS kod_count FROM (SELECT DISTINCT kod FROM Table) AS MyTable

Тогда оба цикла по сути не понадобятся, получите сразу число в единственной записи

эмм, простите, куда этот SELECT вписывать?