FONCTION INVERSANT UNE CHAINE

Signaler
Messages postés
1237
Date d'inscription
samedi 8 novembre 2003
Statut
Membre
Dernière intervention
3 septembre 2006
-
Messages postés
1237
Date d'inscription
samedi 8 novembre 2003
Statut
Membre
Dernière intervention
3 septembre 2006
-
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/11736-fonction-inversant-une-chaine

Messages postés
1237
Date d'inscription
samedi 8 novembre 2003
Statut
Membre
Dernière intervention
3 septembre 2006
15
Je proposerai également:

function ReverseString(S:string):string;
var x : integer;
c : char;
begin
if Length(s)>2 then
for x:=1 to Length(S) div 2 do
begin
c:=s[x];
s[x]:=s[Length(S)-x+1];
s[Length(S)-x+1]:=c;
end;
ReverseString:=s;
end;

Edit1.Text:=ReverseString('élu par cette crapule');