1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69
|
// Date littérale en trois langues
// FlashPascal2 13.10.25
// Formats retenus :
// Friday 25 October 2013
// Freitag, 25. Oktober 2013
// vendredi 25 octobre 2013
program DateLitterale2;
uses
Flash8,
Date; // http://flashpascal.sourceforge.net/
{$FRAME_WIDTH 320}
{$FRAME_HEIGHT 32}
const
EN = 0;
DE = 1;
FR = 2;
NOM_JOUR: array[EN..FR, 0..6] of string = (
('Sunday', 'Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 'Saturday'),
('Sonntag', 'Montag', 'Dienstag', 'Mittwoch', 'Donnerstag', 'Freitag', 'Samstag'),
('dimanche', 'lundi', 'mardi', 'mercredi', 'jeudi', 'vendredi', 'samedi')
);
NOM_MOIS: array[EN..FR, 0..11] of string = (
('January', 'February', 'March', 'April', 'May', 'June', 'July', 'August', 'September', 'October', 'November', 'December'),
('Januar', 'Februar', "März", 'April', 'Mai', 'Juni', 'Juli', 'August', 'September', 'Oktober', 'November', 'Dezember'),
('janvier', "février", 'mars', 'avril', 'mai', 'juin', 'juillet', "août", 'septembre', 'octobre', 'novembre', "décembre")
);
var
f: TextFormat;
t: TextField;
d: TDate;
l: integer;
begin
f := TextFormat.Create('Times', 24);
t := TextField.Create(nil, 't', 0, 0, 0, 320, 32);
d := TDate.Create;
if capabilities.language = 'de' then
l := DE
else
if capabilities.language = 'fr' then
l := FR
else
l := EN;
f.align := 'center';
t.setNewTextFormat(f);
t.text := NOM_JOUR[l, d.getDay];
if l = DE then t.text := t.text + ',';
t.text := t.text + #32;
t.text := t.text + IntToStr(d.getDate);
if l = DE then t.text := t.text + '.';
if (l = FR) and (d.getDate = 1) then t.text := t.text + 'er';
t.text := t.text + #32;
t.text := t.text + NOM_MOIS[l, d.getMonth];
t.text := t.text + #32;
t.text := t.text + IntToStr(d.getFullYear);
end. |
Partager