Здравствуйте, ув. форумчане.
Ситуация просто идиотская. Пишу банальный код. В переменной время вида '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
Есть прям стойкое желание выстрелить в монитор