Delphi. Поиск по stringgrid.

[Mishka_M]

Добрый день.Заранее благодарен за помощь .
Суть такова , сделал поиск по таблице , вроде как логика верна , но отображает пустую таблицу .Подскажите , что не верно.

procedure TForm2.Button5Click(Sender: TObject);
var
  ptemp:prasp;
  i:integer;
  begin
    i:=1;
    ptemp:=pnote;
    clearstringgrid;
    while (ptemp<>nil) do
      begin
        if (pos(form2.Edit1.Text,ptemp^.day)>0)
        or (pos(form2.Edit1.Text,ptemp^.pred)>0)
        or (pos(form2.Edit1.Text,ptemp^.prep)>0)
        or (pos(form2.Edit1.Text,ptemp^.tip)>0)
        or (pos(form2.Edit1.Text,ptemp^.cab)>0) then
          begin
           form2.StringGrid1.RowCount:=form2.StringGrid1.RowCount+1;
           form2.StringGrid1.Cells[0,i]:=ptemp^.day;
           form2.StringGrid1.Cells[1,i]:=ptemp^.pred;
           form2.StringGrid1.Cells[2,i]:=ptemp^.prep;
           form2.StringGrid1.Cells[3,i]:=ptemp^.tip;
           form2.StringGrid1.Cells[4,i]:=ptemp^.cab;
           i:=i+1;
          end;
        ptemp:=ptemp^.next;
      end;
  end;

[eoln]

Неисповедимы пути ... Возможно, содержимое совсем не то.
Поставить бряк и пройтись по строкам, узнать что находится в ptemp^.****, если цикл вообще выполнится.

[Mishka_M]

Прогнал по отладке . Все считывается , данные присваиваются. Обнаружил , что после сравнения , т.е. после первой функции Pos сразу перескакивает на next, по остальным Pos даже не пробегает...

[Mishka_M]

При равных значениях внутри Pos, ничего не происходит ... фигня какая то

[eoln]

Это он подсвечивает одну строку, а проверяет все условия сразу.
Что показывает отладчик в это время? Какие значения в form2.Edit1.Text, ptemp^.day, ptemp^.pred и т.д.?
Из выше описанной ситуации очевидно, что там нет совпадений.

pos('мясо', 'суп')

[Mishka_M]

равные , то есть к примеру , по циклу в ^day ложится значение вторник, я в edit ввожу вторник, значения равны, но в Begin он не переходит , а проскакивает сразу на next.
синтаксис

if (form2.Edit1.Text=ptemp^.day) then

тоже не работает...

[eoln]

Что показывает отладчик? Скриншот неплохо бы (с данными отладчика на строке условия)

И ещё раз на всякий случай спрошу - Что показывает отладчик?

[Mishka_M]

ааа пля-пля-пля , вырваные годы.....
короче , в чем ошибка, в базе ВСЕ значения набраны с большой буквы , в поиске вбиваю с малой , в этом и вся проблема...почти сутки в попу ((((

[Mishka_M]

eoln , спасибо за помощь , премного благодарен , что откликнулся.