FONCTION POUR INVERSER UNE CHAINE DE CARACTÈRE !

ELECTRORESiSTiK Messages postés 25 Date d'inscription dimanche 6 janvier 2002 Statut Membre Dernière intervention 11 août 2002 - 9 janv. 2002 à 19:37
speletux Messages postés 30 Date d'inscription jeudi 31 mars 2005 Statut Membre Dernière intervention 6 février 2014 - 6 févr. 2014 à 20:24
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/11737-fonction-pour-inverser-une-chaine-de-caractere

speletux Messages postés 30 Date d'inscription jeudi 31 mars 2005 Statut Membre Dernière intervention 6 février 2014
6 févr. 2014 à 20:24
J'avais écrit une fonction humoristique appelée ReversePalindrome dont le code est très simple

function ReversePalindrome(const S: string): string;
begin
Result := S;
end;

PS: Ne fonctionne qu'avec des mots palindromes: laval, ewe, malayalam,

XD
Utilisateur anonyme
15 août 2007 à 12:37
Saut
Tu dis quoi de
...
uses StrUtils
sFin:=ReverseString(sDep)
fabiin Messages postés 329 Date d'inscription mercredi 4 avril 2001 Statut Membre Dernière intervention 8 décembre 2009 6
10 janv. 2002 à 20:07
Pas de mal :-D
Merci de t'as participation ! ;)
Cette source sera bientot supprimée
ELECTRORESiSTiK Messages postés 25 Date d'inscription dimanche 6 janvier 2002 Statut Membre Dernière intervention 11 août 2002
9 janv. 2002 à 19:37
Excusez-moi, je n'avais pas vu que la personne l'avait deja mis :o(
Bonne Soirée!