Discussion :

[rec82]

salut.

Var
FormatSettings : TFormatSettings;

delphi6 ne reconus pas TFormatSettings,malgrés j'ai sysutils dans USES
message erreur :identifier non déclared.
ou est le probleme,merci toujour.
cordialement rec82.

[ShaiLeTroll]

C'est il me semble une nouveauté de D7, pour que les fonctions de conversion soient correctement géré en Thread

[cincap]

@ rc82, en effet TFormatSettings est un record et présent à partir de D7.

Avec TformatSettings :

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
 
var
  Diff: Real;
  Heures: Integer;
  Format: TFormatSettings;
begin
  // les trois lignes suivantes pour reconnaitre ton format de date
  // un peu spécial
  GetLocaleFormatSettings(0, Format);
  Format.ShortDateFormat := 'yyyy MM dd';
  Format.DateSeparator := '-';
 
  Diff := StrToDateTime('2005-03-07 06:00:00', Format) -
          StrToDateTime('2005-03-04 06:30:00', Format);
  Heures := Trunc(Diff * 24);
end;

Et sans :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
var
  Diff: Real;
  Heures: Integer;
begin
  //  modifications du format date 
  ShortDateFormat := 'yyyy MM dd';
  DateSeparator := '-';
  Diff := StrToDateTime('2005-03-07 06:00:00') -
          StrToDateTime('2005-03-04 06:30:00');
  Heures := Trunc(Diff * 24);
end;

Code :

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

1
2
3
4
5
6
 
{$R *.dfm}
 
 Type
 TFormatSettings = record
 end;

@+,

Cincap

[rec82]

salut.
merci maitre Shaile troll sa marche avec delphi7.
comment je peut forcer la '.' comme separateur décimal dans toute l'application sachant que j'utilise D6.
en effet j'ai trouvé une solution dans la FAQ:

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If (Key=',') Or (Key='.') Then
Key:=DecimalSeparator;
end;

sa marche trés bien,mais comment oblige le '.'comme séparateur durant toute l'application.
cordialement rec82.

[rec82]

merci cincap pour toute ses details
cordialement rec82

[Cl@udius]

mais comment oblige le '.'comme séparateur durant toute l'application.

Code :

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

1
2
 
DecimalSeparator := '.';

Tout simplement.

[rec82]

DecimalSeparator := '.';

je met cette instruction dans le ONcreate de la fiche principal?
cordialement rec82.

[Cl@udius]

Oui par exemple.

@+

[rec82]

merci beacoup Cl@udius
je vais essayé.
cordialement rec82

[cincap]

@ rec82, dans mes exemples tu avais ceci :

Code :

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

1
2
 
DateSeparator := '-';

Il suffisait d'adapter avec :

Code :

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

1
2
 
DecimalSeparator := '.';

@+,

Cincap