| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Как конвертировать строку ? [D6, WinME, Win2k]

Barmaglot ©   (2002-11-10 19:52:00) 

Уважаемые программисты!
Подскажите, как можно в Дельфи определить следующую функцию:

function TForm1.ConvertToHour(TS:string):real;
var Hours,Mins,Err:integer;
begin
Val(ExtractWord(1,TS,[".","/","-",":"]),Hours,Err);
Val(ExtractWord(2,TS,[".","/","-",":"]),Mins,Err);
ConvertToHour:=Hours+Mins/60;
end;

Функцию ExtractWordнигде не могу найти ...
Спасибо.

---

Kent   (2002-11-11 13:45:00) [1]

Можно также FormatDateTime, мне кажется так даже проще будет, любой формат строки, любой разделитель. А вообще кто как больше любит :))

---

Song   (2002-11-10 20:32:00) [2]

:-) Ну Вы нагородили...

Вам всего-то нужна ф-ия StrToTime(). Борланд уже всё сделал, а Вы велосипед изобретаете :-)

---

Наверх