Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Работа с датой, преобразование 
:(
    Опции темы
Dima85
Дата 27.3.2012, 11:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 396
Регистрация: 19.7.2007

Репутация: нет
Всего: нет
Через idhttp, забираю дату последней модификации нужного файла на сервере, получают такую строчку:
Код

Mon, 26 Mar 2012 06:52:14 GTM


Ее необходимо преобразовать в:
Код

26-03-2012


Я бы это делал так: Разбивал строчку на части, опираясь на пробелы. 
С "Mar" поступил бы так:
Код

if (d[2] == 'Mar') then d[2]:='3'; else if (d[2] == *** и так 12 месяцев ***

и потом все вывел: d[1]-d[2]-d[3]

Может есть какие-то более элегантные способы?

Это сообщение отредактировал(а) Dima85 - 27.3.2012, 12:01
PM MAIL   Вверх
Snowy
Дата 27.3.2012, 13:39 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
Код
uses IdGlobalProtocols;

...

var
  dt: TDateTime;
begin
  dt := StrInternetToDateTime('Mon, 26 Mar 2012 06:52:14 GTM');
  ShowMessage(FormatDateTime('dd-mm-yyyy', dt));
end;
PM MAIL   Вверх
Dima85
Дата 27.3.2012, 13:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 396
Регистрация: 19.7.2007

Репутация: нет
Всего: нет
Может есть еще какие-то варианты, без IdGlobalProtocols?
PM MAIL   Вверх
Keeper89
Дата 27.3.2012, 13:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Завсегдатай
Сообщений: 2580
Регистрация: 26.2.2009

Репутация: 20
Всего: 58
Варианты - взять и реализовать эту функцию самому smile


--------------------
Cogito, ergo sum

Keeper's blog
CnWizards Downloads

user posted image
PM MAIL WWW   Вверх
Snowy
Дата 27.3.2012, 14:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
А смысл? Ты же всё равно юзаешь IdHttp. А он юзает IdGlobalProtocols.
Эта функция уже есть в коде твоей программы, т.к. используется в Response для вычисления LastModified.
PM MAIL   Вверх
Dima85
Дата 27.3.2012, 21:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 396
Регистрация: 19.7.2007

Репутация: нет
Всего: нет
Странно. Я вставил IdGlobalProtocols в uses 
И Delphi начал ругаться на отсутствие IdGlobalProtocols.cdu
Я так понял что необходимо дополнительно ставить какой-то компонент.

P.S. Просто я переодически компелирую этот проект на 4-компьютерах. И на каждом из них не хочется ставить IdGlobalProtocols.dcu
PM MAIL   Вверх
Snowy
Дата 27.3.2012, 21:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
IdGlobalProtocols входит в состав Indy 10
Если у тебя не 10-я версия, то озвучь версию дельфи, чтобы сориентироваться.
PM MAIL   Вверх
Dima85
Дата 27.3.2012, 22:30 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 396
Регистрация: 19.7.2007

Репутация: нет
Всего: нет
Использую Delphi 7. Прошу прощения, нужно было сразу написать версию что бы не возникали такие недоразумения.
PM MAIL   Вверх
Snowy
Дата 28.3.2012, 15:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 192
Всего: 484
В 9-й инди эта функция живёт в IdGlobal
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.1387 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.