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

[Apostol13]

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

не выводятся - все подогнал под свое - но нет якобы совпадений получается, что невозможно. Проблема все еще актуальна.
могу прислать весь проект, может кто поможет его выправить (

[Apostol13]

Прошу подсказки.
Если Pr сразу совпадает с нужным значением, то оно выводится, в ином случае цикл выполняется много раз и выводится значение конечной строки базы данных (двадцатой).
Где мог допустить оплошность - пока только этот алгоритм работает. Прошу отталкиваться от него. Заранее благодарен.

 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
          Pr:=Pr+1;
          if Pr>20000 then k:=1;
          end;
    end;


  end;

[evg_m]

НЕ предусмотрен ВОЗВРАТ к первой ЗАПИСИ. при изменении проверочного значения Pr:=Pr+1;
соответственно проверятся записи 1..20, 21..40,41..60,...

Делаю я все то же самое: сравниваю столбцы строк[0..20] по столбцу 2 со значением Pr, при отсутствии совпадений Pr:=Pr+1 и опять сравниваем содержимое столбца 2 построчно в

Если таких записей нет то либо они добавляются автоматически, либо оператор Next выполняет пустое действие без возбуждения исключения и мы остаемся на последней записи.(вот и бесконечный цикл)

if d mod 20 = 1 then
          begin
          Pr:=Pr+1;
          if Pr>20000 then k:=1;
          end;

выводится значение конечной строки базы данных (двадцатой).

Выводит всегда независимо от нашли\не нашли для каждой двадцатой итерации цикла, которую ты считаешь проверкой двадцатой записью (см. первой замечание).

[Apostol13]

От Души, Дорогой, теперь все работает, стоило сделать возврат к 1-ой записи как ты и сказал - всего лишь одной строки не было = )

if d mod 20 = 1 then
          begin
          Pr:=Pr+1;
          if Pr>20000 then k:=1;
          AdoTable1.First;
          end;

еще раз Огромное спасибо тем, кто принимал Участие. В особенности Evg_M.
Ныне проблема полностью превращена в работоспособную Штуку = ).

[evg_m]

вот эти строчки в ТВОЕМ коде излиши.

   while not AdoTable1.Eof do

        begin
        if k=1 then break;

ну и конечно же соответствующее end.
в твоем алгоритме НЕВОЗМОЖНО дойти до конца нД (EOF) поскольку все время откатываемя на начало (First).

[Apostol13]

но на удивление все работает безотказно.
Есть вопрос:
Если я хочу разместить базу данных на сайте, как к ней обратиться через программу делфи(или можно прямо в AdoConnector вписать требуемое)? какие компоненты использовать и как скооперировать ее с провайдером, при наличии такового?
просто подскажите направление - буду думать = )

[OlegPrograming5]

Замечательная статья по использованию запросов - http://azbukavb.narod.ru/dbdoc/SQLDB.html

[Apostol13]

Нет Нет Нет - только работа с Делфи и никаких SQL`ей = )