Как конвертировать строку ?

← →
Barmaglot (2002-11-10 19:52) [0]

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

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 нигде не могу найти ...
Спасибо.

← →
Song (2002-11-10 20:32) [1]

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

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

← →
Kent (2002-11-11 13:45) [2]

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

Как конвертировать строку ? Найти похожие ветки