Discussion :

[dadouuuu]

Bonjour,

Je voudrais savoir comment faire pour affichage ma date, mais avec le jour et mois en majuscule

J'ai essayer comme sa:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
ShortDateFormat := 'dddd/dd/mmmm/yyyy';
uppercase(DateToStr(Date))

mais bon sa met tout en majuscule ... comment puis-je m'y prendre? Une fonction que j'ai loupé ?

merci

[ShaiLeTroll]

Je pense que la Fonction FormatDateTime ne fourni pas cela comme Option, je peux te proposer ceci qui supprime les doubles espaces et mets en masjuscule la première lettre de chaque Mot, bon c'est un code expérimental en fait, il doit en exister une autre version sur le forum

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
function ShaiProper(const Value: string): string;
const
   DEC_MIN_MAJ = Ord('A') - Ord('a');
   SPACE_CHAR = ' ';
 
   function UpCharCase(c: Char): Char;
   asm
           CMP     AL,'a'
           JB      @@exit
           CMP     AL,'z'
           JA      @@exit
           ADD     AL,'A' - 'a'
   @@exit:
   end;
 
   function LowCharCase(c: Char): Char;
   asm
           CMP     AL,'A'
           JB      @@exit
           CMP     AL,'Z'
           JA      @@exit
           SUB     AL,'A' - 'a'
   @@exit:
   end;
 
var
   Index, Offset: Integer;
   LastIsSpace, PriorIsSpace: Boolean;
begin
   SetLength(Result, Length(Value));
   ZeroMemory(@Result[1], Length(Result));
 
   LastIsSpace := True;
   Offset := 0;
 
   for Index := 1 to Length(Value) do
   begin
      if Value[Index] = SPACE_CHAR then
      begin
         PriorIsSpace := LastIsSpace;
         LastIsSpace := True;
         if PriorIsSpace then
         begin
            Inc(Offset);
         end
         else
         begin
            Result[Index - Offset] := SPACE_CHAR;
         end;
      end
      else
      begin
         if LastIsSpace then
         begin
            Result[Index - Offset] := UpCharCase(Value[Index]);
         end
         else
         begin
            Result[Index - Offset] := LowCharCase(Value[Index]);
         end;
         LastIsSpace := False;
      end;
   end;
 
   SetLength(Result, Length(Result) - Offset);
end;

[dadouuuu]

En effet ca marche nickel merci
Par contre si quelqu'un a un truc de plus simple je prend quand même ... car pour comprendre le code de Shai avec l'ASM , enfin merci quand même sa me convient tout de même

[ShaiLeTroll]

tu as les fonctions UpCase en standard dans Delphi ...

[Andnotor]

Voici pour modifier une fois les textes pour tout le projet. A appeler dans l'Initialization.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
procedure DateStringFirstCharUpCase;
var
  i :integer;
begin
  for i := 1 to 12 do
    LongMonthNames[i][1] := UpCase(LongMonthNames[i][1]);
 
  for i := 1 to 7 do
    LongDayNames[i][1] := UpCase(LongDayNames[i][1]);
end;
 
initialization
  DateStringFirstCharUpCase;

[Kaféine]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
function EnCapitale(const AStr: string): string;
begin
  Result := UpperCase(AStr[1]) + Copy(AStr, 2, Length(AStr));
end;

exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
  EnCapitale('salut');  //=> Salut

dans ce cas:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
   EnCapitale(FormatDateTime(LongDateFormat, Now)); //=> Mercredi 20 mai 2009

[chaplin]

La proposition d'Andnotor est courte et efficace .

[Kaféine]

Mon but était une ébauche de fonction générique...sans modification directe de la librairie delphi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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
 
TCapitalStyle = (csPremier, csTousLesMots);
function EnCapitale(const AStr: string; AStyle: TCapitalStyle = csPremier): string;
 
  function CapitaliseTousLesMots(const S: string): string;
  var
    Tmp: TStringList;
    STmp: string;
    I: Integer;
  begin
    Result := '';
    Tmp := TStringList.Create;
    try
      ExtractStrings([' '], [], PAnsiChar(S), Tmp);
      for I := 0 to Tmp.Count - 1 do
      begin
        STmp := Tmp[I];
        Result := Result + ' ' + (UpperCase(STmp[1]) + Copy(STmp, 2, Length(STmp)));
      end;
    finally
      Tmp.Free;
    end;
  end;
 
begin
  case AStyle of
    csPremier: Result := UpperCase(AStr[1]) + Copy(AStr, 2, Length(AStr));
    csTousLesMots: Result := CapitaliseTousLesMots(AStr);
  end;
end;

exemple:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
 
 EnCapitale(FormatDateTime(LongDateFormat, Now), csTousLesMots); //=> Mercredi 20 Mai 2009
 EnCapitale('salut les amis molettes', csTousLesMots);//=> Salut Les Amis Molettes

[chaplin]

Ok, en tout cas le code asm de ShaiLeTroll est instructif.

[Kaféine]

Le seul code asm que j'ai produit c'était à l'école.

[chaplin]

Il n'y a que quelques lignes de code, donc ça passe .