Discussion :

[MaTHieU_]

Bonjour,

Je voudrais renseigner un TDateTime avec une date et une heure cependant, lorsque je veux le faire, mon premier TDateTime est écrasé par le second :

Code :

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

1
2
3
4
5
6
7
 
MyDate := EncodeDate(StrToInt(Copy(MyStringList.Strings[1],30,5)),
StrToInt(Copy(MyStringList.Strings[1],36,2)),
StrToInt(Copy(MyStringList.Strings[1],39,2)));
 
MyDate := EncodeTime(StrToInt(Copy(MyStringList.Strings[1],42,2)),
StrToInt(Copy(MyStringList.Strings[1],44,2)),0,0);

Savez-vous comment faire ?

Merci d'avance,
Mathieu

[TicTacToe]

C'est normal, il faut faire ceci

Code :

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

MyDate := MyDate + EncodeTime(StrToInt(Copy(MyStringList.Strings[1],42,2)),

bon code

[MaTHieU_]

Bonjour,

En effet, ça marche parfaitement !

Merci,
Mathieu