[Dead_Gigabit]

Всем доброго, у меня такая проблемс
есть стрингрид в котором занесенны данные, есть бд также с данными.
Задача сравнить данные первого столбща стрингрида (нумерация с 0) с столбщом name в БД и при совпадении добавить результат в МЕМО.
делаю так:

Код:

var
s:string;
i: integer;
begin
memo1.Clear;
i:=0;
bd.first;
while not (bd.eof) do
begin
i:=i+1;
if stringgrid1.Cells[1,i]=bd.fieldbyname('upname').asstring then begin
memo1.Lines.Add(StringGrid1.Rows[i].Text);
end;

проверка проходит но в мемо не добавляются данные просто пустота...
Может кто нибудь обьяснить что не так?


Использую:
delphi 2010;
firebird 1.5

P.S. bd это Adoquery

[TOJluK]

Как то странно проверка написана, очень странно... Если уж циклами сравнение идет, так хотя бы цикл внутри цикла надо написать, а не гнать параллельно.

[Dead_Gigabit]

Подробней, если можно пример....

[Babuca]

atsutstvuet perexod na sledushi zapis.

Код:

bd.next;

[TOJluK]

Примерно так:

Код:

bd.first;
while not (bd.eof) do
begin
  for i:=0 to stringgrid1.RowCount-1 do
    if stringgrid1.Cells[1,i]=bd.fieldbyname('upname').asstring then
       memo1.Lines.Add(StringGrid1.Rows[i].Text);
  bd.next;
end;

Babuca, я подозреваю, что next там все же есть, просто в копипаст не попал...