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

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

Как преобразовать строку в дату? [D7]


Страницы:   1 2

kull ©   (2007-04-23 23:05:00) 

Есть дата в виде строки в формате "dd/MMM/yy"
Надо преобразовать ее в TDateTime.
Что то я не могу понять как это сделать?

Германн   (2007-04-25 00:14:00) [1]


> kull   (24.04.07 23:57) [27]
>
> чуток - это в 3 раза, если, например, месяц - декабрь =)
>

А в попугаях, то бишь микросекундах, это сколько будет? :)

kull   (2007-04-24 23:57:00) [2]

чуток - это в 3 раза, если, например, месяц - декабрь =)

{RASkov}   (2007-04-24 16:39:00) [3]

Хотя может оно и верно в твоем случае, но с другой точки зрения. С точки зрения - номер месяца не должен зависеть от местоположения имени месяца в массиве месяцев. Ну а скорость... может и выиграешь чуток :)

{RASkov}   (2007-04-24 16:32:00) [4]

> kull
> Обычно сортировку используют для ускорения поиска...

> MonthNum := Word(FShortMonths.Objects[FShortMonths.IndexOf(MontStr)]);

Ты думаешь тем самым увеличил скорость поиска в 12 значном списке? :)

kull   (2007-04-24 11:24:00) [5]


> Германн ©   (24.04.07 01:21) [11]


Еще я не понял почему февраль, а не январь? =)

kull   (2007-04-24 11:20:00) [6]

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

kull   (2007-04-24 11:17:00) [7]


> Германн ©   (24.04.07 01:21) [11]


> {RASkov}   (24.04.07 01:41) [12]

А подумать? =)

MonthNum := Word(FShortMonths.Objects[FShortMonths.IndexOf(MontStr)]);


К примеру...

{RASkov}   (2007-04-24 03:24:00) [8]

> [20] Германн ©   (24.04.07 03:08)
> Завтра проверю на BDS2006. Ты не обижайся.

Извини Германн, даже и не подумаю :) А.... а завтра - это 24 или 25 :)
Расскажешь потом результат проверки...

Германн   (2007-04-24 03:08:00) [9]


> Все нормально.
> TFormatSettings; - record "системных переменных" (имена
> полей и их тип совподают с сис. перем. и только), и на их
> системные аналоги она не влияет...
>

Готов поверить. Завтра проверю на BDS2006. Ты не обижайся. Когда пошла такая пьянка, то доверяй, но проверяй! :-)

{RASkov}   (2007-04-24 02:55:00) [10]

> [18] Германн ©   (24.04.07 02:41)

var FD: TFormatSettings;
begin
 ShowMessage(FD.ShortDateFormat);   // ''
 ShowMessage(ShortDateFormat);      // 'dd.MM.yyyy'
 FD.ShortDateFormat:='YY/DD/mmmm';
 ShowMessage(FD.ShortDateFormat);   // 'YY/DD/mmmm'
 ShowMessage(ShortDateFormat);      // 'dd.MM.yyyy'
end;
Все нормально.
TFormatSettings; - record "системных переменных" (имена полей и их тип совподают с сис. перем. и только), и на их системные аналоги она не влияет...

Германн   (2007-04-24 02:41:00) [11]


> Переводил Промтом, так как сам в англ никак.... :(
>

Да не надо мне перевода. С аглицкого на русский перевод для меня не проблема.
Может я не "пояснил суть".
Вот пример. Я у себя в программе вывожу (в интерфейс, в лог и т.п.) Дату/время функцией DateTimeToStr (Я то вообще то её и не пользую, предпочитаю FormatDateTime, но это "мой скус"). Сия функция использует "date/time formatting variables". Так вот вопрос. Сия функция будет всегдаодинаково выводить строковое представление даты/времени? Не повлияет ли на сей вывод вызов function StrToDate(const S: string; const FormatSettings: TFormatSettings)?

{RASkov}   (2007-04-24 02:26:00) [12]

> [16] Германн ©   (24.04.07 02:13)

Эх... Германн получим мы... с утра :)
Description
TFormatSettings defines a data structure containing locale information used by string formatting routine. Each member of TFormatSettings is equivalent to the global variable with the same name. A variable of type TFormatSettings defines a thread-safe context that formatting functions can use in place of the default global context, which is not thread-safe.
Описание
TFormatSettings определяет структуру данных, содержащую информацию места действия, используемую строкой, форматирующей рутину. Каждый член TFormatSettings эквивалентен глобальной переменной с тем же самым названием(именем). Переменная типа TFormatSettings определяет безопасный тематикой контекст, который форматирующие функции могут использовать вместо заданного по умолчанию глобального контекста, который - не безопасен тематикой.

Переводил Промтом, так как сам в англ никак.... :(

Германн   (2007-04-24 02:13:00) [13]


> The second form of StrToDate, which is thread-safe, refers
> to localization information contained in the FormatSettings
> parameter. Before calling the thread-safe form of StrToDate,
>  you must populate FormatSettings with localization information.
>  To populate FormatSettings with a set of default locale
> values, call GetLocaleFormatSettings.
> I'm sorry :)

Этот текст ничего не говорит про значения date/time formatting variables.

{RASkov}   (2007-04-24 02:10:00) [14]

> [13] Германн ©   (24.04.07 01:52)
> Ну а потом, а потом что будет? С date/time formatting variables?

Т.е. вот ответ на твой вопрос

TFormatSettings defines a thread-safe string formatting context.
Unit
SysUtils
Delphi syntax:
type

 TFormatSettings = record
   CurrencyFormat: Byte;
   NegCurrFormat: Byte;
   ThousandSeparator: Char;
   DecimalSeparator: Char;
   CurrencyDecimals: Byte;
   DateSeparator: Char;
   TimeSeparator: Char;
   ListSeparator: Char;
   CurrencyString: string;
   ShortDateFormat: string;
   LongDateFormat: string;
   TimeAMString: string;
   TimePMString: string;
   ShortTimeFormat: string;
   LongTimeFormat: string;

   ShortMonthNames: array[1..12] of string;
   LongMonthNames: array[1..12] of string;
   ShortDayNames: array[1..7] of string;
   LongDayNames: array[1..7] of string;
   TwoDigitYearCenturyWindow: Word;
 end;

Description
TFormatSettings defines a data structure containing locale information used by string formatting routine. Each member of TFormatSettings is equivalent to the global variable with the same name. A variable of type TFormatSettings defines a thread-safe context that formatting functions can use in place of the default global context, which is not thread-safe.

To create and use the thread-safe environment defined by TFormatSettings, follow these steps:

Define a variable of type TFormatSettings
Call GetLocaleFormatSettings to populate the TFormatSettings variable with locale information.
Pass the TFormatSettings variable as the last parameter of the string formatting routine.

Each routine that accepts a TFormatSettings parameter is thread-safe, and is an overload of an equivalent function that refers to the global formatting variables.
Еще раз I'm sorry :)

{RASkov}   (2007-04-24 02:05:00) [15]

> Ну а потом, а потом что будет? С date/time formatting variables?

Да ничего с ними не будет.... она нужна только для "формата строки" при "преобразовании"....
Вот F1:
SysUtils
Category
datetime routines

Delphi syntax:
function StrToDate(const S: string): TDateTime; overload;
function StrToDate(const S: string; const FormatSettings: TFormatSettings): TDateTime; overload;

C++ syntax:
extern PACKAGE System::TDateTime __fastcall StrToDate(const AnsiString S);
extern PACKAGE System::TDateTime __fastcall StrToDate(const AnsiString S, const TFormatSettings FormatSettings);

Description
Call StrToDate to parse a string that specifies a date. If S does not contain a valid date, StrToDate raises an EConvertError exception.

S must consist of two or three numbers, separated by the character defined by the DateSeparator global variable or its TFormatSettings equivalent. The order for month, day, and year is determined by the ShortDateFormat global variable or its TFormatSettings equivalent--possible combinations are m/d/y, d/m/y, and y/m/d.

If S contains only two numbers, it is interpreted as a date (m/d or d/m) in the current year.

Year values between 0 and 99 are converted using the TwoDigitYearCenturyWindow. This value is stored either in a global variable (first form) or as a field in the FormatSettings parameter (second form) See "Currency and Date-Time Formatting Variables" for more information.

The first form of StrToDate is not thread-safe, because it uses localization information contained in global variables. The second form of StrToDate, which is thread-safe, refers to localization information contained in the FormatSettings parameter. Before calling the thread-safe form of StrToDate, you must populate FormatSettings with localization information. To populate FormatSettings with a set of default locale values, call GetLocaleFormatSettings.
I'm sorry :)

Германн   (2007-04-24 01:52:00) [16]


> {RASkov}   (24.04.07 01:41) [12]
>
> > [10] Германн ©   (24.04.07 01:15)
> > Нужно ли их сначала запомнить (до вызова сей функции),
>  а потом восстановить старые значения.
>
> Не надо. Переменную типа TFormatSettings нужно вначале заполнить
> - GetLocaleFormatSettings(LCID: Integer; var FormatSettings:
>  TFormatSettings); - Это в хелпе рекомендуют.

Ну а потом, а потом что будет? С date/time formatting variables?

{RASkov}   (2007-04-24 01:41:00) [17]

> [10] Германн ©   (24.04.07 01:15)
> Нужно ли их сначала запомнить (до вызова сей функции), а потом восстановить старые значения.

Не надо. Переменную типа TFormatSettings нужно вначале заполнить - GetLocaleFormatSettings(LCID: Integer; var FormatSettings: TFormatSettings); - Это в хелпе рекомендуют.
Т.е. в моем примере нужно было так сделать:
GetLocaleFormatSettings(0, FD);
FD.DateSeparator:='/';
FD.ShortDateFormat:='d/m/g';
.........
D:=StrToDate(S, FD);
Хотя, там и надо-то было сепаратор и расположение.....так, что GetLocaleFormatSettings и не обязательна.... имхо.

> [9] kull   (24.04.07 01:15)
> для "распознования" месяца я перегоняю ShortMonthNames в отсортированный TStringlist:

Ты уж тогда лучше его не сортируй, пусть будет как есть :) Хотя в объектах у тебя хранится порядковый номер месяца, но не к чему это. :)

Германн   (2007-04-24 01:21:00) [18]


> kull   (24.04.07 01:15) [9]
>
> для "распознования" месяца я перегоняю ShortMonthNames в
> отсортированный TStringlist:
>
> var
>  i: Integer;
> begin
>  FShortMonths := TStringList.Create;
>  FShortMonths.Sorted := True;
>  for i := Low(ShortMonthNames) to High(ShortMonthNames)
> do
>    FShortMonths.AddObject(ShortMonthNames[i], TObject(i));
>
>
> а дальше IndexOf или Find. Для получения номера месяца.
> =)
>

МолодЕц! Так держать! :-)
Февраль назначаем последним месяцем в году! Ес-сно, он ведь самый короткий. :-)

Германн   (2007-04-24 01:15:00) [19]


> {RASkov}   (24.04.07 01:05) [8]

Да верю я, верю. Я только не знаю что происходит с date/time formatting variablesпри использовании этой функции. Нужно ли их сначала запомнить (до вызова сей функции), а потом восстановить старые значения.

kull   (2007-04-24 01:15:00) [20]

для "распознования" месяца я перегоняю ShortMonthNames в отсортированный TStringlist:

var
 i: Integer;
begin
 FShortMonths := TStringList.Create;
 FShortMonths.Sorted := True;
 for i := Low(ShortMonthNames) to High(ShortMonthNames) do
   FShortMonths.AddObject(ShortMonthNames[i], TObject(i));

а дальше IndexOf или Find. Для получения номера месяца.
=)

Страницы:   1 2

Наверх

Титульная страница Поиск, карта сайта Написать письмо