Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Дата

Страницы: < 1 2
Igor23 © (2008-03-16 14:08:00)
Как получить текущую дату из XP? Требуется именно строка '16 марта'

MegaPiha (2008-03-17 19:50:00) [21]

> Плохиш © (16.03.08 23:54) [9]
>
>
> Попробуй запустить свой глюкокод в нерусской локали.
>

Зачем?

> Семеныч (16.03.08 22:52) [8]
>
> > MegaPiha © (16.03.08 21:39) [6]
> Это тебе так кажется. Если хочешь убедиться - посмотри New
> в справке.

Не кажется. У меня работает - никаких проблем еще не возникало.

Народ. Может кто нибудь свой вариант напишет?

Есть еще один вариант из Delphi 2006 Архангельского.
Сам по себе спецификатор mmmm дает название месяца в именительном падеже. Но если наряду с этим спецификатором в строке форматирования используется одна из форм спецификатора, отображающего день месяца, то спецификатор mmmm отображает название месяца в родительном падеже в нижнем регистре.
Пример:
var S:string;
D: DateTime;
...
D:=DateTime.Now;
S:=D.ToString('Сегодня d mmmm yyyy года')

Результат : Сегодня 16 марта 2005 года
Правда у меня не заработало. Может умные люди поправят?

Anatoly Podgoretsky (2008-03-17 00:41:00) [22]

> Семеныч (16.03.08 22:52) [8]

Да, да, неправ был.

Плохиш (2008-03-16 23:54:00) [23]

> MegaPiha © (16.03.08 21:39) [6]

> Все прекрасно работает

Попробуй запустить свой глюкокод в нерусской локали.

Семеныч (2008-03-16 22:52:00) [24]
> MegaPiha © (16.03.08 21:39) [6]
Это тебе так кажется. Если хочешь убедиться - посмотри New в справке.

> Anatoly Podgoretsky © (16.03.08 21:40) [7]
1 байт. Как раз потому, что SizeOf(Type). А тип - char.

Anatoly Podgoretsky (2008-03-16 21:40:00) [25]
4 байта, SizeOf(Type)

MegaPiha (2008-03-16 21:39:00) [26]

> Семеныч (16.03.08 20:52) [5]
>
> > MegaPiha © (16.03.08 19:43) [3]
>
> 1. New(pp) выделяет буфер размером 1 байт. Каким образом
> в него может поместиться строка явно большей длины?
>
> 2. New вызывается аж 2 раза, а Dispose - ни разу. Будем
> иметь утечку памяти.

Не усложняй. Все прекрасно работает

Семеныч (2008-03-16 20:52:00) [27]
> MegaPiha © (16.03.08 19:43) [3]

1. New(pp) выделяет буфер размером 1 байт. Каким образом в него может поместиться строка явно большей длины?

2. New вызывается аж 2 раза, а Dispose - ни разу. Будем иметь утечку памяти.

Leonid Troyanovsky (2008-03-16 20:07:00) [28]

> MegaPiha © (16.03.08 19:43) [3]

> Вот так! :)

> pp: pchar;
> begin
> New(pp);

Вот такое хреновое у нас лето.

--
Regards, LVT.

MegaPiha (2008-03-16 19:43:00) [29]
Вот так! :)

procedure TForm1.Button2Click(Sender: TObject);
var
ST: psystemtime;
pp: pchar;
begin
New(pp);
New(St);
GetLocalTime(ST^);
GetDateFormat($419, 0, ST, 'd MMMM',pp,255);
Showmessage(pp);
end;

Igor23 (2008-03-16 14:15:00) [30]
отбой но все равно сенкс

{RASkov} (2008-03-16 14:11:00) [31]
http://www.delphimaster.ru/cgi-bin/forum.pl?n=0&id=1205179677

Страницы: < 1 2

Наверх

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