Цикл и Сравнение

[Apostol13]

Хотел сравнить весь столбец с текущим значением(при отсутствии совпадений прибавляем к сравниваемому значению +1 и повторяем), но нет результата. Вот то, чем пользовался:
while k=0 do
begin


for i:=0 to 30 do

begin
AdoTable1.RecNo:=i; //обращение к строкам от 0 до 30-ой
//сравниваем значение столбцов построчно
if (StrToInt(Adotable1.Fields.Fields[2].AsString)=Pr) then

begin
k:=1;
DBGrid1.Columns.Items[1].FieldName:=FloatToStr(i);
DBGrid1.Columns.Items[0].FieldName:=IntToStr(ADOTable1.RecN O);
end;


end;

Pr:=Pr+1;
end;

[evg_m]

а кто будет задавить НАЧАЛЬНЫЕ значения?

k:=0;
Pr:=0;
while (k=0) do

if Adotable1.Fields.Fields[2].AsInteger=Pr then просто нагляднее

DBGrid1.Columns.Items[1].FieldName:=FloatToStr(i);
наверно хотелось поменять название колонки?
DBGrid1.Columns.Items[1].Title.caption:=FloatToStr(i);

[Apostol13]

Спасибо, но это все задается заранее - > k:=0 и Pr - произвольное, оно обязательно совпадет с чем то из массива столбика Adotable1.Fields.Fields[2].AsString
хотя Pr ограничен 20000. не могу решить задачу.

когда пытаюсь компиллировать выдает ошибку:
Аргументы имеют неверный тип, выходят за пределы допустимого диапазона или вступают в конфликт друг с другом

[Apostol13]

Ошибка на этапе обращения к строкам

AdoTable1.RecNo:=i;

[evg_m]

Ошибка на этапе обращения к строкам

НЕ ВИЖУ. текст ошибки не приведен.
Обычно для навигеции (перемещения по записям) используют методы
first Last Next Prev. и цикл while

f.first;
while not f.EOF do begin
.....
f.next;
end;

[Apostol13]

Переделал, но значение он всегда выдает из последней строки. Как сделать так, чтобы после того как он посмотрел все значения столбца, только тогда прибавлял к Pr еденицу и повторял цикл? не знаю куда воткнуть Pr:=Pr+1. я уже совсем близок = ) выручайте

k:=0;
    AdoTable1.First;
    while not AdoTable1.Eof do
  begin
    while k=0 do

    begin


      if Adotable1.Fields.Fields[2].AsInteger=Pr then
        begin
          k:=1;
          DBGrid1.Columns.Items[0].FieldName:=FloatToStr(Pr);
          DBGrid1.Columns.Items[1].FieldName:=FloatToStr(i);
        end
      else AdoTable1.Next;

Pr:=Pr+1; // <-- куда вот ето деть правильно? ибо он сразу после выбора следуюющей строки тоже инкреминирует Pr, а должен когда просмотрит ВСЕ строки
if Pr>20000 then k:=1; // <- и это к нему же = )
end;



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[Serge_Bliznykov]

а можно "разжевать" - что у Вас есть и что Вы хотите получить?..
прямо приведите небольшой примерчик (с циферками) и расскажите...

[evg_m]

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

var 
  Fld: TField;
  n: integer;
  dbl: boolean;

f.first;
n:=200; .// сравнивать будем с числом 200
fld:=f.field[1]; // будем сравнивать столбец с номером 1
dbl:=false; // совпадений пока нет
while not f.eof do begin 
  dbl:=( fld.asinteger = n ); // проверяем совпадение и устанавливаем флаг
  if dbl then // проверяем уже наш флаг и если есть совпадения (взведен флаг) 
               break;  // досрочно заканчиваем цикл проверки.
  f.Next;
end;
// дальнейшие действия в зависимости от значения флага
if dbl then
else

все выше сказанное это можно заменить на

n:=200; .// сравнивать будем с числом 200
fld:=f.field[1]; // будем сравнивать столбец с номером 1
if f.locate( fld.fieldname, n, []) // найти в указанном столбце заданное значение
then  // дальнейшие действия в зависимости от  нашли  
else // или не нашли

[Apostol13]

Все работает, но только если Pr отличается менее чем на +\-2 от того, что есть в базе данных, тогда d (кол-во выполнения цикла верно (1или2), в ином случае оно 50-72 тысячи достигает.
Делаю я все то же самое: сравниваю столбцы строк[0..20] по столбцу 2 со значением Pr, при отсутствии совпадений Pr:=Pr+1 и опять сравниваем содержимое столбца 2 построчно в
AdoTable1, в чем может быть проблема?

var Pr: Real; X: Integer;
X:=StrToInt(Edit1.Text);

d:=0;
k:=0;
AdoTable1.First;
   while not AdoTable1.Eof do

        begin
        if k=1 then break;
        while k=0 do

                 begin
                 d:=d+1;
                 if Adotable1.Fields.Fields[2].AsInteger=Pr then

                       begin
                       k:=1;
                       DBGrid1.Columns.Items[0].FieldName:=FloatToStr(Pr);
                       DBGrid1.Columns.Items[1].FieldName:=FloatToStr(d);
                       break;
                       end
                 else AdoTable1.Next;
                 if d mod 20 = 1 then

                                begin // так как у меня в БД 20 строк то по их проверке инкремен Pr и вновь проводим сравнение
                                Pr:=Pr+1;
                                if Pr>20000 then k:=1;
                                end;
                 end;
     end;

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

Не забывайте про кнопочку # для оформления кода.