|
|
A simple example |
// Full Unit code. // ------------------------------------------------------------- // Create a new WinForm application, double click the form to // create an OnLoad event, and then replace the WinForm unit // with this text. unit WinForm; interface uses System.Drawing, System.Collections, System.ComponentModel, System.Windows.Forms, System.Data; type TWinForm = class(System.Windows.Forms.Form) \{REGION 'Designer Managed Code'\} // Note that REGION and ENREGION should be prefixed by a dollar sign strict private /// /// Required designer variable. /// Components: System.ComponentModel.Container; /// /// Required method for Designer support - do not modify /// the contents of this method with the code editor. /// procedure InitializeComponent; procedure TWinForm_Load(sender: System.Object; e: System.EventArgs); {ENDREGION} strict protected /// /// Clean up any resources being used. /// procedure Dispose(Disposing: Boolean); override; private { Private Declarations } public constructor Create; end; [assembly: RuntimeRequiredAttribute(TypeOf(TWinForm))] implementation \{REGION 'Windows Form Designer generated code'\} /// /// Required method for Designer support -- do not modify /// the contents of this method with the code editor. /// procedure TWinForm.InitializeComponent; begin // // TWinForm // Self.AutoScaleBaseSize := System.Drawing.Size.Create(5, 13); Self.ClientSize := System.Drawing.Size.Create(292, 266); Self.Name := 'TWinForm'; Self.Text := 'WinForm'; Include(Self.Load, Self.TWinForm_Load); end; {ENDREGION} procedure TWinForm.Dispose(Disposing: Boolean); begin if Disposing then begin if Components <> nil then Components.Dispose(); end; inherited Dispose(Disposing); end; constructor TWinForm.Create; begin inherited Create; // // Required for Windows Form Designer support // InitializeComponent; // // TODO: Add any constructor code after InitializeComponent call // end; procedure TWinForm.TWinForm_Load(sender: System.Object; e: System.EventArgs); program Project1;
{$APPTYPE CONSOLE}
uses
System.Globalization;
var
britishCulture : System.Globalization.CultureInfo;
frenchCulture : System.Globalization.CultureInfo;
month : Integer;
dateTimeFormat : System.Globalization.DateTimeFormatInfo;
begin
// Set up British and French cultures and calendars
britishCulture := CultureInfo.Create('en-GB');
frenchCulture := CultureInfo.Create('fr-FR');
// Display the British calendar months
dateTimeFormat := britishCulture.DateTimeFormat;
for month := 1 to 12 do
Console.WriteLine('British Month {0,2} = {1}',
month.ToString,
dateTimeFormat.GetAbbreviatedMonthName(month));
// Display the French calendar months
Console.WriteLine;
dateTimeFormat := frenchCulture.DateTimeFormat;
for month := 1 to 12 do
Console.WriteLine('French Month {0,2} = {1}',
month.ToString,
dateTimeFormat.GetAbbreviatedMonthName(month));
Console.ReadLine;
end. end. | Hide full unit code | British Month 1 = Jan
British Month 2 = Feb
British Month 3 = Mar
British Month 4 = Apr
British Month 5 = May
British Month 6 = Jun
British Month 7 = Jul
British Month 8 = Aug
British Month 9 = Sep
British Month 10 = Oct
British Month 11 = Nov
British Month 12 = Dec
French Month 1 = janv.
French Month 2 = f?vr.
French Month 3 = mars
French Month 4 = avr.
French Month 5 = mai
French Month 6 = juin
French Month 7 = juil.
French Month 8 = ao?t
French Month 9 = sept.
French Month 10 = oct.
French Month 11 = nov.
French Month 12 = d?c.
|
|
|
|