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

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

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

Проблема с временем [D6, D7, WinXP]

Volf_555 © (2005-09-30 22:42:00)
Кода я пишу TimeToStr(Time), то время выводится в формате:
hh:mm:ss
Как сделать так, чтобы время выводилось в формате:
hh:mm

Германн (2005-10-01 02:48:00) [1]
Имхо, FormatDateTime - самый универсальный способ реализации сабжа.
Менять походя в программе форматы по умолчанию, по-моему moveton.

WereWolf_ (2005-10-01 00:46:00) [2]
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.

faeton (2005-10-01 00:14:00) [3]
можно еще так:
time:=format('hh:mm',now); //time- переменная типа string

Volf_555 (2005-09-30 23:08:00) [4]
А какой подключить модуль для работы программы с TFormatSettings?

werewolf_ (2005-09-30 23:04:00) [5]
Naprimer tak

procedure TForm1.Button1Click(Sender: TObject);
var
F: TFormatSettings;
begin
F.ShortDateFormat:='mm dd';
Button1.Caption:=TimeToStr(Now, F);
end;

Adder (2005-09-30 23:03:00) [6]
F1 TimeToStr + Currency and date/time formatting variables

LongTimeFormat:='hh:mm';

Наверх

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