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

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

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

Неважно ©   (2006-04-26 00:29:00) 

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

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

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

---

Германн   (2006-04-27 03:03:00) [1]

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


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

---

GanibalLector   (2006-04-26 23:41:00) [2]

>или хотя-бы получить '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;



---

Неважно   (2006-04-26 09:40:00) [3]

>Германн ©
Ладно...так а что читать??? Что писать??? Не понятно...

---

Германн   (2006-04-26 04:07:00) [4]

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


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

---

Джо   (2006-04-26 03:57:00) [5]

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

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

---

Германн   (2006-04-26 03:50:00) [6]

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


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

---

Джо   (2006-04-26 03:40:00) [7]

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

---

Германн   (2006-04-26 03:33:00) [8]

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

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

---

Наверх