преобразования Hex в TDateTime(или String)

← →
Неважно (2006-04-26 00:29) [0]

Есть такая строка : chr($25)+Chr($04)+Chr($06)+Chr($23)+Chr($34)+Chr($20)

Нужно эту строку "загнать" в TDateTime или хотя-бы получить "250460" и "233420".

В общем, эту задачу я решил... только не самым ИЗЯЩНЫМ способом :( Хотелось бы посмотреть на ХОРОШИЙ и ПРАВИЛЬНЫЙ код. Спасибо!

← →
Германн © (2006-04-26 03:33) [1]

Смысл всей этой хиромантии не понятен!

Есть понятие "BCDDateTime". Не знаю это ли имеется в виду, но похоже на то. Но приведённое описание сабжа говорит о том, что автор "гуляет где-то рядом, не зная точно где именно. :-(

← →
Джо © (2006-04-26 03:40) [2]

Каким образом данная 6-байтовая последовательность относится к TDateTime и что такое "250460" и "233420"?

← →
Германн © (2006-04-26 03:50) [3]

> Джо © (26.04.06 03:40) [2]
>
> Каким образом данная 6-байтовая последовательность относится
> к TDateTime и что такое "250460" и "233420"?

Автору "неважно". А для тебя Серёга поясню.
$250406233420 означает 23:34:20 25/04/06

← →
Джо © (2006-04-26 03:57) [4]

> [3] Германн © (26.04.06 03:50)

А, понятно, спасибо. Тупею :(

← →
Германн © (2006-04-26 04:07) [5]

> Джо © (26.04.06 03:57) [4]
>
> > [3] Германн © (26.04.06 03:50)
>
> А, понятно, спасибо. Тупею :(
>

Не думаю, что ты "тупеешь". Просто, скорее всего, ты с форматом BCD (Binary Coded Decimals) не знаком! Или, по крайней мере, не имел с ним дела хоть сколько нибудь продолжительно.
Кстати, имхо, большинство на форуме, тоже не имеют опыта работы с BCD. И это ес-но!

← →
Неважно (2006-04-26 09:40) [6]

>или хотя-бы получить "250460"

var St:String; begin St:=chr($25)+Chr($04)+Chr($06)+Chr($23)+Chr($34)+Chr($20); Caption:=IntToHex(Byte(St[1]),2)+ IntToHex(Byte(St[2]),2)+IntToHex(Byte(St[3]),2) end;

> Неважно (26.04.06 00:29)
>
> Есть такая строка : chr($25)+Chr($04)+Chr($06)+Chr($23)+Chr($34)+Chr($20)
>
> Нужно эту строку "загнать" в TDateTime или хотя-бы получить
> "250460" и "233420".

Ответь - Что тебе нужно?
Откуда ты получаешь исходные данные, и что тебе нужно с ними сделать

преобразования Hex в TDateTime(или String) Найти похожие ветки