function InverseString(sDep: String): String; var sFin: String; i: Integer; begin sFin := ''; i := Length(sDep); if Length(sDep) mod 2 <> 0 then Exit; // ici filtrage //(Exit ou autre instruction, c'est toi qui vois...) while i <> 0 do begin sFin := sFin + Copy(sDep, i - 1, 2); Dec(i, 2); end; Result := sFin; end;
function InverseString(sDep: String): String; var i: Integer; begin Result := ''; i := Length(sDep); if Length(sDep) mod 2 <> 0 then Exit; // ici filtrage //(Exit ou autre instruction, c'est toi qui vois...) while i <> 0 do begin Result := Result + Copy(sDep, i - 1, 2); Dec(i, 2); end; end;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question