yannbobu
Messages postés5Date d'inscriptionsamedi 8 février 2003StatutMembreDernière intervention27 décembre 2008
-
25 janv. 2004 à 18:30
yannbobu
Messages postés5Date d'inscriptionsamedi 8 février 2003StatutMembreDernière intervention27 décembre 2008
-
25 janv. 2004 à 20:54
Bonsoir
J'ai un petit probleme, a la suite d'une opération, j'ai ceci :
AD 5F 12 3B E6
mais je voudrais pouvoir l'inverser pour obtenir :
E6 3B 12 5F AD
Comment peut on réaliser ceci ?
yannbobu
Messages postés5Date d'inscriptionsamedi 8 février 2003StatutMembreDernière intervention27 décembre 2008 25 janv. 2004 à 20:54
Bon bah apparemment je viens de trouver une solution
Function inverser_chaine_pd2(S : String): String;
Var
i : Integer;
j : Integer;
Begin
Result := '';
j := 1;
For i := Length(S) DownTo 1 Do
Begin
j := j-1;
Result := Result + s[i-1+j]+s[i+j];