|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
StrToInt - не понимаю
Здравствуйте, ув. форумчане.
Ситуация просто идиотская. Пишу банальный код. В переменной время вида '12,56'. Нужно Час помножить на 60, а минуты поделить на 30. И сложить эти два значения. Делов на пару минут. Однако: пишу код, тыкаю точку останова, смотрю в переменные. И вижу там : Код:
procedure TFloads.ConvertTimeToPoint(IDAct: string); var Mass : string; MPoint,h,m : string; Hour,Min,Total : integer; begin CheckPoint(); if CheckSumm = True then begin Mass := IDAct; for i:= 0 to Listbox3.Count - 1 do begin MPoint := listbox3.Items[i]; Delete(MPoint,1,1); H := Copy(MPoint,1,2); M := Copy(MPoint,4,2); Hour := StrToInt(H); Min := StrToInt(M); Total := Hour + Min; Mass := Mass + ';' + MPoint; end; Listbox4.Items.Add(Mass); end; end; Watch List Код:
Watch Name Value H '00' M '05' MPoint '00,05' Mass 'Василий' Min E2171 Variable 'Min' inaccessible here due to optimization Hour E2171 Variable 'Hour' inaccessible here due to optimization Total E2171 Variable 'Total' inaccessible here due to optimization У меня совсем мозги кипят по моему. Почему я не могу Hour := StrToInt(H); - элементарно перетащить str в int ? p.s. Embarcadero Turbo Delphi Explorer 2006 Есть прям стойкое желание выстрелить в монитор Последний раз редактировалось Budjaka, 21.02.2013 в 12:00. |
#2
|
||||
|
||||
Единственное что можно сказать, эти переменные после преобразования нигде не используются и Дельфи их "выкинул".
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
Этот пользователь сказал Спасибо angvelem за это полезное сообщение: | ||
Budjaka (21.02.2013)
|
#3
|
||||
|
||||
Код:
procedure TFloads.ConvertTimeToPoint(IDAct: string); var Mass : string; MPoint,h,m : string; i,Hour,Min,Total : integer; begin //CheckPoint(); if CheckSumm = True then begin Mass := IDAct; for i:= 0 to Listbox3.Count - 1 do begin MPoint := listbox3.Items[i]; //Delete(MPoint,1,1); H := Copy(MPoint,1,2); M := Copy(MPoint,4,5); Hour := StrToInt(H); Min := StrToInt(M); Total := Hour + Min; Mass := Mass + ';' + MPoint; end; Listbox1.Items.Add(Mass); end; end; Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
Этот пользователь сказал Спасибо Alegun за это полезное сообщение: | ||
Budjaka (21.02.2013)
|
#4
|
||||
|
||||
Зря выкинул строку, возможно у ТС там убирается лишний символ.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#5
|
|||
|
|||
Гугл в очередной раз меня выручил, не прошло и трех часов.
Как оказалось, Delphi по непонятным причинам, сама выпиливала мои переменные, т.к. они не использовались дальше оператора присвоения. зачем Делфя так делает - уму не постижимо. А не использовал я их, т.к. желал сначала смотреть переменную. Жуть в общем. Спасибо всем кто откликнулся, монитор обязан вам жизнью. p.s. может пригодится ищущим : при ошибке E2171 Variable 'имя переменной' inaccessible here due to optimization и невозможности ее просмотреть отладчиком, надобно куда нибудь эту переменную вывести, иначе оптимизатор кода в Делфях устраивает самодеятельность. Последний раз редактировалось Budjaka, 21.02.2013 в 12:39. |
#6
|
||||
|
||||
Цитата:
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
#7
|
||||
|
||||
Цитата:
Я не понял Вашего вопроса, но всё же Вам на него отвечу! |
#8
|
||||
|
||||
Зависит, но по-умолчанию именно так. И не важно какая версия Дельфи.
Je venus de nulle part 55.026263 с.ш., 73.397636 в.д. |
Этот пользователь сказал Спасибо angvelem за это полезное сообщение: | ||
Budjaka (23.02.2013)
|
#9
|
|||
|
|||
Цитата:
А что, оптимизацию в настройках проекта убрать не судьба? Ну и собирать, есс-но, дебаг версию. |
Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
Budjaka (23.02.2013)
|
#10
|
|||
|
|||
Цитата:
Но знал бы я что это связанные вещи - даже тему бы не создавал, загуглилось бы в пару секунд. А прогуглить 'глюки strtoint', и перебрать 10 страниц, заняло полдня. Кстати в D7, которым пользовался ранее, то что я пытаюсь - проходило. Т.е. просто закидывал значение в переменную, и смотрел при дебаге, хотя она нигде кроме присваивания не использовалась. И в D7 видать отключена у меня по умолчанию была. Спасибо всем кто помог) |
#11
|
|||
|
|||
Кстати эта "оптимизация", помимо ошибок ТС у меня еще выдавала ошибку EConvertError при использовании функций StrToInt и StrToFloat.
Это на всякий случай, вдруг кому поможет |