![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
![]() Здравствуйте, ув. форумчане.
Ситуация просто идиотская. Пишу банальный код. В переменной время вида '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. |