Скачать: CL | DM;

Глюки   Найти похожие ветки 

← →
cherepovets ©   (2002-09-17 16:45) [0]

НАрод почему не работает
for i:=1 to Query1.RecordCount do
begin
Query1.RecNo:=i;
if Query1.FieldByName("Garant").AsString = "True" then
a:=a+1
else
b:=b+1;
end;
Не а не и не считает;

---

← →
Андрей Прокофьев   (2002-09-17 16:47) [1]

Recordcount = 0 ?

---

← →
Johnmen ©   (2002-09-17 16:48) [2]

Потому, что сканирование НД делается не так ! А так :
with Query1 do begin
First;
while not EOF do begin
...
Next;
end;
end;

---

← →
cherepovets ©   (2002-09-17 16:49) [3]

Почему?

---

← →
cherepovets ©   (2002-09-17 16:51) [4]

>Johnmen
Но как пример ставять всегда вот это.
И к примеру если смотреть то если RecordCount 4 записи то ои их и проходит.

---

← →
Hooch ©   (2002-09-17 16:53) [5]

значит ощибка либо выше либо ниже если проходит

---

← →
Max Zyuzin ©   (2002-09-17 16:54) [6]

Это известный прикол у Query и RecordCount
Переделай немного цикл
Query1.First;
While not Query1.eof do
begin
if Query1.FieldByName("Garant").AsString = "True" then
a:=a+1
else
b:=b+1;
Query1.next;
end;

---

← →
Johnmen ©   (2002-09-17 17:00) [7]

>cherepovets © (17.09.02 16:51)
>Но как пример ставять всегда вот это.

Те, кто ставят это в пример - некомпетентны !

---

← →
cherepovets ©   (2002-09-17 17:02) [8]

Ну спасибо парни.
Все классно.

---

← →
Max Zyuzin ©   (2002-09-17 17:04) [9]

>Johnmen ©
Опять я опоздал :)

---

← →
Johnmen ©   (2002-09-17 17:26) [10]

>Max Zyuzin © (17.09.02 17:04)

Никуда ты не опоздал !!! Ты еще все успеешь ! :)))
Главное - знать решение проблемы, а еще главней - уметь решать проблемы ! (Вот такие вот сентенции...:))

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.013 c