Fonction inversant une chaine

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 290 fois - Téléchargée 30 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
1106
Date d'inscription
samedi 8 novembre 2003
Statut
Membre
Dernière intervention
3 septembre 2006
22
2 nov. 2004 à 17:09
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.