Форум: "Базы";
Текущий архив: 2002.10.07;
Скачать: [xml.tar.bz2];
ВнизГлюки Найти похожие ветки
← →
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 вся ветка
Форум: "Базы";
Текущий архив: 2002.10.07;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.008 c