Скачать: CL | DM;

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

← →
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 объявить...

---

← →
Anatoly Podgoretsky ©   (2007-02-01 19:37) [8]

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

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

---

← →
Anatoly Podgoretsky ©   (2007-02-01 19:38) [9]

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.026 c