cs_grandvizir
Messages postés1106Date d'inscriptionsamedi 8 novembre 2003StatutMembreDernière intervention 3 septembre 200622 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');
2 nov. 2004 à 17:09
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');