|
#1
|
||||
|
||||
Stringrid и БД
Всем доброго, у меня такая проблемс
есть стрингрид в котором занесенны данные, есть бд также с данными. Задача сравнить данные первого столбща стрингрида (нумерация с 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 Последний раз редактировалось Dead_Gigabit, 22.12.2010 в 17:14. |
#2
|
||||
|
||||
Как то странно проверка написана, очень странно... Если уж циклами сравнение идет, так хотя бы цикл внутри цикла надо написать, а не гнать параллельно.
|
#3
|
||||
|
||||
Подробней, если можно пример....
|
#4
|
|||
|
|||
atsutstvuet perexod na sledushi zapis.
Код:
bd.next; |
#5
|
||||
|
||||
Примерно так:
Код:
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 там все же есть, просто в копипаст не попал... Последний раз редактировалось TOJluK, 22.12.2010 в 18:14. |