VPF::Кривой компилятор или.... - Форум программистов

Kasiro

Дата 11.7.2010, 19:39 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 109
Регистрация: 11.7.2010

Репутация: нет
Всего: -1

Всем добрый вечер!
Пишу прогу в билдере 2010 по учёбе, такой баг (или хз что), в цикле while функция невыполняется то количество раз сколько проходит цикл, а именно выполняется только 1 раз, и затем подставляет везде это вычисленное значение. Стал дебажить, поставил брейкпоинты на вход в цикл и на вызов функции, и о чудо, всё выполнилось как надо, убираю брейкпоинты, та же песня... Думаю что это вроде внутренней оптимизации что-ли..., кто нибудь сталкивался?
На всякий случай приведу код, но в его правильности я уверен.... хотя..., всякое бывает.

Собсна цикл:

Код


Order_ID=Form1->IDGenerate("OR_"); //*
Table1->First();
while (!Table1->Eof){
pFIBQueryAddOrder->Close();
pFIBQueryAddOrder->SQL->Clear();
pFIBQueryAddOrder->SQL->Text="INSERT INTO ORDERS (NEED_ID, ID, CLIENT_ID, PRODUCT_ID, MANAGER_ID, ORDER_DATE, ORDER_TIME, PRODUCT_COUNT, ORDER_SUM) VALUES (:NEED_ID, :ID, :CLIENT_ID, :PRODUCT_ID, :MANAGER_ID, :ORDER_DATE, :ORDER_TIME, :PRODUCT_COUNT, :ORDER_SUM)";
pFIBQueryAddOrder->ParamByName("NEED_ID")->AsString=Form1->IDGenerate("ND_"); //та самая функция которая вызывается один раз, причём значение используется то, которое было вычисленно в строке обозначенной *,
//интерестно ещё то, что префикс добавляется, а та часть которая генерируется, прежняя, то есть имеем к примеру OR_wVhhaNeiaVWD и ND_wVhhaNeiaVWD
pFIBQueryAddOrder->ParamByName("ID")->AsString=Order_ID;
pFIBQueryAddOrder->ParamByName("CLIENT_ID")->AsString=Client_ID;
pFIBQueryAddOrder->ParamByName("PRODUCT_ID")->AsString=Table1->FieldByName("PRODUCT_ID")->AsString;
pFIBQueryAddOrder->ParamByName("MANAGER_ID")->AsString=Form2->Manager_ID;
pFIBQueryAddOrder->ParamByName("ORDER_DATE")->AsString=Date();
pFIBQueryAddOrder->ParamByName("ORDER_TIME")->AsString=Time();
pFIBQueryAddOrder->ParamByName("PRODUCT_COUNT")->AsInteger=Table1->FieldByName("COUNT_BUY")->AsInteger;
pFIBQueryAddOrder->ParamByName("ORDER_SUM")->AsFloat=Table1->FieldByName("COUNT_BUY")->AsInteger*Table1->FieldByName("PRICE")->AsFloat;
pFIBQueryAddOrder->ExecQuery();
Table1->Next();
}

код функции, которая не вызывается:

Код


UnicodeString TForm1::IDGenerate(UnicodeString prefix){
srand(time(NULL));
UnicodeString ID=prefix;
unsigned int buf;
UnicodeString S="ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789";
for (int i = 1; i < 13; i++) {
buf=rand()%S.Length();
if (buf==0) {
buf=1;}
ID+=S[buf];
}
return ID;
}

Добавлено через 6 минут и 45 секунд
Сам догадался, дело в том что srand(time(NULL)); выдаёт одно и то же значение, т. к. проходит слишком мало времени между вычислениями

586

Дата 11.7.2010, 19:52 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2243
Регистрация: 8.5.2006

Репутация: 57
Всего: 146

Цитата(Kasiro @ 11.7.2010, 20:39

)

UnicodeString TForm1::IDGenerate(UnicodeString prefix){
srand(time(NULL));

srand в программе нужно вызывать только один единственный раз.

Kasiro

Дата 11.7.2010, 19:56 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 109
Регистрация: 11.7.2010

Репутация: нет
Всего: -1

точно) спасибо))

586

Дата 11.7.2010, 19:57 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2243
Регистрация: 8.5.2006

Репутация: 57
Всего: 146

Цитата(Kasiro @ 11.7.2010, 20:39

)

Стал дебажить, поставил брейкпоинты на вход в цикл и на вызов функции, и о чудо, всё выполнилось как надо, убираю брейкпоинты, та же песня...

Во время отладки времени проходит больше, и функция time() возвращает другое значение. А во время обычного выполнения одно и то же значение, т.к. программа выполняется быстро.

Это сообщение отредактировал(а) 586 - 11.7.2010, 22:46

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »