Последние записи
- Нужен ли сайт разработчику?
- Обсуждаем технологию I2P
- Как запустить программу указанную в Edit.Text
- Скачать файл с использованием потока
- Поиск слова в Memo
- Распаковщик формата .img из GTA San Andreas
- Подсчет количества повторяющихся букв в файле
- Простейший скрипт загрузки картинки с помощью php
- Рассылка. Выпуск 154
- Получение картинки с веб-камеры
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;