Fonction inversant une chaine

Soyez le premier à donner votre avis sur cette source.

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

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

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

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.