Fonction inversant une chaine

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 056 fois - Téléchargée 29 fois

Commenter

Contenu du snippet


Source / Exemple : 


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;

exemple : InverseStr('12345') renvoie '54321'

A voir également

Ajouter un commentaire

Commentaire

Signaler
cs_grandvizir
Messages postés
1237
Date d'inscription
samedi 8 novembre 2003
Statut
Membre
Dernière intervention
3 septembre 2006
 10 -
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');
S'inscrire maintenant

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.

Du même auteur (cs_Amadeus)