Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > C++ Builder > Кривой компилятор или....


Автор: Kasiro 11.7.2010, 19:39
Всем добрый вечер!
Пишу прогу в билдере 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
Цитата(Kasiro @  11.7.2010,  20:39 Найти цитируемый пост)
UnicodeString TForm1::IDGenerate(UnicodeString prefix){
srand(time(NULL));

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

Автор: Kasiro 11.7.2010, 19:56
точно) спасибо))

Автор: 586 11.7.2010, 19:57
Цитата(Kasiro @  11.7.2010,  20:39 Найти цитируемый пост)
Стал дебажить, поставил брейкпоинты на вход в цикл и на вызов функции, и о чудо, всё выполнилось как надо, убираю брейкпоинты, та же песня...

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

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)