STREAMDELETE

DelphiCool Messages postés 455 Date d'inscription mardi 24 juillet 2001 Statut Membre Dernière intervention 10 mars 2009 - 9 mai 2002 à 08:20
DelphiCool Messages postés 455 Date d'inscription mardi 24 juillet 2001 Statut Membre Dernière intervention 10 mars 2009 - 9 mai 2002 à 08:20
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/11744-streamdelete

DelphiCool Messages postés 455 Date d'inscription mardi 24 juillet 2001 Statut Membre Dernière intervention 10 mars 2009
9 mai 2002 à 08:20
Merci Nono40, pour le commentaire.
Je n'avais pas vu que j'avais fait 2 fois ma meme comparaison.
Je modifie le source.
cs_Nono40 Messages postés 962 Date d'inscription mercredi 3 avril 2002 Statut Membre Dernière intervention 12 septembre 2006 2
9 mai 2002 à 01:19
Pour la pureté du style dans StreamDelete, le test de validité du début devrait être : ... (Position >= Taille )...
Mais en fait ce test n'est pas utile car comme Count est supérieur à 0, le dernier test l'emporte toujours. On peut donc résumer à
if (Position < 0) or (Count <= 0) or (Position + Count > Taille) Then
Rejoignez-nous