Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Глюки [D6, Paradox]

cherepovets © (2002-09-17 16:45:00)
НАрод почему не работает
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;
Не а не и не считает;

Johnmen (2002-09-17 17:26:00) [1]
>Max Zyuzin © (17.09.02 17:04)

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

Max Zyuzin (2002-09-17 17:04:00) [2]
>Johnmen ©
Опять я опоздал :)

cherepovets (2002-09-17 17:02:00) [3]
Ну спасибо парни.
Все классно.

Johnmen (2002-09-17 17:00:00) [4]
>cherepovets © (17.09.02 16:51)
>Но как пример ставять всегда вот это.

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

Max Zyuzin (2002-09-17 16:54:00) [5]
Это известный прикол у 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;

Hooch (2002-09-17 16:53:00) [6]
значит ощибка либо выше либо ниже если проходит

cherepovets (2002-09-17 16:51:00) [7]
>Johnmen
Но как пример ставять всегда вот это.
И к примеру если смотреть то если RecordCount 4 записи то ои их и проходит.

cherepovets (2002-09-17 16:49:00) [8]
Почему?

Johnmen (2002-09-17 16:48:00) [9]
Потому, что сканирование НД делается не так ! А так :
with Query1 do begin First; while not EOF do begin ... Next; end; end;

Андрей Прокофьев (2002-09-17 16:47:00) [10]
Recordcount = 0 ?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »