Глюки

← →
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 (2002-09-17 17:26) [10]

>Max Zyuzin © (17.09.02 17:04)

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

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