Blog de Serge Girard (aka SergioMaster)

Les variables inline ne sont pas une nouveauté en Delphi (disponibles depuis la version 10.3 Rio), toutefois je n'accrochais pas vraiment avec ce principe, restant quand même très vieille école et donc préférant déclarer mes variables dans un bloc var.

Cette petite routine pour obtenir une liste de noms des mois pourrait me faire changer d'avis, je n'ai pas eu à me creuser la tête pour savoir si la variable résultante monthnames était un tableau fini (array[0..11] of string ou array[1..12] of string), dynamique (array<string>) ou autre.

Code :

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

1
2
3
4
5
6
procedure TForm1.BtnGetMonthNames(Sender: TObject);
begin
var monthnames := TFormatSettings.Create('EN_US').LongMonthNames; // ou TFormatSettings.Invariant.LongMonthNames pour une liste selon les paramètres du poste  
for var monthname in monthnames do
 memo1.Lines.Add(monthname);
end;