| Description |
The TimeAMString variable value is used in the DateTimeToString procedure, and StrToTime function. It qualifies the hour value when the ampm formatting string is used. The position is determined by the formatting string (see the example).
The default value is 'AM' as set by the locale settings.
|
|
| Notes |
The default TimeAMString value is taken from the LOCALE_S1159 locale setting.
|
|
| Related commands |
| DateTimeToString |
|
Rich formatting of a TDateTime variable into a string |
| StrToTime |
|
Converts a time string into a TDateTime value |
| TimePMString |
|
Determines PM value in DateTimeToString procedure |
| TimeSeparator |
|
The character used to separate display time fields |
|
|
|
| Example code : Show AM as Morning |
// Full Unit code.
// -----------------------------------------------------------
// You must store this code in a unit called Unit1 with a form
// called Form1 that has an OnCreate event called FormCreate.
unit Unit1;
interface
uses
SysUtils, // Unit containing the TimeAMString command
DateUtils,
Forms, Dialogs;
type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
end;
var
Form1: TForm1;
implementation
{$R *.dfm} // Include form definitions
procedure TForm1.FormCreate(Sender: TObject);
var
myDate : TDateTime;
formattedDate : string;
begin
myDate := StrToDateTime('09/02/2002 11:03');
// Format using the default TimeAMString value
DateTimeToString(formattedDate, 'dd/mm/yyyy @ hh:nn ampm', myDate);
ShowMessage('Using default AM value = '+formattedDate);
// Format using the 'in the morning' value
TimeAMString := 'in the morning';
DateTimeToString(formattedDate, 'dd/mm/yyyy @ hh:nn ampm', myDate);
ShowMessage('With changed AM value = '+formattedDate);
end;
end.
|
| Hide full unit code |
Using default AM value = 09/02/2002 @ 11:03 AM
With changed AM value = 09/02/2002 @ 11:03 in the morning
|
|