| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Не полные минуты в секунды. [D6]
op120 © (2007-02-01 16:41:00)Подскажите пожалуйста, как правильно перевести не полные минуты в секунды, в таком формате: есть string = "10.5", и как из десяти с половиной минут получить секунды. (я понимаю, что умножая и т.п. и т.д.) но главное, мне нужно руками разобрать строку до разделителя (.) и потом уже плясать от этого? Или есть более корректный способ такое сделать?
Anatoly Podgoretsky (2007-02-01 19:38:00) [1]> Neket (01.02.2007 16:51:07) [7]
Ну зачем придирать, ну разве к знанию русского языка - "все ошибки" это множественное число, а не единичное.
Anatoly Podgoretsky (2007-02-01 19:37:00) [2]> op120 (01.02.2007 16:41:00) [0]
Подсказываю в одной минуте шестьдесят секунд, вот на это и умножай.
Neket (2007-02-01 16:51:00) [3]Ну не придирайтесь наспех писал... :-)
Забыл i объявить...
Neket (2007-02-01 16:49:00) [4]ну и потом strToint(min) и strtoint(sec)
или я чего-то не понял :-)))))
Ega23 (2007-02-01 16:49:00) [5]
> или может я чегото не понял....
Носом тыкать, или сам все ошибки найдёшь?
Neket (2007-02-01 16:47:00) [6]
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;
или может я чегото не понял....
Сергей М. (2007-02-01 16:45:00) [7]Тьфу ты !)
Вот ведь галиматью написал)
Ega23 (2007-02-01 16:43:00) [8]StrToFloat, Trunc, Операция деления, Операция умножения +F1
Сергей М. (2007-02-01 16:43:00) [9]Секунды := StrToFloat('10.5') * 60
| |
