Преобразование строки во время

[kayman]

Подскажите как преобразовать (желательно с помощью вырезки) , имя поля - 'TIME' , а записи этого поля строкового типа (233000), необходимо преобразовать в время hh:mm:ss .
Заранее спасибо!

[sander]

TimeToStr(Time: TDateTime): string;
Например: Label1.Caption:=TimeToStr(Now);
Если работаешь с базой то тоже самое.

[Pitbull]

наоборот StrToTime('12:11:13');

[pu4koff]

можно попробовать у поля выставить значение EditMask например таким: !00:00:00;0;_ или юзать например EncodeTime, смотря зачем это все надо
ЗЫ. время бы лучше и хранить как время

[Alex21]

Сообщение от pu4koff

можно попробовать у поля выставить значение EditMask например таким: !00:00:00;0;_

Это справедливо только после полудня
т.к. до 10 часы пишутся без нуля 9:30:00

Сообщение от pu4koff

ЗЫ. время бы лучше и хранить как время

Согласен.

[Pitbull]

Сообщение от pu4koff

можно попробовать у поля выставить значение EditMask например таким: !00:00:00;0;_ или юзать например EncodeTime, смотря зачем это все надо
ЗЫ. время бы лучше и хранить как время

DecodeDateTime(y,m,d); где y,m,d - год, месяц и день соответственно (тип word)
Ему из строки нужно получить время....

[sander]

Сообщение от Pitbull

наоборот StrToTime('12:11:13');

Сорри. Ну вы меня правильно поняли

[pu4koff]

Сообщение от Pitbull

DecodeDateTime(y,m,d); где y,m,d - год, месяц и день соответственно (тип word)
Ему из строки нужно получить время....

вапще-то полностью такое описание: procedure DecodeDateTime(const AValue: TDateTime; out AYear, AMonth, ADay, AHour, AMinute, ASecond, AMilliSecond: Word);
можно еще так:
StrToTime(str[1]+str[2]+':'+str[3]+str[4]+':'+str[5]+str[6])
или так:
EncodeTime(StrToInt(str[1]+str[2]),StrToInt(str[3]+str[4]),StrToInt(str[5]+str[6]),0)
ну соответственно если возможно значение типа: 90030, т.е. до обеда, то проверку на длину строки воткнуть надо и от результата плясать. например, если длина равна 5, то дописать в начало нолик )