FONCTION POUR INVERSER UNE CHAINE DE CARACTÈRE !

Signaler
Messages postés
25
Date d'inscription
dimanche 6 janvier 2002
Statut
Membre
Dernière intervention
11 août 2002
-
Messages postés
30
Date d'inscription
jeudi 31 mars 2005
Statut
Membre
Dernière intervention
6 février 2014
-
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

Messages postés
30
Date d'inscription
jeudi 31 mars 2005
Statut
Membre
Dernière intervention
6 février 2014

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
Messages postés
12
Date d'inscription
dimanche 12 janvier 2003
Statut
Membre
Dernière intervention
26 juin 2010

Saut
Tu dis quoi de
...
uses StrUtils
sFin:=ReverseString(sDep)
Messages postés
329
Date d'inscription
mercredi 4 avril 2001
Statut
Membre
Dernière intervention
8 décembre 2009
6
Pas de mal :-D
Merci de t'as participation ! ;)
Cette source sera bientot supprimée
Messages postés
25
Date d'inscription
dimanche 6 janvier 2002
Statut
Membre
Dernière intervention
11 août 2002

Excusez-moi, je n'avais pas vu que la personne l'avait deja mis :o(
Bonne Soirée!