Soyez le premier à donner votre avis sur cette source.
Snippet vu 9 701 fois - Téléchargée 31 fois
Function InverseStr(sDep : string) : string; var sFin : string; i : integer; begin sFin:= ''; for i:= length(sDep) downto 1 do begin sFin:= sFin + copy(sDep, i,1); end; result:= sFin; end;
6 févr. 2014 à 20:24
function ReversePalindrome(const S: string): string;
begin
Result := S;
end;
PS: Ne fonctionne qu'avec des mots palindromes: laval, ewe, malayalam,
XD
15 août 2007 à 12:37
Tu dis quoi de
...
uses StrUtils
sFin:=ReverseString(sDep)
10 janv. 2002 à 20:07
Merci de t'as participation ! ;)
Cette source sera bientot supprimée
9 janv. 2002 à 19:37
Bonne Soirée!
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.