Показать сообщение отдельно
  #1  
Старый 21.02.2013, 11:35
Budjaka Budjaka вне форума
Прохожий
 
Регистрация: 13.02.2013
Сообщения: 15
Репутация: 10
По умолчанию 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
Есть прям стойкое желание выстрелить в монитор
Ответить с цитированием