Discussion :

[OutOfRange]

Bonjour
Je me sers de la date d'un TDateTimePicker pour insérer chronologiquement une chaîne dans un TStringList
Voici le code

Code :

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

1
2
3
CalAjoutOp.Date:=date-7;
(...)
ListeOp.Insert(ranginsert(CalAjoutOp.Date),chainopajout);

ranginsert est une function qui me renvoie le rang d'interclassement dans ListeOp suivant la date de CalAjoutOp (mon TDateTimePicker)

Le hic, c'est que j'ai une EConvertError avec le message ''' n'est pas une date correcte

Pourtant

Code :

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

showmessage(datetostr(CalAjoutOp.Date));

me donne 15/09/2007

Help

[edit-------------------------------------------------------]
Encore plus terrifiant :
ça marche quand je choisis certaines dates anciennes (février 2007)

[OutOfRange]

En fait il n'y a pas de pb
Ce sont les données de ma TStringList qui étaient corrompues en amont