Discussion :

[aliwassem]

salut

j'ai dans un fichier Text un liste des valeurs Time ex (10:05:12) et je fais charger dans mon application et je fais une comparison avec le time actuel qui se trouve dans un Datetimepicker avec la fonction Comparetime de la unite DateUtils et voila lo code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
For I := 1 to 10 do
begin
if comparetime(strtotime(time1),datetimepicker1) = 1 then
begin
showmessage('True');
end else 
begin
if comparetime(strtotime(time1),datetimepicker1) = -1 then
begin
showmessage('false');
end;
end
end;

alors la resultat toujours la meme valeur soit True soit false comme la 1er fois et comme le code precedent c'est toujours True..........

je comprend rien?

merci d'avance

[OutOfRange]

Salut

Indique la relation entre les parties heure de deux valeurs TDateTime.

Tu n'as pas d'erreur à la compilation ?

Essaie ça

Code :

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

if comparetime(strtotime(time1),datetimepicker1.time) = 1 then

[aliwassem]

Salut

Tu n'as pas d'erreur à la compilation ?

Essaie ça

Code :

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

if comparetime(strtotime(time1),datetimepicker1.time) = 1 then

merci de votre reponse

exact ca qu'est ce que je fais Datetimepicker.time mais ca marche pas

quand je fais

Code :

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

if CompareTime(datetimepicker1.time,Datetimepicker2.time) =1

ca marche tres bien, tel que les deux valeurs normal,
alors je fais

Code :

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

datetimepicker1.time := strtotime(time1)

et le code suivant

Code :

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

if CompareTime(datetimepicker1.time,Datetimepicker2.time)=1

ca marche pas............

voila le probleme.?

[jambonstar]

Affecter une heure au DateTimePicker n'est possible que lorsque le Kind du TDateTimePicker est "dtkTime"

Extrait l'aide Delphi 7 :

Description

La propriété Time représente l'heure saisie par l'utilisateur. Affectez une valeur à la propriété Time par du code ou dans l'inspecteur d'objets pour spécifier l'heure sélectionnée par défaut. Cette propriété ne s'applique que si Kind = dtkTime.

De plus,
Tu devrai crée un TDateTime local pour vérifier la comparaison :

Code :

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

1
2
3
4
5
6
7
 
 
heure : TDateTime;
 
 
Heure := StrToTime(Time1);
ShowMessage(TimeToStr(Heure));

[aliwassem]

Affecter une heure au DateTimePicker n'est possible que lorsque le Kind du TDateTimePicker est "dtkTime"

Extrait l'aide Delphi 7 :


De plus,
Tu devrai crée un TDateTime local pour vérifier la comparaison :

Code :

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

1
2
3
4
5
6
7
 
 
heure : TDateTime;
 
 
Heure := StrToTime(Time1);
ShowMessage(TimeToStr(Heure));

Merci beacoup , ca marche tres bien