Не полные минуты в секунды.

← →
op120 (2007-02-01 16:41) [0]

Подскажите пожалуйста, как правильно перевести не полные минуты в секунды, в таком формате: есть string = "10.5", и как из десяти с половиной минут получить секунды. (я понимаю, что умножая и т.п. и т.д.) но главное, мне нужно руками разобрать строку до разделителя (.) и потом уже плясать от этого? Или есть более корректный способ такое сделать?

← →
Ega23 © (2007-02-01 16:43) [1]

StrToFloat, Trunc, Операция деления, Операция умножения +F1

← →
Сергей М. © (2007-02-01 16:43) [2]

Секунды := StrToFloat("10.5") * 60

← →
Сергей М. © (2007-02-01 16:45) [3]

Тьфу ты !)

Вот ведь галиматью написал)

← →
Neket (2007-02-01 16:47) [4]

var str,min,sec:string; flag:integer; ...... str:="10.5"; flag:=0; min:=""; sec:=""; For i:=1 to length(str) do begin if str[i]="." then begin flag:=1; continue; end; if flag=0 then min:=min+str[i]; if flag=1 then sec:=sec+str[i]; end;

или может я чегото не понял....

← →
Neket (2007-02-01 16:49) [5]

ну и потом strToint(min) и strtoint(sec)

или я чего-то не понял :-)))))

← →
Ega23 © (2007-02-01 16:49) [6]

> или может я чегото не понял....

Носом тыкать, или сам все ошибки найдёшь?

← →
Neket (2007-02-01 16:51) [7]

Ну не придирайтесь наспех писал... :-)
Забыл i объявить...

> op120 (01.02.2007 16:41:00) [0]

Подсказываю в одной минуте шестьдесят секунд, вот на это и умножай.

> Neket (01.02.2007 16:51:07) [7]

Ну зачем придирать, ну разве к знанию русского языка - "все ошибки" это множественное число, а не единичное.

Не полные минуты в секунды. Найти похожие ветки