[mrtt]

Здравствуйте, не получается подсчитать кол-во спортсменов по каждому виду спорта в определённом поле..
Смысл задания таков: создать вычисляемое поле и сделать там подсчёт.
У меня выходит следующая процедура:

Код:

procedure TForm1.Table1CalcFields(DataSet: TDataSet);
var i,sum: Integer;
begin
sum:=0;
 
with Table1.Fields.FieldByName('Sport') do begin {В этом поле данных надо подсчитать кол-во спортсменов}
 
for i:=0 to Table1.RecordCount-1 do begin
  if Table1.Fields[i].Value=Table1.Fields[i+1].Value then begin  {На этой строке выдаёт ошибку}
    sum:=sum+1; end;
    Table1Quantity.Value:=sum; {Сюда заносим результат}
end;
end;
end;

Но при такой процедуре возникает ошибка конвертации:
"Could not convert variant of type (String) into type (Double)"

Что я делаю не так? Заранее спасибо.

[deltas]

Может надо Table1.Fields[i].AsFloat ?

[s0Creator]

"Все смешалось ... ".
О чем это я?.
Ах да - i проходит циклом по строкам таблицы, а используется для перебора столбцов.
...
Приведите для начала структуру таблицы.
Не думаю, что у вас ... - ( честно говоря даже и не знаю что не думаю ).

Чтобы вычисляемым полем, это надо бы два TADOQuery ( с BDE не работаю принципиально ), но можно и не ADO а TSQLQuery .

Один выводит виды спорта и у него добавляется вычисляемый столбец, который используя второй Query подсчитывает количество.
А можно и одним запросом ели в SQL написать агрегатное поле.
Если только база нормальной структуры, а если каждому виду спорта по столбцу ... .
Тогда по другому и немного похоже на твой код

[s0Creator]

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

Может надо Table1.Fields[i].AsFloat ?

Не поможет - если растолковать ошибку "Could not convert variant of type (String) into type (Double)"
То - один столбец ( поле ) имеет тип String, другое Double.
Например таблица "Велосипеды" {Наименование, Количество}
Правда количество с запятой не пишут - тогда { ткань, метраж }.
Вот и попробуйте сравнить значения в этих столбцах
"If [Наименование] = [Количество] then // ..."
Хотя, с другой стороны, чего только не бывает.

[mrtt]

Вот тут структура.
Я хотел просто сравнить в поле данных Спорт первую запись со второй, вторую с третьей и т.д., но реализация, как я понял, хромает.
К сожалению, по заданию нужно это реализовать без SQL-запроса..

[s0Creator]

Все таки BDE.
Извини - если будет время и удастся создать что нибуть работающее и подключаемое к этой таблице, то постараюсь помочь.

Кстати и BDE есть Tquery и там делают выборку из таблицы, а пробежаться по всем записям той же таблицы в событии вычисления поля таблицы нельзя - при смене записи (Table1.Next; ) у тебя опять должно сработать событие вычисления поля.

[lmikle]

Да просто все.

типа как-то так:

Код:

var
  Sport : String;
  Cnt : Integer;
begin
  Table.First;
  Sport := '';
  Cnt := 0;
  While Not Table.EOF Do
     Begin
        If Table.FieldByName('Sport').AsString <> Sport 
          Then
            Begin
               If Cnt > 0 Then
                  ShowMessage(Sport + ' = ' + IntToStr(Cnt));
               Cnt := 1;
               Sport := Table.FieldByName('Sport').AsString;
            End
           Else
             Inc(Cnt);
       Table.Next;
     End;

[s0Creator]

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

Да просто все.

типа как-то так:

И это все в событии Table1CalcFields?
- проход по всей таблице ( каждый шаг вызовет это же событие )
- столбец Sport в таблице не сортирован.
- когда программа захочет вычислить поле, выводить несколько сообщений вподряд.

В общем если упростить все добезобразия и получить то что вероятно хочет преподаватель, то:
mrtt - добавь еще одну TTable и настрой ее на туже таблицу базы ( но не создавай там вычисляемых полей )
и напиши так

Код:

procedure TMainF.Table1CalcFields(DataSet: TDataSet);
var
  Sport: string;
  Cnt: Integer;
begin
  Table2.Open;
  Table2.First;
  Sport := Table1Sport.AsString;
  Cnt := 0;
  while not Table2.EOF do
  begin
    if Table2Sport.AsString = Sport then
      Inc(Cnt);
    Table2.Next;
  end;
  Table2.Close;
  Table1Quantity.AsInteger := Cnt;
end;

[mrtt]

Спасибо lmikle и s0Creator, взял за основу код s0Creator'a и переписал его под себя, всё работает.