Последние записи

made in programmersforum 8

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

7th
Июн

Сравнить весь столбец в таблице с текущим значением

Posted by Chas under Топик-обзор

Хотел сравнить весь столбец с текущим значением(при отсутствии совпадений прибавляем к сравниваемому значению +1 и повторяем), но нет результата.

evg_m:

fld:=Adotable1.Fields.Fields[2]; // по столбцу 2

// в качестве признака будем использовать номер строки совпадения 1..20

d:=0; //совпадений еще не было

for Pr=1 to 2000 do begin // проверяем значения от 1 lj 2000

  // сравниваю столбцы строк[0..20] по столбцу 2 со значением Pr,

  // и опять сравниваем содержимое столбца 2 построчно в

  AdoTable1.First; // начинаем сначала

  //while not AdoTable1.Eof do begin // разумнее так но можно и

  for j;=1 to 20 do begin       // если уверены что 20 строк будет обязательно

    if fld.asinteger =Pr then // со значением Pr

    begin

      d;=j; //при совпадении запоминаем НОМЕР строки

      break;//и заканчиваем просмор строк

    end;

    AdoTable1.Next;

  end;

  if d>0 then begin // d>0 означет что было совпадение в строке d = 1..20

    DBGrid1.Columns.Items[0].FieldName:=FloatToStr(Pr);

    DBGrid1.Columns.Items[1].FieldName:=FloatToStr(d);

    break; // больше сравнивать не надо

  end;

end;